addpic1.asp

基于asp的 班级同学录主页源代码

<%if session("user")="" then
response.redirect "../err.asp"
end if%>
<%

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("../db/pic.mdb") & ";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.update
connGraph.execute" update images set deleted=1 where ID="&session("photoid")
connGraph.execute" delete * from images  where deleted=0"
rec.close
set rec=nothing
set connGraph=nothing%>
<!--#include file="conn.asp"-->
<%
conn.execute"UPDATE USER SET photocount=photocount+1,usermoney =usermoney+3 where user='"_
&session("user")&"'"
set conn=nothing
%>
<%
response.redirect "finish.asp"
%>