帮忙看下,谢谢!
<%'写入数据库
set upload=new upload_5xSoft
dim Sql,InsertCursor
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
InsertCursor.open "SELECT * FROM "&kuname&"",conn,1,3
InsertCursor.Addnew
InsertCursor("Description") = upload.form("Description")
formPath="../"&foldername&"/"
iCount=0
for each formName in upload.objFile
set file=upload.file(formName)
if file.FileSize>0 then '如果 FileSize > 0 说明有文件数据
Dim sRnd
sRnd = Int(900 * Rnd) + 100
fileName=file.FileName
filename=year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & sRnd&right(fileName,(len(fileName)-InStrRev(fileName,".")+1))
file.SaveAs Server.mappath(formPath& FileName) ''保存文件 z<br />
response.write file.FilePath & file.FileName &" (" & file.FileSize & ") => " & filename & " 成功!<br>"
iCount=iCount+1
InsertCursor("imgx") = filename //插入数据库,
InsertCursor("imgd") = filename //插入数据库, 本来是插入不同的图片,结果上传了两个图片,两个字段插入了一个图片
end if
set file=nothing
next
InsertCursor.Update
InsertCursor.close
conn.close
set InsertCursor=nothing
set conn=nothing
%>
// InsertCursor("imgx") = filename //插入数据库,
InsertCursor("imgd") = filename 这两句需要怎么改啊.