类没有被定义: 'upload_F'(追加80分)

来源：百度知道 编辑：UC知道 时间：2024/05/26 08:02:59
<img border="0" src="pic/
Microsoft VBScript 运行时错误 '800a01fa'
类没有被定义: 'upload_f'
\admin\upfile.asp, line 11

<!--#include FILE="upload.inc"-->
<html>
<head><title></title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#CEDBFF">
<font color="#FF0000"><span style="font-size: 9pt"><img border="0" src="pic/<%
nowtime=now()
sj=cstr(year(nowtime))+"-"+right("0"+cstr(month(nowtime)),2)+"-"+right("0"+cstr(day(nowtime)),2)
dim upload,file,formName,formPath,iCount,pic
set upload=new upload_f '建立上传对象
'--------将日期转化成文件名--------
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","

估计是你的upload.inc这个文件有问题
请将upload.inc里面内容全部删除(先备份)
再替换成以下内容

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
dim upfile_Stream
Class upload_F
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="upload Version 1.0"
if Request.TotalBytes<1 then Exit Sub
set Form=CreateObject("Scripting.Dictionary")
set File=CreateObject("Scripting.Dictionary")
set upfile_Stream=CreateObject("Adodb.Stream")
upfile_Stream.mode=3
upfile_Stream.type=1
upfile_Stream.open
upfile_Stream.write Request.BinaryRead(Request.TotalBytes)

vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1,iDivLen)
iFormStart=iDivLen
iFormEnd=inString(iformStart,strDiv)-1
while iF