<% dim strFileName, Personalpath Personalpath=replace(trim(request.QueryString("FileUpFolder")),"'","''") RootDir=replace(trim(request.QueryString("RootDir")),"'","''") LoginID=session("LoginID") if LoginID="" then response.end if Personalpath = "" then Personalpath = RootDir FileUpload Personalpath arrFileName=split(strFileName,",") '获取数据 strText1=EncriptRequest("Text1") strText2=EncriptRequest("Text2") strText3=EncriptRequest("Text3") dim strText strText="" 'if strText1<>"" then strText=strText& strText1 &"," 'end if 'if strText2<>"" then strText=strText& strText2 &"," 'end if 'if strText3<>"" then strText=strText& strText3 &"," 'end if arrText=split(strText,",") nInt = ubound(arrFileName) for i=1 to nInt if i<=nInt then InsertData LoginID, Personalpath &"/"& arrFileName(i), arrText(i-1) response.write " 文件 "& arrFileName(i) &" 上传成功！
" end if next set objUpload = nothing response.write "

[返回]" %>

<% Sub InsertData(FromID, str1, str2) '添加 sql="insert tblFile (FromID, FilePath,Title) values("& FromID & _ ",'" & str1 & _ "','" & str2 & _ "')" 'response.write sql oConn.execute (sql) End Sub %>