addpic.asp

来自「一个非常好的旅游网站程序.」· ASP 代码 · 共 35 行

<%
if request.cookies("汕头商城")<>"9988" then
  response.redirect "../default.asp"
end if
%>

<!--#include file="pic_conn.asp"-->
<%
dim rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
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 "pic",pic_conn,3,2
rs.addnew
rs("big").appendchunk mydata
               
 'rs("user_id")=session("user_id")
 'rs("date")=date
rs.update

set rs=nothing
set conn=nothing
response.redirect "pic2.asp"
%>