谁能给我一“图片和文字在同一表单发送并存入数据库的源代码？！（100分）
我的信箱是nianqin@yeah.net,QQ是14466608
只要通过就给分！
问题点数：100、回复次数：14Top
1 楼joise（卓一思_我爱C++&.Net）回复于 2002-03-04 23:13:03 得分 0
大家看得见吗？Top
2 楼SonicX（SonicX）回复于 2002-03-04 23:38:41 得分 10
建2个FORM
第一个是信息区（不设置提交按钮）
第二个用来传文件
当提交第二个FORM时把第一个FORM中的信息存入cookie（触发事件onsubmit）
javascript的cookie写法：document.cookie='name=aaa'
然后在ASP中读出信息写入数据库就完了Top
3 楼joise（卓一思_我爱C++&.Net）回复于 2002-03-05 09:39:54 得分 0
我要的是真正实现一个表单发送图片和文字的源代码，请各位帮忙!Top
4 楼xport（豁然开朗）回复于 2002-03-05 09:57:25 得分 0
我也急需，我的信箱是：xportcn@sohu.comTop
5 楼muddledman（胡涂人）回复于 2002-03-05 10:00:13 得分 0
我也急需，我的信箱是：xuxilo@cnnb.netTop
6 楼spacener（空中楼阁）回复于 2002-03-05 10:24:19 得分 10
如果是真急的话，又是没人帮你的话，你试一下这个程序。不过有一点问题哦。
* Request.BinaryRead语法：
variant = Request.BinaryRead(count)
参数
variant
返回值保存着从客户端读取到数据。
count
指明要从客户端读取的数据量大小，这个值小于或者等于使用方法
Request.TotalBytes得到的数据量。
* Request.BinaryWrite语法：
Request.BinaryWrite data
参数
data
要写入到客户端浏览器中的数据包。
* Request.TotalBytes语法：
variant = Request.TotalBytes
参数
variant
返回从客户端读取到数据量的字节数。
* AppendChunk语法
将数据追加到大型文本、二进制数据 Field 或 Parameter 对象。
object.AppendChunk Data
参数
object Field 或 Parameter 对象
Data 变体型，包含追加到对象中的数据。
说明
使用 Field 或 Parameter 对象的 AppendChunk 方法可将长二进制或字符数
据填写到对象中。在系统内存有限的情况下，可以使用 AppendChunk 方法对长
整型值进行部分而非全部的操作。
* GetChunk语法
返回大型文本或二进制数据 Field 对象的全部或部分内容 。
variable = field.GetChunk( Size )
返回值
返回变体型.
参数:Size 长整型表达式，等于所要检索的字节或字符数。
说明:使用 Field 对象的 GetChunk 方法检索其部分或全部长二进制或字符数据。
在系统内存有限的情况下，可使用 GetChunk 方法处理部分而非全部的长整型值。
GetChunk 调用返回的数据将赋给“变量”。如果 Size 大于剩余的数据，则
GetChunk 仅返回剩余的数据而无需用空白填充“变量”。如果字段为空，则
GetChunk 方法返回 Null。
每个后续的 GetChunk 调用将检索从前一次 GetChunk 调用停止处开始的数
据。但是，如果从一个字段检索数据然后在当前记录中设置或读取另一个字段
的值，ADO 将认为已从第一个字段中检索出数据。如果在第一个字段上再次调
用 GetChunk 方法，ADO 将把调用解释为新的 GetChunk 操作并从记录的起始
处开始读取。如果其他 Recordset 对象不是首个 Recordset 对象的副本，则
访问其中的字段不会破坏 GetChunk 操作。
如果 Field 对象的 Attributes 属性中的 adFldLong 位设置为 True，则可
以对该字段使用 GetChunk 方法。
如果在 Field 对象上使用 Getchunk 方法时没有当前记录，将产生错误 3021
（无当前记录）。
接下来，我们就要来设计我们的数据库了，作为测试我们的数据库结构如
下（Ａｃｃｅｓｓ９７）：
字段名称 类型 ∶枋?
id 自动编号 主键值
img OLE对象 用来保存图片数据
对于在MS SQL Server7中，对应的结构如下：
字段名称 类型 ∶枋?
id int(Identity) 主键值
img image 用来保存图片数据
现在开始正式编写我们的纯 ＳＰ代码上传部分了，首先，我们有一个提
供给用户的上传界面，可以让用户选择要上传的图片。代码如下
（upload.htm）：
<html>
<body>
<center>
<form name="mainForm" enctype="multipart/form-data" action="process.asp" method=post>
<input type=file name=mefile><br>
<input type=submit name=ok value="OK">
</form>
</center>
</body>
</html>
注意代码中黑色斜体的部分，一定要在Form中有这个属性，否则，将无
法得到上传上来的数据。
接下来，我们要在process.asp中对从浏览器中获取的数据进行必要的处
理，因为我们在process.asp中获取到的数据不仅仅包含了我们想要的上传上来
的图片的数据，也包含了其他的无用的信息，我们需要剔除冗余数据，并将处
理过的图片数据保存到数据库中，这里我们以Ａｃｃｅｓｓ９７为例。具体代
码如下（process.asp）：
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};
DBQ=" & server.MapPath("images.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>
好了，这下我们就把上传来的图片保存到了名为images.mdb的数据库中
了，剩下的工作就是要将数据库中的图片数据显示到网页上面了。一般在ＨＴ
ＭＬ中，显示图片都是使用<IMG>标签，也就是<IMG SRC="图片路径">，但
是我们的图片是保存到了数据库中，“图片路径”是什么呢？呵呵，其实这个
SRC属性除了指定路径外，也可以这样使用哦：
<IMG SRC="showimg.asp?id=xxx">
所以，我们所要做的就是在showimg.asp中从数据库中读出来符合条件的
数据，并返回到SRC属性中就可以了，具体代码如下（showimg.asp）：
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};
DBQ=" & server.MapPath("images.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id=" & trim(request("id"))
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>
注意在输出到浏览器之前一定要指定Response.ContentType = "image/*"，
以便正常显示图片。
最后要注意的地方是，我的process.asp中作的处理没有考虑到第一页
(upload.htm)中还有其他数据，比如<INPUT type=tesxt name=userid>等等，如果
有这些项目，你的process.asp就要注意处理掉不必要的数据。
怎么样，其实上传图片并保存到数据库很简单吧，这样再也不用为自己的
空间无法使用各类的上传组件发愁了吧。还等什么？赶快试一试吧。
（以上所有程序均在WinNT4.0英文版，IIS4，Access97/MS SQL Server7.0中运行
通过）
一个想帮助你的人。
文件名为：upload.htm,proecc.asp,showimg.asp
Top
7 楼wenbo_ying（应）回复于 2002-03-05 10:25:51 得分 0
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
redim getdata(6)
for mm = 0 to 6
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart - 1
getdata(mm)=midb(formdata,datastart,dataend)
formsize = formsize-dataend-datastart
formdata=rightb(formdata,formsize)
next
%>
getdata里存放了2进制信息Top
8 楼joise（卓一思_我爱C++&.Net）回复于 2002-03-05 21:51:26 得分 0
以上都不行，请做成功的人给我发源代码或留下贵贴！Top
9 楼joise（卓一思_我爱C++&.Net）回复于 2002-03-06 21:18:09 得分 0
help me!!!Top
10 楼SonicX（SonicX）回复于 2002-03-06 22:37:19 得分 60
-----------------upfile.htm-----------------
<Script language="javascript">
function mysubmit(){
cname=document.inf.name.value;
document.cookie='name='+cname;
return (true);
}
</script>
<form name=inf>用户名<input type="text" name="name" size="20"></form>
<form enctype="multipart/form-data" action="upfile.asp" method=post onsubmit="return mysubmit()">
<input type="file" value="" name="pic"> (请通过单击浏览输入图片的路径)<br>
<input type="submit" value=" 上传 " name="B3"></table>
-----------------upfile.asp-----------------
<%
dim rs
dim DBPath,con
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
dim name
'换算图片文件字节
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
'读取cookies
name=request.cookies("name")
'打开数据库（假设是pic.mdb）
Set con = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("pic.mdb")
con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "pic",con,3,2
rs.addnew
rs("pic").appendchunk mydata
rs("user")=name
rs.update
rs.close
set rs=nothing
con.close
set con=nothing
%>Top
11 楼SonicX（SonicX）回复于 2002-03-06 22:42:33 得分 0
PIC的字段类型是OLE
USER的字段类型是文本
别忘了加分 ＾＿＾Top
12 楼newskyline（小天）回复于 2002-03-07 00:57:01 得分 0
原代码去网上能找到，我曾经做成功过的，但是我还想附加一个一直没有解决的问题：只是把图片和文字送进数据库还不够，如果拿出来的时候不能看到缩略图，那有什么意思，我的问题就是，怎样不使用组件实现缩略图的制作。Top
13 楼VFP（VFP）回复于 2002-03-07 09:29:36 得分 20
<!--#include file="../../dbconn.inc"-->
<html>
<head>
<title>图象上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
Set FileObj=Server.CreateObject("iNotes.Upload")
FileObj.FilePath=server.mappath("../loupic")
id=trim(FileObj.Request("id"))
kzm=trim(lcase(FileObj.ExtName("pic")))
newname="L_"&id&kzm
%>
<body text="#000000" bgcolor="#FFFFD9">
<div align="center">
<p> </p>
</div>
<%
if kzm <> ".jpg" and kzm <> ".gif" then
msg="您必须选择图象文件(jpg或gif文件)！"
else
if FileObj.savefile("pic",newname) then
sql= "update loushi_zs "
sql=sql&"set loupic='"&newname&"'"
sql=sql&" where xsxkzh='"&id&"'"
set rs=conn.execute(sql)
msg="效果图上传成功！"
else
msg="效果图上传失败，请重试！"
end if
end if
Set FileObj=nothing
conn.close
Set conn=nothing
%>
<div align="center"><br><br>
<%=msg%><br><br>
<a href="#" onclick="window.close()">[关闭窗口]</a></div>
</body>
</html>
完全的源程序。
保存代码
Top
14 楼customer（customer）回复于 2002-03-07 18:00:44 得分 0
SonicX(SonicX) 的肯定可以，我也做过的Top
