当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个的无组件上传的ASP代码

ASP
[原创]本人常用的asp代码
asp防止刷新功能
生成所有页面的效果+分页生成
ASP在SQL Server 2000中新建帐号和权限
PR值查询代码制作
GetRows的用法详解！
ASP简洁的多重查询的解决方案
ASP实现SQL备份、恢复
用ASP写组件
ASP中Request对象获取客户端数据的顺序(容易忽略)
利用Adodb.Stream制作彩色验证码
ASP 类 Class入门 推荐
asp数据库防下载处理
浏览文件夹下面所有图片
结合asp和存储过程做的搜索程序
实现支持逻辑搜索/单词搜索/词组搜索+支持OR/AND关键字的VBS CLASS!
支持加号空格的查询
取得表单提交的所有数据
发邮件的asp(CDONTS.NewMail)
使用FSO把文本信息导入数据库

No. « 33 34 35 36 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 94 ::
收藏到网摘: n/a

  <!--#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= '取消上传' 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