Vbscript 将图像上载到经典ASP中的文件夹

我正在尝试使用经典asp将图像上载到文件夹中。我可以上传图像到一个文件夹，但不能得到其他输入字段的值

<%@ Language="VBScript" %>
<!--<span class="code-comment"> #include file="vbsUpload.asp" </span>-->
<form method=post
  enctype="multipart/form-data"
  action=<%=request.servervariables("script_name")%>>
Your File:<BR><input type="file" name="YourFile"><BR>
<input type="text" name="myname" id="name12"> 
<BR>
<input type="submit" name="submit" value="Upload">
</form>
<% Dim objUpload, lngLoop, cia
If Request.TotalBytes > 0 Then
Set objUpload = New vbsUpload

For lngLoop = 0 to objUpload.Files.Count - 1
'If accessing this page annonymously,
'the internet guest account must have
'write permission to the path below.
objUpload.Files.Item(lngLoop).Save "c:\inetpub\wwwroot\puntoseguro\admin\image\"

Response.Write "File Uploaded"

Next
 cia = Upload.Form("myname")

End if
%>

---

我发现你的代码有两个问题

1） 您是这样声明文本框的：

<input type="text" name="myname" id="name12"> 

…与

cia = objUpload.Form("myname")

---

（或更改名称以匹配ID）

您将无法以本机方式读取表单字段和图像上载。解决方法是使用上载组件或类似于此的脚本。另一个选项是将上载内容放入iFrame中，并在文件字段更改时使用一些脚本开始上载。或者，使用ajax上传，这将是一种更优雅的处理方式。@Frank，objUpload似乎指的是一个纯ASP上传脚本，因此，看起来有些东西已准备就绪，可以容纳上载。但仍无法显示错误Microsoft VBScript运行时错误“800a01b6”对象不支持此属性或方法错误出现在哪一行？为什么

被注释掉了-代码中是否有其他未显示的include（您是否尝试取消注释）？

cia = Upload.Form("name12")

cia = objUpload.Form("myname")