表单 – 如何使用FreeASPUpload脚本插入记录和上载文件

表单 – 如何使用FreeASPUpload脚本插入记录和上载文件,第1张

概述我想同时插入记录和上传文件,现在我正在使用 FreeASPUpload脚本.当我提交表单时,它返回此错误 Cannot use the generic Request collection after calling BinaryRead 这是我的页面的完整源代码 <% option explicit Response.Expires = -1Server.ScriptTimeout = 6 我想同时插入记录和上传文件,现在我正在使用 FreeASPUpload脚本.当我提交表单时,它返回此错误
Cannot use the generic Request collection after calling BinaryRead

这是我的页面的完整源代码

<% option explicit Response.Expires = -1Server.ScriptTimeout = 600Session.codepage  = 65001%><!-- #include file="UploadClass.asp" --><%  Dim uploadsDirVar  uploadsDirVar = server.MapPath("files_Uploaded") function OutputForm()%><form name="frmSend" method="POST" enctype="multipart/form-data" accept-charset="utf-8" action="form.asp" on@R_403_5555@="return on@R_403_5555@Form();"><input type="hIDden" name="ApplicationForm" value="Insert" />name: <input type="text" name="name_insert" value="" size="30" />    <B>file names:</B><br>    file 1: <input name="attach1" type="file" size=35><br>    <br>     <input  type="@R_403_5555@" value="@R_403_5555@">    </form><%end functionfunction TestEnvironment()    Dim fso,filename,testfile,streamTest    TestEnvironment = ""    Set fso = Server.CreateObject("Scripting.fileSystemObject")    if not fso.FolderExists(uploadsDirVar) then        TestEnvironment = "<B>Folder " & uploadsDirVar & " does not exist.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."        exit function    end if    filename = uploadsDirVar & "\test.txt"    on error resume next    Set testfile = fso.CreateTextfile(filename,true)    If Err.Number<>0 then        TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."        exit function    end if    Err.Clear    testfile.Close    fso.Deletefile(filename)    If Err.Number<>0 then        TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>,although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder."        exit function    end if    Err.Clear    Set streamTest = Server.CreateObject("ADODB.Stream")    If Err.Number<>0 then        TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB librarIEs."        exit function    end if    Set streamTest = nothingend functionfunction Savefiles    Dim Upload,fileSize,ks,i,fileKey    Set Upload = New FreeASPUpload    Upload.Save(uploadsDirVar)    ' If something fails insIDe the script,but the exception is handled    If Err.Number<>0 then Exit function    Savefiles = ""    ks = Upload.Uploadedfiles.keys    if (UBound(ks) <> -1) then        Savefiles = "<B>files uploaded:</B> "        for each fileKey in Upload.Uploadedfiles.keys            Savefiles = Savefiles & Upload.Uploadedfiles(fileKey).filename & " (" & Upload.Uploadedfiles(fileKey).Length & "B) "        next    else        Savefiles = "No file selected for upload or the file name specifIEd in the upload form does not correspond to a valID file in the system."    end if    Savefiles = Savefiles & "<br>Enter a number = " & Upload.Form("enter_a_number") & "<br>"    Savefiles = Savefiles & "CheckBox values = " & Upload.Form("checkBox_values") & "<br>"    Savefiles = Savefiles & "List values = " & Upload.Form("List_values") & "<br>"    Savefiles = Savefiles & "Text area = " & Upload.Form("t_area") & "<br>"end function%><HTML><head><Title>Test Free ASP Upload 2.0</Title><Meta http-equiv="Content-Type" content="text/HTML; charset=utf-8" /><style>BODY {background-color: white;Font-family:arial; Font-size:12}</style><script>function on@R_403_5555@Form() {    var formDOMObj = document.frmSend;    if (formDOMObj.attach1.value == "")        alert("Please press the browse button and pick a file.")    else        return true;    return false;}</script></head><BODY><br><br><div >Upload files to your server</div><%Dim diagnosticsif Request.ServerVariables("REQUEST_METHOD") <> "POST" then    diagnostics = TestEnvironment()    if diagnostics<>"" then        response.write "<div margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">"        response.write diagnostics        response.write "<p>After you correct this problem,reload the page."        response.write "</div>"    else        response.write "<div margin-left:150"">"        OutputForm()        response.write "</div>"    end ifelse    response.write "<div margin-left:150"">"    OutputForm()    response.write Savefiles()    response.write "<br><br></div>"end if%></BODY></HTML><!-- #include file="ADOVBS.inc" --><%'=======================================================================================' CONNECT DATABASE'=======================================================================================Dim objConn,objRsSet objConn = CreateObject("ADODB.Connection")Set objRs = CreateObject("ADODB.Recordset")objConn.open"ProvIDer=Microsoft.Jet.olEDB.4.0;Data Source="& server.MapPath("db/Job_database.mdb") &";Mode=ReaDWrite|Share Deny None;Persist Security Info=False"If Request("ApplicationForm") = "Insert" ThenSet InsCom=Server.CreateObject("ADODB.Command")InsCom.ActiveConnection=objConnInsname = Trim(request("name_insert"))Insname = replace(Insname,"'","''")InsCom.CommandText = "Insert into applications(aname)Values(?)"InsCom.Parameters.Append InsCom.CreateParameter("@name_insert",adVarChar,adParaminput,255,Insname)InsCom.ExecuteEnd If%>

我一直在寻找这个问题,但无法使其发挥作用.虽然我发现我必须使用FreeASPUpload提供的Form Collection.因此,我改变了

If Request("ApplicationForm") = "Insert" Then

对此

If Upload.Form("ApplicationForm") = "Insert" Then

但它也会返回一个错误,即:变量未定义:’上传’

如果我更改了Request方法,则只上传文件而不是插入记录

If Request.queryString("ApplicationForm") = "Insert" Then

我理解的是我的插入查询在错误的位置左右…

请帮我解决这个问题..谢谢

解决方法 我没有太多使用AspFreeUpload所以我在这里猜测一下.

似乎使用Request对象不是一个选项,所以你不得不使用Upload.Form.正如您的代码所代表的那样,Upload对象仅在Savefiles函数的上下文中定义和设置.

尝试将数据库插入代码移动到Savefiles函数中.这意味着从生产线切割所有东西

Dim objConn,objRs

InsCom.Execute

并在“结束功能”之前粘贴它

在调用函数之前,您可能还需要将include adovbs.inc指令移动到某处.最合乎逻辑的地方就是在你的另一个include指令= for uploadclass.asp的正下方

总结

以上是内存溢出为你收集整理的表单 – 如何使用FreeASPUpload脚本插入记录和上载文件全部内容,希望文章能够帮你解决表单 – 如何使用FreeASPUpload脚本插入记录和上载文件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/1102427.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-05-28
下一篇 2022-05-28

发表评论

登录后才能评论

评论列表(0条)

保存