ASP网页设计ASPUpload上传的完成代码（测试经由过程）4...

只看该作者 · 发表于 2015-1-16 22:58:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。aspupload|上传uploadfile.asp

<!doctypehtmlpublic"-//W3C//DTDHTML4.0Transitional//EN">
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="Keywords"content="">
<metaname="Author"content="haiwa">
<title>Upload</title>
<style>

</style>
</head>
<body>
<%
OnErrorResumeNext
Server.ScriptTimeOut=999999
ifrequest("act")="upload"then
dimfolder,savepath
savepath=Server.MapPath(UploadFilePath)
CreateFolder(savepath)
SetUpload=Server.CreateObject("Persits.Upload")
Upload.SetMaxSizeUploadLimitSize*1024,True
Upload.OverwriteFiles=false
ifRequest.QueryString("PID")=""then
Upload.ProgressID="010D60EB00C5AA4B"
else
Upload.ProgressID=Request.QueryString("PID")
endif
Count=Upload.Save(savepath)
IfErr.Number0Then
Response.Write"<divstyle=""color:red;font-size:12px;"">呈现毛病:"&Err.Number&"、"&Err.Description&"<ahref=""javascript:history.go(-1)"">从头上传</a></div>"
EndIf
IfErr.Number=8Then
Response.Write"<divstyle=""color:red;font-size:12px;"">你上传的文件凌驾限定（"&UploadLimitSize/1024&"M）<ahref=""javascript:history.go(-1)"">从头上传</a></div>"
response.end
endif
diminputname
dimsize,rs_upfile
ForEachFileinUpload.Files
ifnotCanUpload(File.ext)then
File.Delete
response.write"<divstyle=""color:red;font-size:12px;"">"&file.filename&"("&file.size&")格局不准确！<ahref=""javascript:history.go(-1)"">从头上传</a></div>"
else
response.write"<divstyle=""color:green;font-size:12px;"">上传乐成"%><ahref="javascript:history.go(-1)">从头上传</a></div><%
endif
next
else
%>
<%
dimSPid,PID,barref
SetUploadProgress=Server.CreateObject("Persits.UploadProgress")
SPid=UploadProgress.CreateProgressID()
PID="PID="&SPid
barref="framebar.asp?to=10&"&PID
%>
<SCRIPTLANGUAGE="JavaScript">
functionShowProgress()
{
strAppVersion=navigator.appVersion;
if(document.MyForm.FILE1.value!="")
{
if(strAppVersion.indexOf(MSIE)!=-1&&strAppVersion.substr(strAppVersion.indexOf(MSIE)+5,1)>4)
{
winstyle="dialogWidth=375px;dialogHeight:175px;center:yes;status:no";
window.showModelessDialog(<%=barref%>&b=IE,window,winstyle);
}
else
{
window.open(<%=barref%>&b=NN,,width=370,height=165,true);
}
}
returntrue;
}
functionchk()
{
if(MyForm.FILE1.value=="")
{
alert("请从硬盘选择你要上传的文件...");
returnfalse;
}
}
</SCRIPT>
<FORMNAME="MyForm"method="post"ENCTYPE="multipart/form-data"ACTION="?<%=PID%>&act=upload"OnSubmit="returnShowProgress();">
<INPUTNAME="FILE1"TYPE="FILE"SIZE="16"><inputname="Submit"type="submit"value="上传"onclick="returnchk()"></FORM>
<%endif%>
</body>
</html></p>由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。

只看该作者 · 发表于 2015-1-20 06:58:47

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

只看该作者 · 发表于 2015-1-24 12:05:50

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

只看该作者 · 发表于 2015-1-27 07:26:27

没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

只看该作者 · 发表于 2015-2-1 05:22:03

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

只看该作者 · 发表于 2015-2-1 18:48:03

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

只看该作者 · 发表于 2015-2-7 13:51:41

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

只看该作者 · 发表于 2015-2-22 03:38:46

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

只看该作者 · 发表于 2015-3-6 22:58:04

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

只看该作者 · 发表于 2015-3-13 22:08:51

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页设计ASPUpload上传的完成代码（测试经由过程）4...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子