WEB开发网
开发学院WEB开发ASP 一个的无组件上传的ASP代码 阅读

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

 2002-01-24 11:08:25 来源:WEB开发网   
核心提示:<!--#include file="../lib/filelib.asp"--><%Response.write "<title>上传文件至当前文件夹</title>"Response.Write "<body bgco
<!--#include file="../lib/filelib.asp"-->
<%
  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
%>

Tags:一个 组件 上传

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接