一个的无组件上传的ASP代码

　2002-01-24 11:08:25　来源：WEB开发网　　　

核心提示：<%Response.write "<title>上传文件至当前文件夹</title>"Response.Write "<body bgco

<%
　　Response.write "<title>上传文件至当前文件夹</title>"
　　Response.Write "<body bgcolor=""#D6D3CE"" leftmargin=""0"" topmargin=""0"" title = ""　　请您遵守国家相关法律法规上传文件。上传前请杀毒，否则系统将会自动删除此文件！"">"

'**Start Encode**
Action=Request("A")
If Action="UL" Then
　　　　DoUpload Request.Cookies("DAZHOU.NET")("nowpath") & "\"
　　　　'CheckDiskSpace
'　　　　Response.redirect "fileman.asp"
Else
　　ShowUploadForm
End If

Set fso=Nothing
'========================
SUB ShowUploadForm
'========================
　　Response.write "<Dir><form enctype=multipart/form-data name=fmupload method=Post action=Upload.asp?A=UL><br>"
　　If Request("n")<>"" AND IsNumeric(Request("n")) Then session("NumUploadFields")=CInt(Request("n"))
　　For i=1 to 5
　　　　Response.Write "<INPUT type=file name=file"& i & " size=35><br>"
　　Next
　　Response.Write "<br><center><INPUT type=submit value=""开始上传"">　<INPUT type='button' value= '取消上传' ====================================
　　getString =""
　　For intCount=1 to LenB(StringBin)
　　　　getString=getString & chr(AscB(MidB(StringBin,intCount,1)))
　　Next
End Function
%>