Question

求ASP上传图片代码

我需要实现一个这样的功能。
在页面中，点击浏览，选择图片，然后把图片上传到指定目录下。不需要放入到数据库中的。
我的专业是做ASP。NET的。。 现在工作中需要用到部份ASP。在ASP方面完全的菜鸟一个，只能看的懂一点皮毛。所以麻烦发祥细点，最好是写点注释什么的。非常感谢。。
我的邮箱：617872056@qq.com
网上的答案能搜到的我都过了，可是没有我要的那个效果呀。。我说过的，ASP我完全的外行。。所以希望各位会的能发个简单易懂的实例，谢谢。

Answer 1

我发给你吧，直接可传到数据库的。

Answer 2

“asp上传文件”网上太多了。。

Answer 3

不放入数据库就只有一个办法：FSO

Answer 4

-----conn.asp----
<%
db_path="db.mdb"
set conn=server.CreateObject("ADODB.connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath(db_path)
conn.open connstr
%>
--------index.asp-----
<!--#include file="conn.asp"-->
【<a href="upload.asp">上传图片</a>】<br><br>
<%
strsql="select * from imgurl"
set rs=server.createobject("ADODB.recordset")
rs.open strsql,conn,1,1
do until rs.eof
%>
<img src="showimg.asp?id=<%=rs("id")%>"><br>
<%
rs.movenext
loop
rs.close
conn.close
%>
<br><br>【<a href="upload.asp">上传图片</a>】
-----save.asp--------
<!--#include file="conn.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--------
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("ADODB.recordset")
sql="select * from imgurl where id="&trim(request("id"))
rs.open sql,conn,1,1
Response.ContentType="image/*"
Response.BinaryWrite rs("img").getChunk(8000000)
rs.close
set rs=nothing
set conn=nothing
%>
-----upload.asp--------
<form action="save.asp" method="post" enctype="multipart/form-data">
<input type="file" name="imgurl">
<input type="submit" name=ok value="提交">
</form>
数据库:db.mdb
表名:imgurl
id img
自动编号 长二进制数据