繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个的无组件上传的ASP代码
- ASP
- 介绍一下GETROWS的用法
- 一个在vbscript中读取cookie的程序函数
- 用err.raise自定义错误信息
- 一段返回随机记录的代码
- 基于ACCESS数据库的纯asp论坛制作心得
- 不用Golobal.asa和session实现在线人数统计
- 在ASP里建表
- 结束ADOVB.INC的办法
- 存储过程分页
- 友情连接浏览器
- 怎样使用ASP实现Ping
- 用ASP读取Windows标准INI格式文件
- 使用ActiveX控件开发网页常见的问题
- 两个获取http页面的c#函数
- 将html源代码规范化，转换成XSL代码的asp工具
- 已调试好的asp程序在VB中转换为组件的技巧
- 关于如何动态地在同一页面实现两个互传
- 关于图片与文本同存在数据库中的具体思路
- 实现分页的例子-使用存储过程来实现分页
- 使用索引服务器- 使用索引服务器的对象
一个的无组件上传的ASP代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 221 ::
收藏到网摘: 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
