图片上传

[dingdi]

各位大虾，小弟现在想做了一个小小的班级通讯录以备我们班级毕业后方便联系，在通讯录里我想加入照片，想把照片作为学生表的一个字段，请各位帮忙给个关于图片上传和显示的代码，谢谢！！！

[「已注销」]

至于把照片作为学生表的一个字段,我的建议是:

1,首先把图片上传到服务指定目录中(至于上传代码网上都有)

2,把上传所得到的图片路径写入学生表的照片字段

3,前台显示照片时直接读取学生表照片字段即可

[chushicheng]

下载一个论坛,里面有上传文件的源代码

[ljupin]

在这里搜索"上传"

[erlzj]

要找无组件的！

[dingdi]

各位有原代码吗？贴个出来看看…………

[kanshangren]

<%

response.buffer=true

formsize=request.totalbytes

if request.TotalBytes>50000 then
response.Write("您上传的图片大小超出了限制！请优化图片后再上传，谢谢理解。")

set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("ren233.asp") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "select * FROM images where id="&session("photoid"),connGraph,1,3
rec.delete
rec.close
set rec=nothing
set connGraph=nothing
response.end
end if



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("233.asp") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM images where id="&session("photoid"),connGraph,1,3
rec("img").appendchunk mydata
rec("filesize")=formsize
rec.update
rec.close
set rec=nothing
set connGraph=nothing

%>

[「已注销」]

演示:

http://www.nhmarket.com/tmp/uploadDemo/upload.asp

下载:

http://www.nhmarket.com/tmp/uploadDemo/uploaddemo.rar