ASP文件上传代码

在网上看到的代码，稍微有点问题，改了一下就可以了。Chrome下是可以用的，别的浏览器还没有确认。

<%

  Response.Buffer = True

  Server.ScriptTimeOut=9999999

  On Error Resume Next

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

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

<meta http-equiv="Content-Language" content="zh-cn" />

<meta content="all" name="robots" />

<meta name="author" content="木目,Woodeye" />

<meta name="description" content="木目ASP文件上传工具" />

<meta name="keywords" content="木目,ASP,Upload,文件上传" />

<style type="text/css">

<!--

body,input {font-size:12px;}

-->

</style>

<title>木目ASP文件上传工具</title>

</head>

<body id="body">

<%

  ExtName = "jpg,gif,png,bmp"    '允许扩展名

  SavePath = "image"          '保存路径

  If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)

  CheckAndCreateFolder(SavePath)

  UpLoadAll_a = Request.TotalBytes '取得客户端全部内容

  If(UpLoadAll_a>0) Then

    Set UploadStream_c = Server.CreateObject("ADODB.Stream")

    UploadStream_c.Type = 1

    UploadStream_c.Open

    UploadStream_c.Write Request.BinaryRead(UpLoadAll_a)

    UploadStream_c.Position = 0

    FormDataAll_d = UploadStream_c.Read

    CrLf_e = chrB(13)&chrB(10)

    FormStart_f = InStrB(FormDataAll_d,CrLf_e)

    FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)

    Set FormStream_h = Server.Createobject("ADODB.Stream")

    FormStream_h.Type = 1

    FormStream_h.Open

    UploadStream_c.Position = FormStart_f + 1

    UploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3

    FormStream_h.Position = 0

    FormStream_h.Type = 2

    FormStream_h.CharSet = "GB2312"

    FormStreamText_i = FormStream_h.Readtext

    FormStream_h.Close

    FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"filename=")+10,FormEnd_g)

    If(CheckFileExt(FileName_j,ExtName)) Then

      SaveFile = Server.MapPath(SavePath & FileName_j)

      If Err Then

        Response.Write "文件上传： <span style=""color:red;"">文件上传出错!</span> <a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"

        Err.Clear

      Else

        SaveFile = CheckFileExists(SaveFile)

        k=Instrb(FormDataAll_d,CrLf_e&CrLf_e)+4

        l=Instrb(k+1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2

        FormStream_h.Type=1

        FormStream_h.Open

        UploadStream_c.Position=k-1

        UploadStream_c.CopyTo FormStream_h,l

        FormStream_h.SaveToFile SaveFile,2

        SaveFileName = Mid(SaveFile,InstrRev(SaveFile,"\")+1)

        Response.write "文件上传： <span style=""color:red;"">" & SaveFileName & " </span>文件上传成功! <a href=""" & Request.ServerVariables("URL") &""">继续上传文件</a><br />"

      End If

    Else

      Response.write "文件上传： <span style=""color:red;"">文件格式不正确!</span> <a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"

    End If

  Else

%>

<script language="Javascript">

<!--

function ValidInput()

{

if(document.upform.upfile.value=="")

  {

    alert("请选择上传文件！")

    document.upform.upfile.focus()

    return false

  }

  return true

}

// -->

</script>

<form action='<%= Request.ServerVariables("URL") %>' method='post' name="upform" onsubmit="return ValidInput()"  enctype="multipart/form-data">

文件上传：

<input type='file' name='upfile' size="40"> <input type='submit' value="上传">

</form>

<%

  End if

  Set FormStream_h = Nothing

  UploadStream.Close

  Set UploadStream = Nothing

%>

</body>

</html>

<%

  '判断文件类型是否合格

  Function CheckFileExt(FileName,ExtName) '文件名,允许上传文件类型

    FileType = ExtName

    FileType = Split(FileType,",")

    For i = 0 To Ubound(FileType)

      If LCase(Right(FileName,3)) = LCase(FileType(i)) then

      CheckFileExt = True

      Exit Function

      Else

      CheckFileExt = False

      End if

    Next

  End Function

  '检查上传文件夹是否存在，不存在则创建文件夹

  Function CheckAndCreateFolder(FolderName)

    fldr = Server.Mappath(FolderName)

    Set fso = CreateObject("Scripting.FileSystemObject")

    If Not fso.FolderExists(fldr) Then

      fso.CreateFolder(fldr)

    End If

    Set fso = Nothing

  End Function

'检查文件是否存在，重命名存在文件

Function CheckFileExists(FileName)

  Set fso=Server.CreateObject("Scripting.FileSystemObject")

  If fso.FileExists(SaveFile) Then

    i=1

    msg=True

    Do While msg

      CheckFileExists = Replace(SaveFile,Right(SaveFile,4),"_" & i & Right(SaveFile,4))

      If not fso.FileExists(CheckFileExists) Then

        msg=False

      End If

      i=i+1

    Loop

  Else

    CheckFileExists = FileName

  End If

  Set fso=Nothing

End Function

%>

ASP文件上传代码的更多相关文章

asp 文件上传(无组件上传)
文件1.上传界面文件 upload.htm<html><head><meta http-equiv="Content-Language" conten ...
servlet3.0获取参数与文件上传代码示例
转: servlet3.0获取参数与文件上传代码示例 2018年08月26日 20:25:35 苏凯勇往直前阅读数:98 package com.igeek.servlet; import ...
php文件上传代码解析
php文件上传代码解析 is_uploaded_file() //函数判断指定的文件是否是通过 HTTP POST 上传的,返回一个布尔值. $_FILES['upfile']['tmp_name' ...
实现Magento多文件上传代码功能开发
在Magento中上传单个文件很简单,可以直接在继承的Mage_Adminhtml_Block_Widget_Form类中直接添加如下组件Field: 对于图片: $fieldset->a ...
（实用篇）php处理单文件、多文件上传代码分享
php处理单文件.多文件上传实例代码,供大家参考,具体内容如下后台处理文件submit_form_process.php <?php /************************** ...
PHP文件上传代码和逻辑详解
文件上传的逐步完善------ [简单的上传:] <form action="upload.php" method="post" enctype= ...
PHP 图片文件上传代码
通过 PHP,可以把文件上传到服务器.里面加入一些图片的判断,如果不加判断文件的类型就可以上传任意格式的文件. 为了网站的安全,肯定不让上传php文件,如果有人进入你的后台,上传了一个php文件,你的 ...
PHP 图片文件上传代码分享
分享下php上传图片文件的一段代码,挺不错的. 通过 PHP,可以把文件上传到服务器.加入一些图片的判断,如果不加判断文件的类型就可以上传任意格式的文件. 当然了,会禁止上传php文件,以及其它程序代 ...
asp 文件上传(ASPUpload组件上传)
要实现该功能,就要利用一些特制的文件上传组件.文件上传组件网页非常多,这里介绍国际上非常有名的ASPUpload组件 1 下载和安装ASPUpload 要实现该功能,就要利用一些特制的文件上传组件 ...

随机推荐

Oracle 跨库查询复制表数据分布式查询
方法一: 在眼下绝大部分数据库有分布式查询的须要.以下简单的介绍怎样在oracle中配置实现跨库訪问. 比方如今有2个数据库服务器,安装了2个数据库.数据库server A和B.如今来实如今A库中訪问 ...
关于easyui的tab，layout，datagrid嵌套的问题
我的项目使用easyui作为前台的展示框架现在页面中是一个layout布局(分上,左,中)在左边是一些菜单,点击后,在中间部分增加一个tab显示内容而增加的tab里面是显示一些列表数据,列表上面是查询 ...
1951: [Sdoi2010]古文字猪
1951: [Sdoi2010]古代猪文链接:Click Here~ 题目: 一道非常好的组合数学题.!!.题目非常长.只是就以下几段话实用. iPig认为仅仅要符合文献,每一种能整除N的k都是有可 ...
ASP.NET页面生命周期和asp.net应用程序生命周期
作为一个asp.net程序员,不了解ASP.NET页面生命周期和asp.net应用程序生命周期是绝对不行的,那永远只能是菜鸟级别.我很早就学过,可是没次还是得去翻,一些事件还是记不住,还是记在自己的b ...
在PHP中连接数据库时获取最后的一个ID
在SQL中获取最后的一个id 只需要加上where条件对id进行排序就可以了但是在PHP中有一种最新的方法使用mysql_insert_id();就可以获得最大的id .
sqlclr创建表值函数案例
----------------------------------------------:定义表值类型:(1.一定返回的是IEnumerable2.一定带参数3.一定有FillRowMethodN ...
字符串的使用(string,StringBuffer,StringBuilder)
String中==与equals的区别:==比较字符串中的引用相等equals比较字符串中的内容相等(因为字符串有重写equals方法) string常用的方法返回类型方法操作功能 Char c ...
Amazon前技术副总裁解剖完美技术面试
Amazon前技术副总裁解剖完美技术面试投递人 itwriter 发布于 2014-03-03 14:30 评论(0) 有1729人阅读原文链接 [收藏] « » 英文原文:The Anat ...
SQL 内存数据库的细节
解读SQL 内存数据库的细节相信大家对内存数据库的概念并不陌生,之前园子里也有多位大牛介绍过SQL内存数据库的创建方法,我曾仔细拜读过,有了大致了解,不过仍有很多细节不清晰,比如: (1)内存数 ...
ASP.NET MVC 中的视图生成
关于 ASP.NET MVC 中的视图生成在 ASP.NET MVC 中,我们将前端的呈现划分为三个独立的部分来实现,Controller 用来控制用户的操作,View 用来控制呈现的内容,Mode ...

ASP文件上传代码

ASP文件上传代码的更多相关文章

随机推荐

热门专题