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

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