兄弟我初学asp ，做了个文件上传的页面，在本机上测试通过，让本机做虚拟服务器

用朋友机器做客户端测试时，开始成功了，在没改动代码的情况下，再用他的机器上传

就显示出错！

错误提示：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a0035'

文件未找到

/a/z/admin/inc/upload.asp，行62


页面代码：

<%
Function upload(filename,filetype)

IF ZD_AllowUpload = True Then
dim allowSoftType,allowImgType,getType,getName,a,i,check_type,tem_allow,upFile
'========================================================
allowSoftType="rar,txt,doc,xls" '定义允许上传的软件格式。
allowImgType="gif,jpeg,jpg,bmp,png" '定义允许上传的图片格式。
upFile = "upfile/"
'========================================================
for i=1 to len(filename) '得到文件名
a=mid(filename,len(filename)-i+1,1)
IF a="\" Then
exit for
End IF
getName=a+getName
next
getName=Replace(Cstr(date()),"-","")&cstr(cLng(timer()))&getName

for i=1 to len(getName) '得到扩展名
a=mid(getName,len(getName)-i+1,1)
IF a="." Then
exit for
End IF
getType=a+getType
next

IF filetype="soft" Then
tem_allow=split(allowSoftType,",")
savename=upFile&getName
filemap=server.mappath("../"&upFile&getName)
End IF
IF filetype="img" Then
tem_allow=split(allowImgType,",")
savename=upFile&getName
filemap=Server.Mappath("../"&upFile&getName)
End IF

for i=0 to ubound(tem_allow) '判断护展名是否合法
IF Lcase(tem_allow(i))=Lcase(getType) Then
check_type="true"
exit for
Else
check_type="false"
End IF
next

IF check_type="true" Then
set fs=Server.CreateObject("scripting.FileSystemObject")
IF Err>0 Then
upload = "服务器不支持FSO!"
Exit Function
End IF
'Response.Write filename&"++++"&filemap
'此处用response.Write输出filename, filemap在客户端（朋友机器）都成输出正确的文件名和地址，
fs.copyfile filemap '到了这句就执行不下去了，提示上面的错误代码
set fs=nothing
upload=savename
call SaveLog(Session("member"),"成功上传文件从"&filename&"到:"&filemap,now(),"文件上传",getIP(),true)
Else
upload="失败！"&gettype&"格式是不允许上传的，请联系管理员。"
call SaveLog(Session("member"),"操作失败,非法的格式文件上传!",now(),"文件上传",getIP(),false)
End IF
Else
upload = "当前服务器设置不允许上传!"
End IF
End Function
%>

[此贴子已经被作者于2005-11-30 11:20:45编辑过]