|
#2
madpbpl2007-11-28 13:10
|
兄弟最近在学习利用ASP上传文件，在网上得到如下程序，如法炮制却总是出现如下错误：
[font=宋体]
Microsoft VBScript 编译器错误 错误 '800a03f6' [/font]
[font=宋体]缺少 'End' /iisHelp/common/500-100.asp，行242 [/font]
[font=宋体]ADODB.Stream 错误 '800a0bb9' [/font]
[font=宋体]变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。 [/font]
[font=宋体]/upload/upload.asp，行13
---------------------------------------------------------
另外我用response.write strFileName 怎么没有结果显示，按理说出现上传文件的路径吧？？？？
文件代码如下：
[/font]upload.asp文件
<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function
strFileName = Request.Form("file1")
Set objStream = Server.CreateObject("adobe.stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName **就是这一行**
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
%>
upload.htm文件
<form name="FORM" action="upload.asp" method="post" enctype="multipart/form-data">
<input type="submit" name="submit" value="OK">
<input type="file" name="file1" style="width:400" value="">
</form>
[[italic] 本帖最后由 sgrwhd 于 2007-11-28 20:01 编辑 [/italic]]
