一个BBS的源代码(六)

<%

=====================================

case "adduser"

=====================================

添加用户

==============

userid = trim(request("userid"))

password = trim(request("password"))

confirm = trim(request("confirm"))

email = trim(request("email"))

wrongmsg = ""

if userid = "" then wrongmsg = wrongmsg + "<dd><li>账号为空。</li>"

if password = "" then wrongmsg = wrongmsg + "<dd><li>密码为空。</li>"

if confirm = "" then wrongmsg = wrongmsg + "<dd><li>重复密码为空。</li>"

if email = "" then wrongmsg = wrongmsg + "<dd><li>邮件地址为空。</li>"

if wrongmsg = "" then

if password <> confirm then wrongmsg = wrongmsg + "<dd><li>两次输入密码不相同。</li>"

if not checkemail( email ) then wrongmsg = wrongmsg + "<dd><li>非法邮件地址。</li>"

if wrongmsg = "" then

sql = "select * from bbsmember where [账号]=" & sqlstr(userid) & ""

recmember.open sql , con , 1

if recmember.bof and recmember.eof then userexist = false else userexist = true

recmember.close

if not userexist then

sql = "insert into bbsmember ([账号],[密码],[邮件]) values(" &_

sqlstr( userid ) & "," &_

sqlstr( password ) & "," &_

sqlstr( email ) & ")"

con.execute( sql )

else

wrongmsg = wrongmsg + "<dd><li>用户名已经存在。</li>"

end if

end if

end if

%>

<table align=center border=0 cellpadding=7 cellspacing=0 width=650>

<tr>

<td class=menu>

<%

if wrongmsg = "" then 显示成功信息

%>

恭喜你！你已经成功注册！<br><br>

<a href="/">返回“飞林庄”</a><br>

<a href="<%= asp_file_name %>?job=list">返回“经验交流”</a><br>

<a href="<%= asp_file_name %>?job=write">发表文章</a><br>

<%

else 显示错误信息

%>

操作失败：<br>

<%= wrongmsg %><br><br>

<a href="javascript:history.back()">返回上一页</a>

<%

end if

%>

</td>

</tr>

</table>

<%

==============================

case "send"

==============================

发送邮件

（把文章发送到用户信箱）

=============================

which = request("which")

email = trim( request("email") )

%>

<table align=center border=0 cellpadding=7 cellspacing=0 width=650>

<tr>

<td>