ASP网页编程之一个asp无组件上传的实例

asp是基于web的一种编程技术，可以说是cgi的一种。它可以完成以往cgi程序的所有功能，如计数器、留言簿、公告板、聊天室等等。上传|无组件<%
判别是不是增加了文件
DimulFileName,ulResult

ulSaveToPath="/upload"保留文件路径
ulMaxFileSize=1000000文件巨细限定1000,000

ulResult=DoUploadFile(ulMaxFileSize,ulFileName)

FunctionDoUploadFile(MaxUpLoadSize,FileName)
DimUpload,File,formName,formPath,FileExt
FileName=""
SetUpload=Newupload_yfly创建上传工具

IFIsNull(Upload.File)THEN
DoUploadFile=6
EXITFunction
ENDIF

IFUpload.File.Count=0Then
DoUploadFile=5NoFileuploaded
Else
SetFile=Upload.File("ulFileToUpload")
IfFile.FileName=""Then
DoUploadFile=4NoFileuploaded
Else
上传文件不是空的时分处置上传
在目次后加(/)
formPath=upload.Form("ulSaveFilePath")

IfRight(formPath,1)"/"Then
formPath=formPath&"/"
EndIf

IfFile.FileSize<100Then
DoUploadFile=1文件巨细太小
ExitFunction
EndIf

IfFile.FileSize>MaxUpLoadSizeThen
DoUploadFile=2文件巨细凌驾了限定
ExitFunction
EndIf

FileExt=LCase(Right(File.FileName,4))
uploadsuc=False

IfNot(FileExt=".gif"OrFileExt=".jpg")Then
DoUploadFile=3文件格局不准确
ExitFunction
EndIf

Randomize
ranNum=Int(90000*Rnd)+10000
文件名
FileName=formPath&Year(Now)&Month(Now)&Day(Now)&Hour(Now)&Minute(Now)&Second(Now)&ranNum&FileExt

IfFile.FileSize>0Then假如FileSize>0申明有文件数据
File.SaveAsserver.mappath(FileName)保留文件
EndIf
DoUploadFile=0
EndIf
SetFile=Nothing
EndIf
SetUpload=Nothing删除此工具
EndFunction

%>


<SCRIPTRUNAT="SERVER"LANGUAGE="VBSCRIPT">

dimupfile_yfly_Stream

Classupload_yfly

dimForm,File,Version

PrivateSubClass_Initialize
dimiStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dimstrDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version=""
File=NULL
Form=Null
upfile_yfly_Stream=NULL
ifRequest.TotalBytes<1thenExitSub
setForm=CreateObject("Scripting.Dictionary")
setFile=CreateObject("Scripting.Dictionary")
setupfile_yfly_Stream=CreateObject("Adodb.Stream")
upfile_yfly_Stream.mode=3
upfile_yfly_Stream.type=1
upfile_yfly_Stream.open
upfile_yfly_Stream.writeRequest.BinaryRead(Request.TotalBytes)

vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1,iDivLen)
iFormStart=iDivLen
iFormEnd=inString(iformStart,strDiv)-1
whileiFormStart<iFormEnd
iStart=inString(iFormStart,"name=""")
iEnd=inString(iStart+6,"""")
mFormName=subString(iStart+6,iEnd-iStart-6)
iFileNameStart=inString(iEnd+1,"filename=""")
ifiFileNameStart>0andiFileNameStart<iFormEndthen
iFileNameEnd=inString(iFileNameStart+10,"""")
mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)
ifiEnd>iStartthen
mFileSize=iEnd-iStart-4
else
mFileSize=0
endif
settheFile=newFileInfo
theFile.FileName=getFileName(mFileName)
theFile.FilePath=getFilePath(mFileName)
theFile.FileSize=mFileSize
theFile.FileStart=iStart+4
theFile.FormName=FormName
file.addmFormName,theFile
else
iStart=inString(iEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)

ifiEnd>iStartthen
mFormValue=subString(iStart+4,iEnd-iStart-4)
else
mFormValue=""
endif
form.AddmFormName,mFormValue
endif

iFormStart=iformEnd+iDivLen
iFormEnd=inString(iformStart,strDiv)-1
wend
EndSub

PrivateFunctionsubString(theStart,theLen)
dimi,c,stemp
upfile_yfly_Stream.Position=theStart-1
stemp=""
fori=1totheLen
ifupfile_yfly_Stream.EOSthenExitfor
c=ascB(upfile_yfly_Stream.Read(1))
Ifc>127Then
ifupfile_yfly_Stream.EOSthenExitfor
stemp=stemp&</p>ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。

仓酷云

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。