难道就没有高手了吗,发个无组件上传文件代码给我!
来源:百度知道 编辑:UC知道 时间:2024/06/23 17:20:14
请大家发个无组件上传代码给我!
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
'''''''''''''''''''''''''''''''''''''''''''''''''
'
'请保留此信息: 稻香老农制作, Zhuho修改
'
'''''''''''''''''''''''''''''''''''''''''''''''''
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