如何处理ASP中的图象
在用ASP编程中，很多时侯要用到图象。对于单纯从数据库中处理一个图象，方法大家讲了很多，也不难，
可以看下面的代码：
这里假设你有个数据库名字叫：PUBS，在数据库中有一个叫：PUB_INFO的表，在表中有一个LOGO
的BLOB列。我们查出PUB_ID=0736的人的相片。
FILE: SHOWIMG.ASP
***************************************
<%@ LANGUAGE="VBSCRIPT" %>
<%
' Clear out the existing HTTP header information
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
' Change the HTTP header to reflect that an image is being passed.
Response.ContentType = "image/gif"
Set cn = Server.CreateObject("ADODB.Connection")
' The following open line assumes you have set up a System DataSource
' by the name of myDSN.
cn.Open "DSN=myDSN;UID=sa;PWD=;DATABASE=pubs"
Set rs = cn.Execute("SELECT logo FROM pub_info WHERE pub_id='0736'")
Response.BinaryWrite rs("logo")
Response.End
%>
*****************************************
执行这个ASP文件就可以看到你存在数据库中的图象了。
但如果是同时处理文字和图象就会有些困难了:-(
比如：一个企业的人员管理，后台数据库可以用SYBASE或SQL SERVER等。（我在这用SQL SERVER）当
你在企业内部需要用到BROWSE/SERVER方式，即用浏览器查看员工的个人信息时，就即要处理文字信息同时
还要用到关于图象的技巧。
问题在于你显示文字信息时HTML的HEAD中的CONTENT=“TEXT/HTML”，而显示图象则必须是
CONTENT=“IMAGE/GIF”或者是CONTENT=”IMAGE/JPEG“。因此你是无法只用一个ASP文件就把文字信息和
图象都处理完的，解决的办法是：用一个单独的ASP文件处理图象，然后在处理文字信息的ASP文件中调用
这个ASP文件。
在这给大家介绍一个我的解决方法，希望大家一起讨论：
环境：WINNT4.0 SQL SERVER IIS3.0
数据库名：RSDA
表名：RSDA_TABLE
目的：从RSDA_TABLE中查出ID=00001的人员的信息，包括姓名，年龄和照片
第一步：创建一个查询表单RSDA.HTM：
**********************************
<html>
<head>
</head>
<body>
<form method="POST" action="SEARCH.ASP">
<p>请输入编号：<input type="text" name="T1" size="20"><input
type="submit" value="提交" name="B1"><input type="reset" value="复原" name="B2"></p>
</form>
</body>
</html>
***********************************
第二步：建立SEARCH.ASP
***********************************
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=gb2312">
<title>查询结果</title>
</head>
<body bgColor=Azure>
<%
session("RSDA_ID")=Request.Form("T1") '这里我用了一个SESSION变量，是为了在处理图象的ASP文件中再次调用
temp_id=session("RSDA_ID")
<font size=4 color=OrangeRed> 查询结果：</font>
<%set conntemp=server.createobject("adodb.connection")
conntemp.open "dsn=RSDA;uid=sa;pwd=SA"
set rstemp=conntemp.execute("select * from RSDA_TABLE where rsda='"&temp_id&"'")
%>
<% 'put headings on the table of field names
nobody="对不起！在我们的数据库里没有您要找的资料！"%> '判断是否有这个人
<%if rstemp.eof then %>
<font size="5" color=OrangeRed> <%Response.Write(nobody)%></font>
<%else%>
<div align="center">
<center>
<table border="1" width="73%" height="399">
<tr>
<td width="21%" height="49" align="center"><p align="center">姓 名</td>
<td width="30%" height="49" align="center">
<font size=4 color=OrangeRed><%=rstemp(0)%></font></td>
</td>
<tr>
<td width="21%" height="47"><p align="center">年 龄</td>
<td width="30%" height="47" align="center">
<font size=4 color=OrangeRed><%=rstemp(0)%></font></td>
</tr>
<tr>
<td width="49%" height="146" rowspan="3" colspan="2">
<img src="jpg.asp"></td> 'JPG.ASP就是我们将要建立的专门处理图象的ASP文件
</tr>
</table>
</center></div>
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
%>
</BODY>
</HTML>
***********************************
第三步：建立处理图象的ASP文件。(JPG.ASP)
***********************************
<%
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
' Open database
Set conntemp = Server.CreateObject("ADODB.Connection")
conntemp.open "dsn=RSDA;uid=sa;pwd=SA"
'change http header
Response.ContentType = "image/jpeg" ' or "IMAGE/GIF"
' Get picture
TEMP_ID=session("RSDA_ID")
Set Rs = conntemp.Execute("SELECT photo from RSDA_table where ID='"&TEMP_ID&"'")
Response.BinaryWrite Rs("photo")
Session.Abandon
Response.End
%>
**********************************
这里主要就是用到了一个小技巧就是利用了一个SESSION变量来实现两次同条件查询。
大家如我上述只需少量改动，就可以实现一个页面既有文字又有图象了！
---摘自《eNet学院》 本人随手写了篇“关于ASP图象问题总结”发到版上，结果很多朋友都写信问我关于它问题，
我在这在补充几点：
1、用PB向数据库中插入图象后，如果想从PB的客户端看到图象，那你的图象格式必须是BMP。
JPG、GIF在PB里是看不到的。
2、用IE只支持三种图象格式：BMP、JPG、GIF
3、用NETSCPAGE支持两种格式：JPG、GIF
所以如果你想同时用PB、IE、NETSCAPE看图象是不可能的，解决方法是：
PB里用控件支持JPG、GIF。
如果IE则大家都用BMP，但他有缺点就是：BMP图象文件太大，不利于网上传输。
我在这提出个最终解决办法：
在数据库里只存放图象的路径，这样就不管它什么BMP。JPG，GIF了，
是不是有点无理取闹！！！ 嘿嘿。。。
---（文/徐峰） 下面给出了一个通用的函数及其用例，请参考。 <%
REM 首先我们设计一个ShowCart函数，其中
REM aValues 是一个数值数组
REM aLables 是横坐标的标号
REM strTitle是这个统计图的标题
REM strXAxisLable X轴的标签
REM strYAxisLable Y轴的标签
Sub ShowChart(ByRef aValues, ByRef aLabels, ByRef strTitle, ByRef strXAxisLabel,
ByRef strYAxisLabel)
' 你可以随便改变的图形常数
' 单位是屏幕像素点
Const GRAPH_WIDTH = 450 ' 图形宽度
Const GRAPH_HEIGHT = 250 ' 图形
Const GRAPH_BORDER = 5 ' 坐标线宽度
Const GRAPH_SPACER = 2 ' 统计条之间的距离
Const TABLE_BORDER = 0
' 变量声明
Dim I
Dim iMaxValue
Dim iBarWidth
Dim iBarHeight
' 取得aValues最大值
iMaxValue = 0
For I = 0 To UBound(aValues)
If iMaxValue < aValues(I) Then iMaxValue = aValues(I)
Next 'I
' 计算每条图形的宽度
iBarWidth = (GRAPH_WIDTH \ (UBound(aValues) + 1)) - GRAPH_SPACER
' 开始绘图
%>
<TABLE BORDER='<%= TABLE_BORDER %>' CELLSPACING='0' CELLPADDING='0'>
<TR>
<TD COLSPAN='3' ALIGN='center'><H2><%= strTitle %></H2></TD>
</TR>
<TR>
<TD VALIGN='center'><B><%= strYAxisLabel %></B></TD>
<TD VALIGN='top'>
<TABLE BORDER='<%= TABLE_BORDER %>' CELLSPACING='0' CELLPADDING='0'>
<TR>
& nbsp; &n bsp; <TD ROWSPAN='2'><IMG
SRC='./images/spacer.gif' BORDER='0' WIDTH='1'
HEIGHT='<%= GRAPH_HEIGHT %>'></TD>
<TD VALIGN='top' ALIGN='right'><%= iMaxValue %> </TD>
& nbsp; </TR>
<TR>
<TD VALIGN='bottom' ALIGN='right'>0 </TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE BORDER='<%= TABLE_BORDER %>' CELLSPACING='0' CELLPADDING='0'>
<TR>
<TD VALIGN='bottom'><IMG SRC='./images/spacer_black.gif' BORDER='0'
WIDTH='<%= GRAPH_BORDER %>' HEIGHT='<%= GRAPH_HEIGHT %>'></TD>
<%
' 对数组所有数值进行循环，绘制条形图!
& nbsp; For I = 0 To UBound(aValues)
iBarHeight = Int((aValues(I) / iMaxValue) * GRAPH_HEIGHT)
& nbsp; &n bsp; ' 因为浏览器会忽略
0高度的条形图，所以用1代替!
& nbsp; If iBarHeight = 0 Then iBarHeight = 1
%>
<TD VALIGN='bottom'><IMG SRC='./images/spacer.gif' BORDER='0'
WIDTH='<%= GRAPH_SPACER %>' HEIGHT='1'></TD>
<TD VALIGN='bottom'><IMG SRC='./images/spacer_red.gif' BORDER='0'
WIDTH='<%= iBarWidth %>' HEIGHT='<%= iBarHeight %>'
ALT='<%= aValues(I) %>'></A></TD>
<%
& nbsp; Next 'I
%>
</TR>
<TR>
<TD COLSPAN='<%= (2 * (UBound(aValues) + 1)) + 1 %>'><IMG
SRC='./images/spacer_black.gif' BORDER='0' WIDTH='<%= GRAPH_BORDER
+ ((UBound(aValues) + 1) * (iBarWidth + GRAPH_SPACER)) %>'
HEIGHT='<%= GRAPH_BORDER %>'></TD>
</TR>
<% ' 检查横坐标数组是否有效! %>
<% If IsArray(aLabels) Then %>
<TR>
<TD><!-- 留点空间 --></TD>
<% For I = 0 To UBound(aValues) %>
<TD><!-- 留点空间 --></TD>
<TD ALIGN='center'><FONT SIZE='1'><%= aLabels(I) %></FONT></TD>
<% Next 'I %>
</TR>
<% End If %>
</TABLE>
</TD>
</TR>
<TR>
<TD COLSPAN='2'><!-- 使下一个TD元素居中--></TD>
<TD ALIGN='center'><BR><B><%= strXAxisLabel %></B></TD>
</TR>
</TABLE>
<%
End Sub
%>
<%
' 一个带有横坐标的条形图
ShowChart Array(6, 10, 12, 18, 23, 26, 27, 28, 30, 34, 37, 45, 55), _
Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", _
"P10", "P11", "P12", "P13"), "连续几个月的销售额", "X 轴", "Y 轴"
' 空行
Response.Write "<BR>" & vbCrLf
Response.Write "<BR>" & vbCrLf
Response.Write "<BR>" & vbCrLf
' 构造一个由随机数组成的数组
Dim I
Dim aTemp(49)
Randomize
For I = 0 to 49
aTemp(I) = Int((50 + 1) * Rnd)
Next 'I
' 由随机数组生成的条形图
ShowChart aTemp, "这不是一个数组!", "随机条形图", "序号 ", "随机数"
%>
关于图片与文本同存在数据库中的具体思路
| 首先，你的表单的类型设为 <FORM ENCTYPE="multipart/form-data" ACTION="uploadresult.asp" METHOD=POST> Please choose a picture to upload: <INPUT NAME="picture" TYPE=FILE ACCEPT="image/*"> <input name="text1" type=text > </form> 然后在下一页，用分离的办法先分出文本，此时不能用request.form，应变为 FormData = Request.BinaryRead( FormSize ) FormSize = Request.TotalBytes 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 Response.ContentType = "image/gif" Response.BinaryWrite MIDB( FormData, DataStart, DataEnd ) 这里先分出的是图像 然后在将其二进制转换为文本。（见金华区） 求出大小。 FormSize = Request.TotalBytes 之后用总大小减去刚才求出的大小。得出文本大小。然后用字符串函数得出其值。 最后分别存在数据库中。 注意，此方法不能完成另存为文件。因为Vbscript中的文件对象不能处理二进制格式。 （图象事二进制的） 但Vb中可以，所以我们可已利用组件完成以上工作。 我自己使用自己编写的组件，这样即可以完成存为数据库，又可以存位文件。还可以限制 大小，文件类型（gif，jpg，Htm，exe）等等，但具体思路代码仍是上面的代码。如果 需要可以和我联系。 |
| 图片数据存入数据库： sqlstr="select * from "&tbname&" where id is null" set rs=server.createobject("adodb.recordset") rs.Open sqlstr,conn,1,3 rs.AddNew () rs("title")=title rs("filename")=filename rs("filetype")=filetype rs("thelevel")=thelevel rs("uploaddate")=date() rs("uploadip")=request.ServerVariables("REMOTE_ADDR") rs("contenttype")=contenttype rs("data").AppendChunk (binstr) rs("size")=size rs("offset")=offset rs.Update rs.Close() 读取显示： rs.Open sqlstr,conn,3 if not rs.EOF then contenttype=rs("contenttype") binstr=rs("data").GetChunk(rs("size")+rs("offset")) if rs("offset")=1 then binstr=midb(binstr,2) end if if instr(contenttype,"text/")=1 or _ instr(contenttype,"image/")=1 or _ instr(contenttype,"application/msword")=1 then response.contenttype=trim(contenttype) response.binarywrite binstr else response.addheader "Content-Disposition","attachment; filename="""&rs("filename")&"""" response.contenttype=trim(contenttype) response.binarywrite binstr end if if request("preview")<>"yes" then sqlstr="update "&tbname&" set downtimes=downtimes+1 where id="&fileid conn.Execute sqlstr end if end if 说明： 对于超长的二进制数据（如图像数据）要使用fieldname.AppendChunk() 和 fieldname.GetChunk()来读写。 |
评论