一个BBS的源代码(六)

 1   
 2'=====================================   
 3Case "Adduser"   
 4'=====================================   
 5' 添加用户   
 6'==============   
 7  
 8Userid = Trim(Request("Userid"))   
 9Password = Trim(Request("Password"))   
10Confirm = Trim(Request("Confirm"))   
11Email = Trim(Request("Email"))   
12  
13WrongMsg = ""   
14  
15If 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

1<table align="center" border="0" cellpadding="7" cellspacing="0" width="650">
2<tr>
3<td class="menu">

If WrongMsg = "" Then ' 显示成功信息

1恭喜你！你已经成功注册！<br/><br/>
2<a href="/">返回“飞林庄”</a><br/>
3<a href="```
4= ASP_FILE_NAME 
5```?Job=List">返回“经验交流”</a><br/>
6<a href="```
7= ASP_FILE_NAME 
8```?Job=Write">发表文章</a><br/>

Else ' 显示错误信息

1操作失败：<br/>

= WrongMsg

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

End If

1</td>
2</tr>
3</table>   
4

'==============================
Case "Send"
'==============================
' 发送邮件
' （把文章发送到用户信箱）
'=============================

Which = Request("Which")
Email = Trim( Request("Email") )

1<table align="center" border="0" cellpadding="7" cellspacing="0" width="650">
2<tr>
3<td></td></tr></table></dd></dd></dd></dd></dd></dd></dd>