求助!! 错误 '800a000d'类型不匹配: '[string: ""]' /co2/system/cdepb ?
以下是/co2/system/cdepb 的代码,提示错误:Microsoft VBScript 运行时错误 错误 '800a000d'类型不匹配: '[string: ""]'
/co2/system/cdepb/upsave.asp,行 31
我用的是风声无组件上传类 V2.1
我是初学的菜鸟,哪位大侠给解决一下,这个该怎么改?谢谢啦
比较急,在线等~
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="UpLoadClass.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
font-family: "Times New Roman", Times, serif;
font-size: 9pt;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style></head>
<body>
<%
Dim objUp
set objUp=New UPloadClass
objUp.MaxSize=10240*1024
objUp.SavePath="UpFiles/"
objUp.AutoSave=0
objUp.Open()
Select Case objUp.Form("myfile_Err")
Case -1
Response.Write"上传没有开始,程序错误。"
Case 0
Response.Write"成功。"
Case 1
Response.Write"文件太大,上传失败,最多允许"&objUp.MaxSize&"字节。"
Case 2
Response.Write"上传类型不支持。请上传"&objUp.FileType&"文件。"
Case 3
Response.Write"上传的文件太大且文件类型不支持。"
Case 4
Response.Write"系统异常,请稍后重试。"
End Select
Set objUp=Nothing
%>
</body>
</html>
--------------------编程问答-------------------- objUp.SavePath="UpFiles/"
改为objUp.SavePath="UpFiles"
试试
补充:VB , 非技术类