luntan_yhziliao1.asp

这是一个用ASP 做的论坛.值得研究一下. 最有趣的是,发帖支持 HTML 代码 可以回出很好玩的帖.本来想把设计架构也发上来的,它在本子上,懒得抄拉

<!--#include file="conn.asp"--> 
<%
zc_name1=request("zc_name")
session("zc_name1")=zc_name1
pwd=request("pwd")
session("pwd")=pwd
pwd1=request("pwd1")
realname1=request.form("realname")
session("realname1")=realname1
sex1=request.form("sex")
session("sex1")=sex1
cs_year1=request.form("cs_year")
cs_month1=request.form("cs_month")
picture1=request.form("userface")
QQ1=request.form("QQ")
session("QQ1")=QQ1
e_mail1=request.form("e_mail")
session("e_mail1")=e_mail1
school1=request.Form("school")
session("school1")=school1
question1=request.form("question")
session("question1")=question1
answer1=request.form("answer")
session("answer1")=answer1
sinl1=request.form("sinl")
session("sinl1")=sinl1
dim birthday1
birthday1=cs_year1&"-"&cs_month1
if zc_name1="" then
session("a")="请先填写好你的用户名!"
server.Transfer("luntan_yhziliao.asp")
else
session("a")=""
end if

if pwd<>pwd1 then
session("b")="你输入的两个密码不相同!"
server.Transfer("lt_regist.asp")
else
session("b")=""
end if 
if realname1="" then
session("c")="你还没填写你的姓名!"
server.Transfer("luntan_yhziliao.asp")
else
session("c")=""
end if 
if sex1="" then
session("d")="你还没选者性别!"
server.Transfer("luntan_yhziliao.asp")
else
session("d")=""
end if 
if question1="" or answer1="" then
session("e")="请先填写好问题,方便找回丢失密码!"
server.Transfer("luntan_yhziliao.asp")
else
session("e")=""
end if 
if e_mail1="" then
session("f")="请填写好你的邮箱地址!"
server.Transfer("luntan_yhziliao.asp")
else
session("f")=""
end if 
Set rs1=Server.CreateObject("ADODB.recordset")
set rs1=conn.execute("update usermessage set use_name='"&request("zc_name") &"' ,realname='"&trim(request("realname"))&"',sex='"&trim(request("sex"))&"',birthday='"&birthday1&"',picture='"&picture1&"',QQ='"&trim(request("QQ"))&"',e_mail='"&trim(request("e_mail"))&"',school='"&trim(request("school"))&"',question='"&trim(request("question"))&"',answer='"&trim(request("answer"))&"',sinl_login='"&trim(request("sinl"))&"' where use_name='"&session("loginname")&"'")
conn.close()
set conn=nothing
 


%>
<script language=javascript>
alert("修改成功!");
window.navigate("luntan_yhziliao.asp")
</script>