紧急求帮，ASP缺少对象: 'upload_5xsoft'

来源：百度知道 编辑：UC知道 时间：2024/06/21 23:20:38
显示Microsoft VBScript 运行时错误 '800a01a8'

缺少对象: 'upload_5xsoft'

\admin\news\upload2.asp, line 15

以下是程序

<!--#include FILE="upload_inc.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<style>
body { font-size:9pt }
</style>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script>
if (top.location==self.location){
top.location="login.asp"
}
</script>
<%
set upload=new upload_5xsoft
set file=upload.file("sf_upfile")
if file.fileSize<1 then
response.write"<script language=javascript>alert('您没有选择图片。我们可没法为您服务哦~~~\n\n－－－－－请点击浏览按钮，从弹出的窗口中选择要上传的图片。\n\n－－－－－然后点击上传按钮就可以把图片上传

好像是网上的一个模版修改的吧。那个upload_inc.asp(其实是upload.inc)的文件如下，是定义一个upload_5xsoft类。你把下面的代码放到upload_inc.asp里试试
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

dim upfile_5xSoft_Stream

Class upload_5xSoft

dim Form,File,Version

Private Sub Class_Initialize
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version=""
if Request.TotalBytes<1 then Exit Sub
set Form=CreateObject("Scripting.Dictionary")
set File=CreateObject("Scripting.Dictionary")
set upfile_5xSoft_Stream=CreateObject("Adodb.Stream")
upfile_5xSoft_Stream.mode=3
upfile_5xSoft_Stream.type=1
upfile_5xSoft_Stream.open
upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)

vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1