Question

我正在尝试使用经典的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
%>

当我提交表单时，我收到以下错误，文件已上传 Microsoft VBScript运行时错误＆＃39; 800a01a8＆＃39;

Object required: ''

/admin/test.asp, line 26

line 26 -   cia = Upload.Form("myname")

Answer 1

我发现您的代码存在两个问题。

1）您正在声明如下文本框：

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

但是你试图使用ID（name12）来获得它的价值，但是你需要使用它来获得它的名称＆＃34;名称＆＃34; （MYNAME）。

2）另外，您应该使用objUpload.Form代替Upload.Form因为Upload似乎不存在，因此错误。

您可以通过替换此行来解决这两个问题......

cia = Upload.Form("name12")

...与...

cia = objUpload.Form("myname")

（或更改名称以匹配ID）

图像上传到经典ASP

1 个答案: