一个老个写的无组件上传，呵呵。有意思。

2022-07-15 80酷酷网 80kuku.com

上传|无组件
<%
    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>
"
    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>
"
    Next
    Response.Write "
<center><INPUT type=submit value=""开始上传"">  <INPUT type='button' value= '取消上传' Binary
            strm1.Write RequestBin
            strm1.Position=ValueBeg
            strm1.CopyTo strm2,ValueLen
            strm2.SaveToFile Dir & fName,2
            Set strm1=Nothing
            Set strm2=Nothing
        End If
     Next
    If Now>StartTime Then Response.Wr