savedata.asp

自己的网站 看看吧 我以前的网站

<!--#include file="bkconn.asp"-->
<!--#INCLUDE file="upload.asp"-->
<%
FormSize=Request.TotalBytes
FormData=Request.BinaryRead(FormSize)
Set Fields = GetUpload(FormData)

imgsize= Fields("img").length
imgtype= Fields("img").ContentType
imgdata=Fields("img").Value

xm=Fields("name").Value
xb=Fields("sex").Value
dw=Fields("from").Value
xx=Fields("email").Value
zy=Fields("homepage").Value
nr=Fields("content").Value
refile=Fields("refile").Value
ip=Request.ServerVariables("REMOTE_ADDR")
nowtime=now()
sj=cstr(year(nowtime))+"-"+cstr(month(nowtime))+"-"+cstr(day(nowtime))+" "+cstr(hour(nowtime))+":"+right("0"+cstr(minute(nowtime)),2)+":"+right("0"+cstr(second(nowtime)),2)

set rs=server.createobject("ADODB.recordset") 
rs.Open "SELECT * FROM Book Where id is null",conn,1,3 
rs.addnew

if imgtype<>"image/pjpeg" and imgtype<>"image/gif" then
   rs("size")=0
else
   rs("img").appendchunk imgdata 
   rs("size")=imgsize
end if

rs("xm")=xm
rs("xb")=xb
rs("xx")=xx
rs("zy")=zy
rs("dw")=dw
rs("nr")=nr
rs("sj")=sj
rs("ip")=ip

rs.update 
rs.close 
set rs=nothing 

if refile="admin" then
   response.redirect "admin.asp"
else
   response.redirect "Default.asp"
end if
%>