post_ok.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 47 行

<!--#include file="../inc/conn.asp"-->
<%
opendataconn
name=rtrim(request("name"))
name=replace(name,"<","")
name=replace(name,">","")
name=replace(name,"$","")
name=replace(name,"'","")
tel=trim(request("tel"))
tel="'" & replace(tel,"'","''") &  "'"
body=rtrim(request("body"))
body=replace(body,"<","")
body=replace(body,">","")
body=replace(body,"$","")
body=replace(body,"'","")
body=replace(body,"vbcrlf","<br>")
email=rtrim(request("email"))
email=replace(email,"<","")
email=replace(email,">","")
email=replace(email,"$","")
email=replace(email,"'","")
http=rtrim(request("http"))
http=replace(http,"<","")
http=replace(http,">","")
http=replace(http,"$","")
http=replace(http,"'","")
oicq=rtrim(request("oicq"))
oicq=replace(oicq,"<","")
oicq=replace(oicq,">","")
oicq=replace(oicq,"$","")
oicq=replace(oicq,"'","")
icq=rtrim(request("oicq"))
icq=replace(icq,"<","")
icq=replace(icq,">","")
icq=replace(icq,"$","")
icq=replace(icq,"'","")
area=rtrim(request("area"))
face=rtrim(request("face"))
ip=request.serverVariables("REMOTE_ADDR")
sql="insert into gbook(book_name,book_meno,book_ip,book_email,book_http,book_face,book_oicq,book_child,book_icq,book_area,tel)values"
sql=sql&"('"&name&"','"&body&"','"&ip&"','"&email&"','"&http&"','"&face&"','"&oicq&"',0,'"&icq&"','"&area&"',"&tel&")"
'response.write(sql)
'response.end
conn.execute (sql)
response.redirect"index.asp"
closedataconn
%>