sendpicok.asp

asp_erp 源碼 附詳盡使用說明及數據庫

<%Option Explicit%>
<%
dim rs,username,conn,DBPath
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
username=Session.Contents("username")
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 conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("hy.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "pers where username='"&Session.Contents("username")&"'",conn,3,3
if not(rs.eof and rs.bof) then
rs("grxp").appendchunk mydata
rs("sfp")=true
rs.update
set rs=nothing
set conn=nothing 
response.write "<br><br><center><font size=-1>照片上传成功！,<br><br>3秒自动返回！</font></center>"
response.write "<meta http-equiv=refresh content=3;url=welcome.asp>"
response.end%>
<%else%>
<%response.write "<br><br><center><font size=-1>Sorry,请先填写您的详细资料，方可上传照片！,<br><br>3秒自动返回！</font></center>"
response.write "<meta http-equiv=refresh content=3;url=details.asp>"
response.end
end if%>