求ASP图片上传简单代码

cristo1 2005-07-29 09:04:28
如题。急。
...全文
2465 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
hsq888 2006-04-25
  • 打赏
  • 举报
 回复
1

<html>
<body>
<center>
<form name="mainForm" enctype="multipart/form-data" action="process.asp" method=post>
<p><img src="showimg.asp?id=15">
</p>
<p>
<input type=file name=mefile>
   
<input type=submit name=ok value="上传">
</p>
</form>
</center>
</body>
</html>


2


<%@language="vbscript"%>
<%
response.buffer=true
'取得文件大小
formsize=request.totalbytes 'Request.TotalBytes方法返回从客户端读取到的数据的字节数
'设定上传文件大小,字节为单位.如果图片文件大于51160字节,将返回到图片上传页.并给出错误提示
if formsize>51160 then response.write("上传图片太大!")
formtype=request.ContentType
if formtype<>"jpg" or formtype<>"gif" then response.write("上传的文件格式不对!")
'获取上传的图片数据
formdata=request.binaryread(formsize) 'request.binaryread方法可以获取提交的文件数据
bncrlf=chrB(13)&chrB(10) 'vbCrLf是VB中用于表示“回车换行”的字符串常数（长度为2字节），相当于Chr（10）+Chr（13） 'bncrlf是加车换行的意思 chrb(13) & chrb(10)十六进制表示的回车换行 chr()返回与指定的 ANSI 字符代码相对应的字符。
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) '按回车符和换行符的位置，从左取值 left()返回指定数目的从字符串的左边算起的字符。instr()返回某字符串在另一字符串中第一次出现的位置。
datastart=instrB(formdata,bncrlf&bncrlf)+4 '取得数据头 连续的回车符和换行符的位置：+4
dataend=instrB(datastart+1,formdata,divider)-datastart '取得数据尾
mydata=midB(formdata,datastart,dataend) '得到图片数据 mid()从字符串中返回指定数目的字符。

'建立同数据库联接
set conn=server.CreateObject("ADODB.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("images.mdb")
conn.Open connstr
set rec=server.createobject("adodb.recordset")
sql="select * from images"
rec.open sql,conn,1,3

'判断是否曾经上传过相片,如果上传过就更改相片,否则就添加到数据库中
rec.addnew
rec("img").appendchunk mydata 'appendchunk用于向一域内添加大块的二进制或字符数据
rec.update
rec.close
set rec=nothing
set conn=nothing
response.redirect"upload.asp"
%>



3


<%
set conn=server.CreateObject("ADODB.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("images.mdb")
conn.Open connstr
set rs=server.createobject("ADODB.recordset")
strsql="select img from images where id ="&trim(request("id"))
rs.open strsql,conn,1,1
Response.ContentType="image/*" '以便正常显示图片
Response.BinaryWrite rs("img").getChunk(7500000) 'getChunk返回大型文本或二进制数据Field对象的全部或部分内容。
rs.close
set rs=nothing
set conn=nothing
%>



silencepen 2006-04-24
  • 打赏
  • 举报
 回复
为什么我运行时会出现错误
提示如下:
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'imageup'
/fenqiu/uptest/uptext.asp, 第 27 行

说明:第27行的代码如下:
response.binarywrite imageup(formsize,formdata) '这里是显示图像。表示成功！


急求高手帮忙解决!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
万分感谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
yeyu712 2006-04-17
  • 打赏
  • 举报
 回复
转来的,可以用
一:前言

首先，没有料到图片与文本的上传会引起这么大的注意。上一篇贴子(Id=435906)贴出后，有不少人来信说看不懂。或
是仍然不能实现。我就以一种完全简单的手法。完成无组件的文本与图片上传数据库所有过程。希望能帮助所有对此有疑
问的网友。

二：准备工作

按照惯例，我先将我的测试环境告诉大家。
系统：Win98se + pws + asp
编程环境：Visual Interdev 6.0
数据库：Access2000 （因为网友问的最多的都是Access2000的问题。）
建一个库：access2000中，先建好一个Test.mdb的数据库。具体有四个字段。
id | text1 | text2 | img
自动编号 文本 文本 OLE对象 ’如果是sql server 则选择(image即可)

三：Are you ready ,Go!!!

3-1.建上传表单：
我们知道，图像与文本是两种不同制式的文件（二进制，流式文本）而如果要同一表单提交的话，(file格式提交)则
我们获取时就不能用原来的方法request.form而必须用equest.TotalBytes来获得所有的提交资料。但这时两种格式的文件
混合在一起比较难分。我的上一贴已经告诉大家用二进制的方法来分开这些资料。但十分麻烦，要用到许多二进值的函
数，所以许多网友来信问我有没有更简单的方法,好。我可以告诉大家，有！而且保证下面的方法保证一学就会。（这种方
法很另类但伟人说过白猫，黑猫。能上网的就是好猫！）

upload.asp(具体代码如下)

<% @ language=vbscript %>
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<title> File Upload </title>
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--
Sub form2_onsubmit //** 这里是关键，当form2在提交的过程中时，即活form1的提交
form1.submit //**所以我们这里用了两个表单，但只用一个提交就可以了。
End Sub
-->
</script>
</head>
<body>

<form name="form1" ENCTYPE="multipart/form-data" ACTION="upimage.asp" METHOD="POST" target="_blank">
Please choose a picture to upload: <br>
<input NAME="picture" TYPE="FILE"> <br>
</form>

<form name="form2" action="uptext.asp" method="post">
<input type="text" name="text1"><br>
<input type="text" name="text2"><br>
<input type="submit" value="提交">
</form>

</body>
</html>

3-2 兵分两路来处理数据。
首先，文本很简单。

uptext.asp (代码如下)

<% @ language=vbscript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")

text1=request.form("text1")
text2=request.form("text2")
response.write text1
response.write text2

set rs=Server.CreateObject("adodb.recordset")
sql="SELECT top 1 * FROM imgtable ORDER BY id DESC" ’这里的意思是选择最后一个Id,既刚刚被改动
rs.Open sql,strconn,1,3 ’就是你上传的图像的两个文本字段。

rs("text1")=text1 ’注意，这里是改动不是添加，所以不用addnew。
rs("text2")=text2
rs.Update
rs.Close
%>
接着，来处理图像。
upimage.asp (具体代码如下)

<%
FormSize = Request.TotalBytes ’得到数据
FormData = Request.BinaryRead( FormSize )

function ImageUp(formsize,formdata) ’这个函数的功能是截取其中的图像部分。
bncrlf=chrb(13) & chrb(10) ’做成函数后。以后你可以自己随意使用了。
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end function

Image=ImageUp (FormSize,Formdata) ’这里就是图像部分了。

set rs=server.CreateObject("adodb.recordset")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")
sql="SELECT * FROM imgtable"
rs.Open sql,strconn,1,3

rs.AddNew ’因为表单二在表单一提交的过程中下提交了。
rs("img").appendchunk Image ’所以这里是添加。
rs.Update
rs.Close


response.contenttype="image/gif"
response.binarywrite imageup(formsize,formdata) ’这里是显示图像。表示成功！

%>

啊？！？！原来如此简单！

四：“显示，我要同页显示”
终于完成了图文同步提交。（真的是同步吗？不是吗？是吗？ 唉，我们只是为了解决问题。何必当真哪？不
是 吗？）
现在我们还要让他同页显示出来。其实，这是同样的思路。我们也用两页来完成。

主页面：show.asp

<%@ Language=VBScript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")

set rs=Server.CreateObject("adodb.recordset")
sql="SELECT top 1 * FROM imgtable ORDER BY id DESC"
rs.Open sql,strconn,1,3
%>
<html>
<body>
以下是你的上传资料。<br>
文本一：<% Response.Write rs("text1") %><br>
文本二：<% Response.Write rs("text2") %><br>

你的图像：
<img src=showimg.asp?id=<%=rs("id")%>> ’注意这里，这才是关键。他可以实现网页图像与文本
</body> ’共存。
</html>

幕后页面：showimg.asp （说他是幕后的页面，因为他潜伏在主页面里。看上是一个页面一样）

<%@ Language=VBScript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM imgtable where id="&id
rs.Open sql,strconn,1,3
response.contenttype="image/gif"
Response.BinaryWrite rs("img")
%>

（全文完：希望本文能帮助那些急于想解决本类问题的网友。）
jackycxg 2005-07-29
  • 打赏
  • 举报
 回复
网上下栽个“无组件上传”之类的代码就行了
MVC使用异步图片上传和富文本编辑器的使用
在本文中，我们将深入探讨如何在ASP.NET MVC框架下实现异步图片上传和富文本编辑器的使用。ASP.NET MVC是一种流行的Web应用程序开发框架，它提供了模型-视图-控制器（MVC）的设计模式，使得代码结构清晰，易于维护。...
完美学校网站系统全站源代码学校网站模板下载
②文章管理：1、 栏目管理（可任意设置栏目名称、类别、选择栏目模版、设置管理员等等相关属性） 2、添加文章（可添加附件、上传图片、视频、音频、动画、选择相应模版等等，详细请看演示） 3、管理我的文章。...
ASP手机网站拍照上传代码：简化移动端图片上传流程
ASP手机网站拍照上传代码：简化移动端图片上传流程 【下载地址】ASP手机网站拍照上传代码 这款ASP手机网站拍照上传源码为开发者提供了便捷的图片上传解决方案。用户可以直接通过手机拍照并上传图片，或从相册...
ASP 单文件上传无组件代码
ASP 单文件上传无组件代码，直接使用，已经纠错。
asp 上传文件到服务器,ASP最简单上传文件方法
ASP最简单上传文件方法(2010-09-16 18:03:10)标签：化境组件服务器数据库上传it1.如果服务器装了文件上传组件,可查阅一下该组件的相关属性和方法,不过现在很多服务器空间都不支持这类组件.暂不在这里讨论.2.若服务器...
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章