我的代码如下: <% Dim objTool Set objTool = Server.CreateObject("ASPSoft.Upload") '创建上传文件组件' strFileName = objTool.Form("address").Properties("SourceFileName") '获得上传文件信息'
Set my_rs= Server.CreateObject("ADODB.Recordset") if Len(strFileName) > 0 Then sqlstr = "Select * FROM 资源" my_rs.Open sqlstr,objconn,1,3 my_rs.Addnew filename=objTool.Form("address").Properties("SourceFileName") my_rs("文件名")=filename my_rs("描述")=objTool.Form("zyname") my_rs.update my_rs.close set my_rs=nothing ff=server.mappath("down") objTool.Form("address").SaveToFile ff&"\",CStr(strFileName),True msg(" <br>"+" <li>文件上传成功!") else Response.Write("没有文件上传!!") end if %>