|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。上传|无组件 <!--#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
%>
</p> 缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全 |
|