ASP网页编程之一个老个写的无组件上传

显示全部楼层 · 发表于 2015-2-3 23:40:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

专业性的服务。有的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安全

显示全部楼层 · 发表于 2015-5-1 22:16:56

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页编程之一个老个写的无组件上传

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子