`

Asp图片上传

    博客分类:
  • Asp
 
阅读更多
<%
  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"    '允许扩展名
  SavePath = "Upload_img"          '保存路径
  If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)
  CheckAndCreateFolder(SavePath)

  UpLoadAll_a = Request.TotalBytes '取得客户端全部内容
  If(UpLoadAll_a>0) Then
    If(UpLoadAll_a<=1024*200) Then'=======================此处限制图片大小小于200KB=========================
    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,"\")+1,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
  '=====================此处为提示文件大小超过了=========================
   Response.write "上传文件过大,小于200kb!  <a href='javascript:history.back()'>返回</a>"
  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图片上传组件是一种在Web应用中用于处理用户端图片上传功能的工具,它极大地简化了开发者在ASP(Active Server Pages)环境下实现图片上传的过程。图片批量上传控件和插件则进一步增强了这种功能,允许用户一次性...

    ASP图片上传源代码

    ASP图片上传源代码是Web开发中的一个常见功能,主要用于让用户在网站上上传个人图片或文件。这个功能在很多场合都很实用,比如社交媒体、博客、电子商务平台和个人空间等。ASP(Active Server Pages)是微软开发的一...

    ASP图片上传代码(非常实用的哟!)

    这个“ASP图片上传代码”提供了一个基础的实现方式,帮助开发者在他们的网站上允许用户上传图片。 在ASP中处理图片上传通常涉及以下几个关键步骤: 1. **文件表单提交**:首先,你需要在HTML页面中创建一个`&lt;form&gt;...

    ASP 图片上传系统

    ASP图片上传系统是一种基于Active Server Pages(ASP)技术构建的用于网页上的图片上传功能模块。在网站开发中,用户可能需要上传个人头像、产品图片或其他相关图片资料,ASP图片上传系统便能实现这一需求。它允许...

    asp图片上传无错版

    本资源"asp图片上传无错版"提供了一个经过调试、稳定运行的图片上传解决方案。 首先,我们需要理解ASP图片上传的基本流程: 1. **HTML表单设计**:创建一个包含`&lt;input type="file"&gt;`的表单,用户可以通过这个字段...

    asp上传操作(asp图片上传实例)

    ASP(Active Server Pages)是一种微软开发的服务器端脚本语言,常用于构建动态网页。在ASP上传操作中,特别是图片上传实例,我们主要探讨的是如何通过ASP技术将...这些步骤和知识点共同构成了ASP图片上传的基本流程。

    asp图片上传全程序

    在ASP图片上传的过程中,主要涉及以下几个关键知识点: 1. **表单提交**:首先,我们需要在HTML页面中创建一个表单,包含一个`&lt;input type="file"&gt;`元素,让用户选择要上传的图片文件。表单通常使用POST方法提交,...

    asp图片上传源码.rar

    "asp图片上传源码.rar"提供了一个实现这一功能的示例。 在ASP中处理图片上传,主要涉及以下几个核心知识点: 1. **表单提交**:图片上传通常通过HTML表单实现,表单的`enctype`属性设置为`multipart/form-data`,...

    asp图片上传asp图片上传

    总结来说,ASP图片上传涉及到前端表单设计、后端文件处理、安全性检查以及可能的数据库操作。在实现过程中,要特别注意文件安全,避免成为恶意攻击的入口。同时,为了提高用户体验,还可以添加进度条、预览等功能。

    asp 图片上传 asp+js+swf

    ASP图片上传技术是一种在Web应用中实现用户上传图片的功能,常用于网站的用户头像更改、产品图片上传等场景。ASP(Active Server Pages)是微软开发的一种服务器端脚本环境,用于生成动态交互式网页。JavaScript则是...

    asp图片上传源码

    本文将详细讲解如何在ASP中实现图片上传的功能,并结合“asp图片上传源码”的描述,分享相关的知识点。 1. **表单设计**:首先,我们需要创建一个HTML表单,包含一个文件输入控件让用户选择本地图片文件。表单通常...

    ASP 的图片上传源码

    下面,我们将深入探讨ASP图片上传源码的相关知识点。 首先,`upload.asp`很可能是主要的处理图片上传的脚本文件。在这个文件中,开发者通常会编写代码来接收用户通过HTML表单提交的文件,然后将这些文件保存到...

    asp图片上传 asp无漏洞图片上传

    ASP图片上传功能是ASP应用程序中常见的一种需求,用于让用户在网站上上传个人照片、产品图片或其他相关图像。在本文中,我们将深入探讨如何在ASP环境中实现安全的图片上传功能,以及如何避免常见的上传漏洞。 首先...

    ASP图片上传到服务器的文件夹

    通过以上步骤,我们可以实现一个基本的ASP图片上传功能,让用户能够方便地在网站上上传并展示图片。这个过程涉及到前端交互、服务器处理以及文件系统操作等多个技术层面,是Web开发中的重要一环。对于开发者来说,...

    asp 图片上传加水印 实例

    首先,我们需要理解ASP图片上传的基本流程。用户通过网页上传图片,这个过程通常涉及到HTML表单,用户选择文件后提交。服务器端的ASP脚本接收到文件,然后存储到服务器的特定位置。在这个案例中,"上传图片加水印...

    asp图片上传(无组件版)_dreamweaver cs4插件

    asp图片上传(无组件版)1.1.0 在asp中您可以上传图片到指定的路径,并在原页面预览显示上传后的图片,Dreamweaver 8.0以上版本适用。 插件中使用的上传类为 风声 ASP 无组件上传类 V2.11 jquery 为 1.2.3 thickbox...

    ASP图片上传程序

    支持上传的文件格式有:图片文件(*.gif、*.jpg、*.png、*.bmp),动画FLASH文件(*.swf) 调用图片请用绝对路径也就是如例:http://你的网址/img/1.gif,这样就调用了1.gif这张图片 当您填

    百灵ASP图片上传系统.rar

    百灵ASP图片上传系统是一个基于ASP(Active Server Pages)技术的解决方案,用于在Web应用程序中实现用户图片的上传功能。ASP是一种服务器端脚本环境,它允许开发人员使用VBScript或JScript等语言创建动态交互式的...

    asp图片上传程序

    在这个“asp图片上传程序”中,我们将探讨如何在不依赖额外组件的情况下,利用ASP实现这一功能。 首先,我们需要了解ASP处理文件上传的基本流程: 1. **HTML表单设计**:创建一个包含`&lt;input type="file"&gt;`的表单...

Global site tag (gtag.js) - Google Analytics