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

来源：百度知道 编辑：UC知道 时间：2024/05/30 10:41:43
显示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－－－－－然后点击上传按钮就可以把图片上传了...\n\

<!--#include FILE="upload_5xsoft.inc"-->

upload_5xsoft.inc文件里的代码用以下代码替换

<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
str