急！无组件上传，本地正确，为什么放到服务器上去后就有错。

小婷_wuni 2004-11-17 08:20:26

上传文件到指定目录下，然后把文件名存储到数据库。
源程序如下：
<%
'------------------------------------------------------------------
.....省略dim
btn=request("btn")
if btn="1" then
image=request("image")
imagename=GetFileName(image)
if imagename<>"no" then
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.mode=3
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile image
filepath=server.MapPath("files")
filepath=filepath&"\"&imagename

objStream.SaveToFile filepath,2
objStream.Close
end if

Set conn=Server.CreateObject("ADODB.Connection")
dbpath=Server.MapPath("db/db.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&dbpath
strsql="insert into ....(省略）"

set rs=conn.execute(strsql)
......
end if
‘-----------------------------------------------------------------------

Function GetFileName(ByVal strFile)
If strFile <>"" Then
GetFileName = mid(strFile,InStrRev(strFile,"\")+1)
Else
GetFileName = "no"
End If
End function
%>
<html>
<body>
<form method="post" action="regist.asp" class="b" name="reg" >
<div align="center">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="136"> Property Name: </td>
<td width="166">
<input name="loupanname" size="30" maxlength="100" >
</td>
</tr>
<tr>
<td width="136"> About Image: </td>
<td width="166">
<input type="file" name="image">
</td>
</tr>
<tr align="middle">
<td colspan =2>
<input type="submit" value="regist" name="regist" size="18" "javascript:reg.btn.value=1;">

<input type="reset" value="reset" name="B2" size="18">
</td>
</tr>
<input type="hidden" name="btn" value=""></form>
</table>
</body>
</html>

然后，我在本地运行都是好的，但是放到服务器上后，一旦有图片上传，就发生错误，页面上显示的是http 500 内部服务器错误。
不清楚是什么原因。
难道是服务器的环境没有iis4.0,ado2.5以上吗？

如果是服务器环境的原因，那我还有其他的解决方案吗？

请指教，急，谢谢

...全文

172 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

小婷_wuni 2004-11-19

打赏
举报

谢谢 eglic(圪圪),解了偶心头一大疑问,调试时老是说不能用Request的方法,提交以后又可以,有点不明白,现在知道了哈.
难道我用lyfupload时失败也是这个原因?有空去try一下.

谢谢各位大虾!

kelly_1127 2004-11-18

打赏
举报

眼花了

小婷_wuni 2004-11-18

打赏
举报

啊!!!!怎么会是这个样子的啊,呜呜呜!死了,明天就要正式运行.
help!!

是是非非 2004-11-18

打赏
举报

有个问题,我为什么不能在同一个页面实现,非得用另一个asp页面才能实现,可能编程功力还不到家吧
不管了,总算解决一个大问题哦!
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
上传表单不同于其他的表单
要求在处理上传表单之前不能有使用Request.Form
否则就会创建组件失败

所以，建议使用两个文件来实现上传

hayes56k 2004-11-18

打赏
举报

老农?是什么东西?

zhou81 2004-11-18

打赏
举报

老农的比较好。我试过的。

小婷_wuni 2004-11-18

打赏
举报

用了老农的,本地全部ok了,上传上去还不知道.

这个应该么有问题了吧.

有个问题,我为什么不能在同一个页面实现,非得用另一个asp页面才能实现,可能编程功力还不到家吧
不管了,总算解决一个大问题哦!

是是非非 2004-11-17

打赏
举报

楼主的这个代码是从网上的 “五行代码实现无组件上传” 改来的吧？

唉，那个鸟作者误人不浅啊

你这个代码根本不能上传

在本地也只是实现了本地文件的复制而已

在网络上根本不能运行

小婷_wuni 2004-11-17

打赏
举报

已经用管理员的身份注册这个组件了。

小婷_wuni 2004-11-17

打赏
举报

asp页面
dim定义好后
Set obj = Server.CreateObject("LyfUpload.UploadFile")
image=obj.request("image")
...

但是运行后
错误类型：
LyfUpload (0x80020009)
下标越界

没用过这个组件，大虾继续教偶下。

小婷_wuni 2004-11-17