本站为一个PHP个人门户网站,提供一些代码技术文章、提交免费空间消息、一些代码、让学习更轻松-PHP-小戴
你当前的位置:首页>>建站代码>>asp代码
小戴个人门户站导航 PHP小戴个人门户站 关于站长web个人门户站 设计服务-网络公司,建设网站,企业logo设计,包装设计,网站设计,整站程序开发 联系站长-小戴个人门户站
  • 技术文章排行榜
文章数据加载中...
  • 免费空间排行榜
空间数据加载中...

asp上传类运用代码

  • 这个上传代码是采用上传类完成的.应该是比较安全的.还有想要添加上传文件格式都比较方便,

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
    <%
    Response.Buffer=True
    Server.ScriptTimeOut=9999999 ’一千万
    On Error Resume Next
    %>

    <html >
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
    <title></title>
    </head>
    <body>

    <%
    Class HZTUpload

    Public filesize,filetype,filepath,reservefilename,formid,txtid
    Private formsize,formdata,bincrlf,oencrlfplace,twocrlfplace,ext,p,l,filename,savefilepath,rndfilename
    Private usingstream,stream,fso

    Private Sub Class_Initialize
           filesize=1024 ’文件大小,k
           filetype="gif,png,jpg,jpeg" ’文件类型
           filepath="Upload" ’保存目录
           reservefilename=0 ’0:不保留原文件名,1:保留原文件名    
           formid="myform"
           txtid="txt"
        
           Randomize()
           ’系统生成文件名
           rndfilename=Year(Now())&Month(Now())&Day(Now())&Hour(Now())&Minute(Now())&Second(Now())&Int((999999-100000+1)*Rnd()+100000)
        
           Set usingstream=Server.CreateObject("ADODB.Stream")
           Set stream=Server.Createobject("ADODB.Stream")
           Set fso=Server.CreateObject("Scripting.FileSystemObject")
    End Sub

    Private Sub Class_Terminate
           usingstream.Close():Set usingstream=Nothing
           stream.Close():Set stream=Nothing
           Set fso=Nothing
    End Sub

    Sub Upload() ’要返回的form和text的id

           If Right(filepath,1)<>"/" Then filepath=filepath&"/"
        
           formsize=Request.TotalBytes
           formdata=Request.BinaryRead(formsize)

           usingstream.Type=1
           usingstream.Open()
           usingstream.Write(formdata)

           bincrlf=ChrB(13)&ChrB(10) ’二进制回车换行
           oencrlfplace=InStrB(formdata,bincrlf) ’44,第一次回车换行位置
           twocrlfplace=InStrB(oencrlfplace+1,formdata,bincrlf) ’第二次回车换行位置


           stream.Type=1
           stream.Open()
           usingstream.Position=oencrlfplace+1
           usingstream.CopyTo stream,twocrlfplace-oencrlfplace-3 ’得到第二行数据,twocrlfplace-onecrlfplace-("长度)
           stream.Position=0
           stream.Type=2 ’字符串
           stream.CharSet="GB2312"
           streamtext=stream.Readtext() ’读取第二行数据
           stream.Close()

           filename=Mid(streamtext,InstrRev(streamtext,"")+1) ’得到文件名

           p=InStrB(formdata,bincrlf&bincrlf)+4 ’4为两次回车换行长度
           l=InStrB(p+1,formdata,LeftB(formdata,oencrlfplace-1))-p-2 ’文件内容部分长度,onecrlfplace-1为第一行数据(也是分隔符),2为回车换行长度
           stream.Type=1
           stream.Open()
           usingstream.Position=p-1
           usingstream.CopyTo stream,l ’文件内容数据

    ’---------------------------------------------------------------------------------------------------    
           Call CheckFolder(filepath) ’检测文件夹是否存在,如果不存在则创建
           ext=Right(filename,1+Len(filename)-InStrRev(filename,".")) ’文件扩展名:.gif
        
           If        reservefilename=0 Then     ’自动命名
               savefilepath=Server.MapPath(filepath&rndfilename&ext)
               filename=rndfilename&ext
           Else ’保留原文件名
               filename=CheckFile(Left(filename,InStrRev(filename,".")-1),ext)
               savefilepath=Server.MapPath(filepath&filename)
           End If
        
           If CheckExt(Mid(ext,2))=False Then Call Message(1) ’检测文件类型
           If ceil(stream.Size/1024)>filesize Then Call Message(2)’检测文件大小
    ’---------------------------------------------------------------------------------------------------
           stream.SaveToFile savefilepath,2 ’保存文件
        
           If Err.Number=0 Then
               Call Message(0)
           Else
               Call Message(404)
           End If
        
    End Sub

    Function ceil(v) ’实现JS中Math.ceil()
           If v>0 Then
               v=Fix(v)+Sgn(v-Fix(v))
           Else
               v=Fix(v)
           End If
           ceil=v
    End Function

    Function CheckFolder(foldername) ’检测文件夹是否存在,如果不存在则创建
           If fso.FolderExists(Server.MapPath(foldername)) Then
               Exit Function
           Else
               fso.CreateFolder(Server.MapPath(foldername))
           End If
    End Function

    Function CheckFile(fname,ext) ’检测文件是否存在,如果存在则重命名,如:重名文件(1).txt
           If fso.FileExists(Server.MapPath(filepath&fname&ext)) Then
               Dim i
               i=1
               Do While (fso.FileExists(Server.MapPath(filepath&fname&"("&i&")"&ext)))
                   i=i+1    
               Loop
            
               CheckFile=fname&"("&i&")"&ext
           Else
               CheckFile=fname&ext
           End If
    End Function

    Function CheckExt(ext) ’检测文件类型合法性
           Dim i,istrue,exts
           exts=Split(filetype,",")
           For i=0 To UBound(exts)
               If LCase(ext)=exts(i) Then
                   istrue=True
                   Exit For
              Else
                  istrue=False
              End If
          Next
          CheckExt=istrue
    End Function

    Sub Message(mi)
          Select Case mi
              Case 1:
                  Response.Write("<script>")
                  Response.Write("window.alert(’文件类型非法!’);history.back();")
                  Response.Write("</script>")
                  Response.End()
              Case 2:
                  Response.Write("<script>")
                  Response.Write("window.alert(’文件大小超过限制!’);history.back();")
                  Response.Write("</script>")
                  Response.End()
              Case 0:
                  Response.Write("<font color=’0000FF’>文件上传成功!</font>")
                  Response.Write("&nbsp;&nbsp;&nbsp;<a href=’"&Request.ServerVariables("URL")&"’>重新上传</a>")
                  Response.Write("<script>")
                  Response.Write("window.top.document."&formid&"."&txtid&".value=’"&filename&"’;")
                  Response.Write("</script>")
                  Response.End()
              Case 404:
                  Response.Write("<font color=’FF0000’>文件上传失败!</font>")
                  Response.Write("&nbsp;&nbsp;&nbsp;<a href=’"&Request.ServerVariables("URL")&"’>重新上传</a>")
                 Response.End()
         End Select
    End Sub

    End Class

    If Request.TotalBytes>0 Then
         Set hg=New HZTUpload
         ’hg.filepath="Pic/" ’文件保存路径,默认:Upload
         ’hg.filetype="gif,png,jpg,jpeg,rar" ’文件类型,默认:gif,png,jpg,jpeg
         ’hg.filesize=1024 ’文件大小,单位k,默认:1024
         ’hg.reservefilename=0 ’是否保留原文件名,0:否,1:是,默认:0
         hg.formid="mf" ’接收文件名的form的id,默认:myform
         hg.txtid="txt" ’接收文件名的text的id,默认:txt
         hg.Upload() ’保存文件,form名称,text名称
    Else
    %>
    <form id="mf" name="mf" method="post" action="<%=Request.ServerVariables("URL")%>" enctype="multipart/form-data">
    <input type="file" id="f" name="f" />
    <br />
    <input type="submit" value="提交" />
    <input type="reset" value="重置" />
    </form>
    <%End If%>
    </body>
    </html>


  • [时间:2008-12-02 10:09:07][点击:]

  • 上下篇文章加载中...
返回首页 | 关于站长 | 联系站长| 设计服务 | 建站资源 | 技术文章 | 娱乐中心 | 免费空间 | 友情链接 | 留言蜚语 | 网站地图| 网友投稿|RSS订阅 
QQ:277728291 联系方式:15824537062 mail:27772821@163.com
版权所有 2008-2018 PHP小戴个人门户站-编程技术和空间和文章共享-www.phpxd.com Copyright 2008 phpxd.com