ASP编程：无组件文件上传源代码
优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件上传|无组件|源代码动网论坛的无组件上传，以下是从动网论坛分别出来的代码。
若有更好用的请告知作者
网名：网海求生者
QQ：54883661
mail:wuyingke5155@163.com
saveannounce_upload.asp上传页
------------------------------------
<html>
<head>
<styletype="text/css">
body{font-size:9pt;}
input{font-size:9pt;}
</style>
<title>文件上传</title>
</head>
<body>
<formname="form"method="post"action="saveannouce_upfile.asp"enctype="multipart/form-data">
文件
<inputtype="file"name="file1"size=10>
<inputtype="submit"name="Submit"value="上传">
</form>
</body>
</html>
------------------------------------
saveannouce_upfile.asp保留文件到服务器
------------------------------------
<!--#includeFILE="upload.inc"-->
<html>
<head>
<title>文件上传</title>
</head>
<body>
<%
dimupload,file,formName,formPath
setupload=newupload_5xSoft创建上传工具
formPath=upload.form("filepath")在目次后加(/)
ifright(formPath,1)"/"thenformPath=formPath&"/"
foreachformNameinupload.file列出一切上传了的文件
setfile=upload.file(formName)天生一个文件工具
iffile.filesize<100then
response.write"<fontsize=2>请先选择你要上传的文件 [<ahref=#onclick=history.go(-1)>从头上传</a>]</font>"
response.end
endif
iffile.filesize>500*1000then设置上传文件巨细为500K
response.write"<fontsize=2>文件巨细凌驾了限定500K [<ahref=#onclick=history.go(-1)>从头上传</a>]</font>"
response.end
endif
iffile.FileSize>0then假如FileSize>0申明有文件数据
file.SaveAsServer.mappath("updata"&file.FileName)保留文件
endif
setfile=nothing
next
setupload=nothing
response.write"<fontsize=2>文件上传乐成[<ahref=#onclick=history.go(-1)>持续上传</a>]</font>"
%>
</body>
</html>
------------------------------------
upload.inc创建upload工具
------------------------------------
<SCRIPTRUNAT=SERVERLANGUAGE=VBSCRIPT>
dimupfile_5xSoft_Stream
Classupload_5xSoft
dimForm,File,Version
PrivateSubClass_Initialize
dimiStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dimstrDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version=""
ifRequest.TotalBytes<1thenExitSub
setForm=CreateObject("Scripting.Dictionary")
setFile=CreateObject("Scripting.Dictionary")
setupfile_5xSoft_Stream=CreateObject("Adodb.Stream")
upfile_5xSoft_Stream.mode=3
upfile_5xSoft_Stream.type=1
upfile_5xSoft_Stream.open
upfile_5xSoft_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.AddmForm</p>我想详细了解ASP整站代码与PSP整站代码有什么优缺点，那个更好，更安全，更用容易维护，和管理。。。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
页:
[1]