急啊!一段ASP上传文件的代码有问题,求解决.100分!谢谢

[yaoqiuchen]

这段代码用来上传一个文件,并写入数据库,但不知道为什么老是超时.

If (CStr(Request("MM_insert")) = "mainForm") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
response.buffer=true

formsize=request.totalbytes

formdata=request.binaryread(formsize)

bncrlf=chrB(13) & chrB(10)

divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)

datastart=instrb(formdata,bncrlf & bncrlf)+4

dataend=instrb(datastart+1,formdata,divider)-datastart

mydata=midb(formdata,datastart,dataend)
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_conn_STRING
MM_editCmd.CommandText = "INSERT INTO products (p_img) VALUES (?)"
MM_editCmd.Prepared = true
MM_editCmd.CreateParameter "param1", 201, 1, -1,null ' adLongVarChar
MM_editCmd.Parameters("param1").appendchunk (mydata)
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End If
End If

[zwb521]

不懂VB
有一次上传文件时加入了断点会显示超时，不知是否是这原因。

[一把编程的菜刀]

好象是用DW自动生成的代码
超时你要看是不是超过了系统限制的上传大小！

[街头小贩]

动网BBS中有封装好的!考出来即可用

[ld2099]

把文件以二进制形式写入数据库？文件大了或者网速慢了，不超时才怪
Server.ScriptTimeout的值设置大一些，或者先传个几K的文件看看
为什么不直接保存文件路径？