谁能告诉我最简捷的上传图片方法？

沙发

peizhouluo [专家分：770] 发布于 2007-01-09 17:10:00

你到网上下载就有了。

最简捷的就不清楚咯！

板凳

lq7350684 [专家分：320] 发布于 2007-01-09 17:38:00

不知道你认为下面的这个简单不简单，不过很全也很实用。
发给你，自己拿去研究吧。

ASP上传图片

链接数据库conn.asp

<%
db_path="testimg.mdb"
set conn=server.CreateObject("ADODB.connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath(db_path)
conn.open connstr
%>

index.asp


<%
strsql="select * from imgurl"
set rs=server.createobject("ADODB.recordset")
rs.open strsql,conn,1,1
do while not rs.eof
if not rs.eof and rs.bof then
else
whatid=rs("id")
%>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="20%"><a href="1.asp?id=<%=rs("id")%>"><img src=" showimg.asp?id=<%=whatid%>" width="150" height="150" border="0" /></a></td>
    <td width="26%"></td>
    <td width="30%"></td>
    <td width="24%"></td>
  </tr>
  <tr>
    <td><div align="center"><a href="upload.html">上传</a> <a href="del.asp?id=<%=rs("id")%>" 您确实要删除该记录吗？'))">删除</a></div></td>
<%end if%>
    <td></td>
    <td></td>
    <td></td>
  </tr>
</table>
</body>
<%
rs.movenext
loop%>

表单upload.html

<form action="upload.asp" method="post" enctype="multipart/form-data">
<input type="file" >
<input type="submit" value="ok">
</form>

upload.asp


<%
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 rs=server.createobject("ADODB.recordset")
rs.open "SELECT * FROM imgurl",conn,3,3
rs.addnew
rs("img").AppendChunk myData
rs.update
rs.close
set rs=nothing
set conn=nothing
response.redirect "index.asp"
%>

showimg.asp


<%
set rs=server.createobject("ADODB.recordset")
sql="select * from imgurl where id"))
rs.open sql,conn,1,1
Response.ContentType="image/*"
Response.BinaryWrite rs("img").getChunk(8000000)
rs.close
set rs=nothing
set conn=nothing
%>

查看原图


<%
strsql="select * from imgurl where id"))
set rs=server.createobject("ADODB.recordset")
rs.open strsql,conn,1,1
whatid=rs("id")
%>
<img src="showimg.asp?id=<%=whatid%>">

<%
rs.close
set rs=nothing
set conn=nothing
%>

删除图片


<%
set rs=server.CreateObject("adodb.recordset")
    rs.open"select * from imgurl where id")),conn,1,3
if not rs.eof then
rs.delete
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.Write "<script> alert('删除成功');location.href='index.asp';</script>"
else
response.Write"<script> alert('删除失败');history.back(-1);</script>"
end if
%>

3 楼

peizhouluo [专家分：770] 发布于 2007-01-09 22:47:00

楼上那个实例不错！我也收藏了那个文件！

4 楼

veng [专家分：0] 发布于 2007-01-10 09:00:00

非常感谢！以上写的是把图片存到数据库，我想了解的是把图片放在img文件夹中
，要如何上传上去呢？谢谢！

5 楼

wangsdong [专家分：21390] 发布于 2007-01-10 10:03:00

upload_5xsoft
你搜索一下这个，看看它是如何用的

6 楼

peizhouluo [专家分：770] 发布于 2007-01-10 12:08:00

[quote]非常感谢！以上写的是把图片存到数据库，我想了解的是把图片放在img文件夹中
，要如何上传上去呢？谢谢！[/quote]
去找那些有后台的电子商务网站代码，一般都有那个的！比如时代购物系统！自己去找找吧！

您尚未登录，请登录后再回复。点此登录或注册

主题：谁能告诉我最简捷的上传图片方法？

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段