|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。上面是HTML文件用于上传3个文件
<blockquote>
<p><HTML><br>
<BODYBGCOLOR="#FFFFFF"><br>
<FORMMETHOD="POST"ENCTYPE="multipart/form-data"
ACTION="Upload.asp"><br>
<INPUTTYPE=FILENAME="FILE1"><BR><br>
<INPUTTYPE=FILENAME="FILE2"><BR><br>
<INPUTTYPE=FILENAME="FILE3"><BR><br>
<br>
<INPUTTYPE=TEXTNAME="DESCRIPTION"><BR><br>
<br>
<SELECTNAME="CATEGORY"MULTIPLE><br>
<OPTION>Image<br>
<OPTION>Text<br>
<OPTION>SourceCode<br>
<OPTION>Archive<br>
</SELECT><BR><br>
<br>
<INPUTTYPE=SUBMITVALUE="Upload!"><br>
</FORM><br>
</BODY><br>
</HTML><br>
</font></p>
</blockquote>
上传程序(Upload.asp):
<%
SetUpload=Server.CreateObject("Persits.Upload.1")
Uploadfiles
Upload.OverwriteFiles=FalseGenerateuniquenames
Upload.SetMaxSize1048576Truncatefilesabove1MB
Upload.Save"c:upload"
Processallfilesreceived
ForEachFileinUpload.Files
Saveinthedatabaseasblob
File.ToDatabase"DSN=data;UID=sa;PWD=zzz;",_
"insertintomytable(blob)values(?)"
Movetoadifferentlocation
File.Copy"d:archive"&File.ExtractFileName
File.Delete
Next
Displaydescriptionfield
Response.WriteUpload.Form("Description")&"
"
Displayallselectedcategories
ForEachIteminUpload.Form
IfItem.Name="Category"Then
Response.WriteItem.Value&"
"
EndIf
Next
%>
</p>asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。 |
|