ASP教程之一个老个写的无组件上传，呵呵。成心思...

因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。上传|无组件<!--#includefile="../lib/filelib.asp"-->
<%
Response.write"<title>上传文件至以后文件夹</title>"
Response.Write"<bodybgcolor=""#D6D3CE""leftmargin=""0""topmargin=""0""title=""请您恪守国度相干功令律例上传文件。上传前请杀毒，不然体系将会主动删除此文件！"">"

**StartEncode**
Action=Request("A")
IfAction="UL"Then
DoUploadRequest.Cookies("DAZHOU.NET")("nowpath")&""
CheckDiskSpace
Response.redirect"fileman.asp"
Else
ShowUploadForm
EndIf

Setfso=Nothing
========================
SUBShowUploadForm
========================
Response.write"<Dir><formenctype=multipart/form-dataname=fmuploadmethod=Postaction=Upload.asp?A=UL><br>"
IfRequest("n")""ANDIsNumeric(Request("n"))ThenSession("NumUploadFields")=CInt(Request("n"))
Fori=1to5
Response.Write"<INPUTtype=filename=file"&i&"size=35><br>"
Next
Response.Write"<br><center><INPUTtype=submitvalue=""入手下手上传""><INPUTtype=buttonvalue=作废上传Binary
strm1.WriteRequestBin
strm1.Position=ValueBeg
strm1.CopyTostrm2,ValueLen
strm2.SaveToFileDir&fName,2
Setstrm1=Nothing
Setstrm2=Nothing
EndIf
Next
IfNow>StartTimeThenResponse.Wr</p>由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；