<%
if request("send")="ok" then
username=trim(request.form("username"))
dizhi=trim(request.form("dizhi"))
lianxiren=trim(request.form("lianxiren"))
usermail=trim(request.form("usermail"))
tele=trim(request.form("tele"))
if mailyes=0 then '邮箱为必填时检查邮箱是否合法
if Instr(usermail,".")<=0 or Instr(usermail,"@")<=0 or len(usermail)<10 or len(usermail)>100 then
response.write ""
response.end
end if
end if
set rs = server.CreateObject("adodb.recordset")
sql="select * from book order by Postdate desc"
rs.open sql,cnn,1,3
rs.Addnew
rs("username")=Request("username")
rs("comments")=Request("comments")
rs("usermail")=Request("usermail")
rs("chuanzhen")=Request("chuanzhen")
rs("dizhi")=Request("dizhi")
rs("lianxiren")=Request("lianxiren")
rs("tele")=Request("tele")
rs("pic")=Request("pic")
rs("qq")=Request("qq")
rs("online")=1
rs("IP")=Request.serverVariables("REMOTE_ADDR")
rs.Update
session("book_error")=session("book_error")+1
rs.close
set rs=nothing
response.write ""
response.end
end if
%>
