addtravelline.asp

一个非常好的旅游网站程序.

<%
if request.cookies("sp_name")="" then
  response.redirect "login.asp"
end if
%>

<!--#include file="travelline_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 "travelline2.asp"
%>