www.gusucode.com > 雨点单用户免雨点单用户免费留言板 2.0 Build 080828 > message_save.asp

    <!--#include file="conn.asp"-->
<%
Call Remote()
session("u_name")=HTMLEncode(request("u_name"))
session("email")=HTMLEncode(request("email"))
session("u_web")=HTMLEncode(request("u_web"))
session("u_tel")=HTMLEncode(request("u_tel"))
session("u_add")=HTMLEncode(request("u_add"))
image=request("image")
u_sex=request("u_sex")
ispass=request("ispass")
if ispass<>"" then
	ispass=1
else
	ispass=0
end if
pass=HTMLEncode(request("pass"))
T_content=HTMLEncode(request("T_content"))
session("T_content")=T_content
ip=Request.ServerVariables("REMOTE_ADDR")
if request("verifycode")="" then
	Call ShowErrorTo("附加码不能为空","index.asp")
end if
if session("getcode")="9999" then
	Call ShowErrorTo("附加码错误","index.asp")
end if
if cstr(session("getcode"))<>cstr(trim(request("verifycode"))) then
	Call ShowErrorTo("附加码错误","index.asp")
end if
session("getcode")=""
Call RsName(rs,"select top 1 * from message",3,3)
rs.addnew
rs("u_name")=session("u_name")
rs("u_web")=session("u_web")
rs("email")=session("email")
rs("u_tel")=session("u_tel")
rs("u_add")=session("u_add")
rs("image")=image
rs("u_sex")=u_sex
rs("ispass")=ispass
rs("pass")=pass
rs("T_content")=session("T_content")
rs("ip")=ip
rs.update
Call CloseRs()
%>
<%
session("u_name")=""
session("u_tel")=""
session("u_add")=""
session("T_content")=""
session("email")=""
session("u_web")=""
call closeconn()
if session("ischeck")=true then
Call ShowErrorTo("提交成功，管理员审核中……","Index.asp")
else
Call ShowErrorTo("发布留言成功","Index.asp")
end if
%>