繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个的无组件上传的ASP代码
- ASP
- asp获取客户端某一个图片的x,y坐标的代码
- asp编程中常用的javascript辅助代码
- asp下生成目录树结构的类
- [原创]站长感慨asp编程究竟何去何从
- asp水印组件之AspJpeg的结合代码实例
- asp实现dig功能的js代码
- [原创]asp下用实现模板加载的的几种方法总结
- asp常用函数集合，非常不错以后研究
- 一个asp替换函数img里面多余的代码
- 检查上传图片是否合法的函数,木马改后缀名、图片加恶意代码均逃不过
- 一想千开PJblog审核功能补丁 v2.0版 发布
- asp汉字中文图片验证码
- 用asp实现网页调用doc附Response.ContentType 详细列表
- 利用MSXML2.XmlHttp和Adodb.Stream采集图片
- [原创]asp获取URL参数的几种方法分析总结
- asp实现的可以提醒生日的几种方法附代码
- Asp无组件生成缩略图的代码
- 功能不错的asp模板类代码附下载
- 不用WinRar只有asp将网络空间上的文件打包下载
- AJAX简单应用实例-弹出层
一个的无组件上传的ASP代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 243 ::
收藏到网摘: n/a
<%
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= '取消上传' onclick='window.close()'> "
Response.Write "</form>"
End SUB
'========================
SUB DoUpload(Dir)
'========================
'If NOT Application("Debugging") Then On Error resume next
StartTime=Now
RequestBin=Request.BinaryRead(Request.TotalBytes)
Set UploadRequest=CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin, UploadRequest
keys=UploadRequest.Keys
For i=0 to UploadRequest.Count - 1
curKey=keys(i)
fName=UploadRequest.Item(curKey).Item("FileName")
If fso.FileExists(Dir & fName) Then fso.deletefile Dir & fName
If fName<>"" AND NOT fso.FileExists(Dir & fName) Then
value=UploadRequest.Item(curKey).Item("Value")
valueBeg=UploadRequest.Item(curKey).Item("ValueBeg")
valueLen=UploadRequest.Item(curKey).Item("ValueLen")
TotalULSize=TotalULSize + valueLen
Set strm1=Server.CreateObject("ADODB.Stream")
Set strm2=Server.CreateObject("ADODB.Stream")
strm1.Open
strm1.Type=1 'Binary
strm2.Open
strm2.Type=1 'Binary
&nb
评论 (0) All
