哪位提供最简单的图片存入库中的代码

99028 2001-07-12 04:29:32

急用的，拜托各位了　：）

...全文

85 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

99028 2001-07-12

打赏
举报

多谢各位，谢谢！！

dotnba 2001-07-12

打赏
举报

<% @Language=VBScript %>
<% response.buffer=true %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
dim formsize,formdata,vbcrlf
dim datastart,dataend,mydata,datasize
dim connGraph

formsize = request.totalbytes

formdata = request.binaryread(formsize)

vbcrlf = chrB(13) & chrB(10)

'首先从上面FORM传来的数据中找到到第一个回车换行符的位置为止的字符串，并作为分隔串
divider = LeftB(formdata , clng(instrb(formdata,vbcrlf)) - 1)

'找到真正数据的开始位置,在连续两个回车换行符号的后面加4是因为两个回车换行是占4个字节
datastart = InStrB(formdata , vbcrlf & vbcrlf) + 4

'找到真正数据的结束位置,减掉一个开始位置,其实DATAEND就成了数据长度
dataend = instrb(datastart + 1 , formdata , divider)

datasize = dataend - datastart

mydata = MidB(formdata , datastart ,datasize)

set conn = server.CreateObject("ADODB.connection")

set rs = server.CreateObject("ADODB.recordset")

Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath ("images.mdb")

Conn.Open (conn_string)

rs.Open "SELECT * FROM [images] where id is null",conn,1,3

rs.addnew

rs("img").appendchunk mydata

rs("size") = datasize

rs.update

rs.Close
conn.Close

Response.Write ("已经成功上传")
%>
<br>

查看图片已经上传图片。
<form action = "show.asp" method="post">
<input type="text" size=2 name = "id">
<input type=submit name = "submit" value = "查看">
</form>
</BODY>
</HTML>
<% @Language=VBScript %>
<% Response.ContentType = "image/*" %>
<% 'Response.ContentType = "text/*" %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%

set conn = server.CreateObject("ADODB.connection")
set rs = server.CreateObject("ADODB.recordset")

Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath ("images.mdb")
Conn.Open (conn_string)

strsql = "select max(id) from images"

rs.open strsql,conn,1,1

if not rs.EOF then
maxid = rs(0)
end if

rs.Close

strsql = "select img from images where id = " & maxid

rs.open strsql,conn,1,1

if not rs.EOF then
Response.BinaryWrite rs("img").getChunk(rs("size"))
end if

rs.close
conn.close

%>

</BODY>
</HTML>

freezwy 2001-07-12

打赏
举报

你先测试一下，如果没有问题，弄几分。

-------------------------------------------------
ASP混子来混分，得分能得免费杂志，哈哈，下次改签名
-------------------------------------------------

孟子E章 2001-07-12

打赏
举报

http://www.51soft.com/code/code.asp?search=32

孟子E章 2001-07-12

打赏
举报

asp3.0:
field对象的方法：appendchunk-附加数据给大型的或者2进制的FIELD对象

99028 2001-07-12

打赏
举报

多谢，多谢，有劳你了，好运　：）

freezwy 2001-07-12

打赏
举报

给你个简单的。从网上拉的一个，很好用。
三个文件。
-----数据结构---access的
user 文本
imagedata ole对象
-----------------------default.asp----------------------
<html>
<head>
<title>上传图标</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
</head>

<body bgcolor="#FFFFFF">
<table width="95%" border="0" align="center" cellpadding="5">
<tr align="center" valign="middle">
<td> <b> </b>
<form method="post" action="savelogo.asp" name="reg" enctype="multipart/form-data">
文件名：
<input type="file" name="file" size="32">
<br>
用户名：
<input type="text" name="id" value="test">
（如果已经存在用户，则覆盖）<br>
<input type="submit" name="Submit" value="开始上传">
<input type="reset" name="reset" value="重新选择">
<br>
</form>
</td>
</tr>
</table>
<script language=vbscript>
function reg_Onsubmit()
if document.reg.id.value="" then
msgbox "用户名必须填写！"
reg_onsubmit=false
exit function
else
document.reg.action="save.asp?id="&document.reg.id.value
end if
end function
</script>
</body>
</html>
------------------------------save.asp-----------------
<%
' Allrights Qbtrade.com
' Maozai
dim conn
dim connstr
dim rs
dim sql

on error resume next
call conn_init()
id=request("id")

FormSize = Request.TotalBytes
FormData = Request.BinaryRead(FormSize)
Image=ImageUp (FormSize,Formdata)

set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM imgdata WHERE user ='" &id &"'"
rs.Open sql,conn,1,3
if rs.recordcount = 0 then
rs.close
sql="SELECT * FROM imgdata"
rs.Open sql,conn,1,3
rs.AddNew
rs("user") = id
rs("imagedata") = NULL
rs("imagedata").appendchunk Image
else
rs("imagedata") = NULL
rs("imagedata").appendchunk Image
end if

rs.Update
rs.Close
set rs=nothing
endconnection

%>
<style type="text/css">

</style>
<title>完成</title>
<body bgcolor="#FFFFFF" text="#000000">
<table width="95%" border="0" align="center" cellpadding="5" height="167">
<tr align="center" valign="middle">
<td height="128">
<p>恭喜，<%=id%>，你已经上传了你的图标，加入了QBTrade宣传的行列！</p>
<p>以下是你刚才上传的图标，如果你不满意，可以返回重新修改一次。</p>
<p><img src="show.asp?id=<%=id%>"></p>
</td>
</tr>
</table>
<p align="center"></p>
<%
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

'-------------------------
sub conn_init()
connstr="DBQ="+server.mappath("image.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
conn.open connstr
if err then
'err.clear
set conn=nothing
response.write "数据库连接出错！！！<br>" + err.description
err.clear
Response.End
end if
end if
end sub

sub endConnection()
conn.close
set conn=nothing
end sub

%>
----------------show.asp------------------
<%

dim conn
dim connstr
dim rs
dim sql
dim id
id = request("id")

on error resume next
call conn_init()

set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM imgdata WHERE user = '" & id & "'"
rs.Open sql,conn,1,1
if rs.recordcount = 0 then
rs.close
rs.open "SELECT * FROM imgdata WHERE user = 'not_available'",conn,1,1
end if
response.contenttype="x-mixed-replace"
Response.BinaryWrite rs("imagedata")
rs.Close

endconnection

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

'-------------------------
sub conn_init()
connstr="DBQ="+server.mappath("image.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
conn.open connstr
if err then
'err.clear
set conn=nothing
response.write "数据库连接出错！！！<br>" + err.description
err.clear
Response.End
end if
end if
end sub

sub endConnection()
conn.close
set conn=nothing
end sub

%>

　Java生成密钥、保存密钥的实例源码，通过本源码可以了解到Java如何产生单钥加密的密钥(myKey)、产生双钥的密钥对(keyPair)、如何保存公钥的字节数组、保存私钥到文件privateKey.dat、如何用Java对象序列化保存私钥...

python中requests库，os库图片地址一、通过pycharm安装requests库 File---->Settings 二、步骤 1.引入库代码如下： # 需要用到requests库来获取图片地址，用os库打开和写入文件。所以首先要...

一、准备工作用python来实现对某图片的爬取并保存，以情绪图片为例，搜索可得到下图所示f12打开源码在此处可以看到这次我们要爬取的图片的基本信息是在img - scr中二、代码实现这次的爬取主要用了如下的第三方库 ...

之前写爬虫大多是爬网页中的url，然后将url保存下来就可以了，倒还没有想过要获取真的图片到本地。网络上有很多方法，但是很多都是本地，或者其他，亲测了两种方法：方法一，使用urllib.urlretrieve()，之前其实偶尔...

今天要将的是使用python3爬取网络图片，并保存到本地。本节知识点 1，python3爬取网站源码 2，正则匹配获取图片链接 3，使用python3将不怕保存到本地一，首先我们来看下要爬取的网址下图箭头所指的就是我们要...