一个BBS的源代码(四)

'==============================
Case "Write"
'==============================
' 发表文章

 1<table align="center" border="0" cellpadding="7" cellspacing="0" width="650">
 2<tr>
 3<td class="menu">
 4<p><a href="/">飞林庄</a>-&gt;<a href="```
 5= ASP_FILE_NAME 
 6```">经验交流</a></p>
 7<form action="```
 8= ASP_FILE_NAME 
 9```" id="FORM1" method="post" name="FORM1">
10<input name="Job" type="hidden" value="Add"/>   
11账号：<input id="Userid" maxlength="30" name="Userid" size="30"/>   
12密码：<input id="Password" name="Password" type="password"/><br/>   
13题目：<input id="Title" maxlength="80" name="Title" size="72"/><br/>
14<textarea cols="80" id="Content" name="Content" rows="20"></textarea><br/>
15<input id="Mailme" name="Mailme" style="BORDER-BOTTOM: #f0f0d0; BORDER-LEFT: #f0f0d0; BORDER-RIGHT: #f0f0d0; BORDER-TOP: #f0f0d0" type="checkbox" value="Yes"/>有回复时发邮件通知我   
16<input type="submit" value=" 发 表 "/>
17<input type="reset" value=" 重 写 "/>
18</form>
19</td>
20</tr>
21</table>

'================================
Case "Add","Reply"
'================================
' 把文章加进数据库

' 检查数据
Userid = Trim(Request("Userid"))
Password = Trim(Request("Password"))
Title = Trim(Request("Title"))
Content = Rtrim(Request("Content"))
If Request("Mailme") = "Yes" Then Mailme = 1 Else Mailme = 0

WrongMsg = ""
If Userid = "" Then WrongMsg = WrongMsg + "

 1<dd><li>请输入你的账号。"   
 2If Password = "" Then WrongMsg = WrongMsg + "<dd><li>请输入你的密码。"   
 3If Title = "" Then WrongMsg = WrongMsg + "<dd><li>请输入文章题目。"   
 4If Content = "" Then WrongMsg = WrongMsg + "<dd><li>请输入内容。"   
 5  
 6If WrongMsg = "" Then   
 7  
 8Userid = SqlStr( Userid )   
 9Password = SqlStr( Password )   
10Title = SqlStr( Title )   
11Content = SqlStr( Content )   
12  
13' 检察账号与密码   
14SQL = "SELECT COUNT(*) FROM bbsmember WHERE [账号]='" &amp; Userid &amp; "' AND [密码]='" &amp; Password &amp; "'"   
15RecMember.Open SQL , Con , 1   
16If RecMember.Fields(0).Value = 0 Then MemberExist = True Else MemberExist = False   
17RecMember.Close   
18  
19If MemberExist Then   
20  
21WrongMsg = WrongMsg + "<dd><li>用户名不存在或者密码不对。"   
22  
23Else ' 加进数据库   
24  
25If Job = "Add" Then   
26SQL = "INSERT INTO bbs ([作者],[题目],[内容],[邮件通知]) VALUES('" &amp;_   
27SqlStr( Userid ) &amp; "','" &amp;_   
28SqlStr( Title ) &amp; "','" &amp;_   
29SqlStr( Content ) &amp; "'," &amp;_   
30Mailme &amp; ")"   
31Else   
32' 回复文章数加一   
33Con.Execute( "UPDATE bbs SET [回复]=[回复]+1 WHERE [序号]=" &amp; Session("BBS_Which") )   
34  
35'   
36' 邮件通知原作者   
37'   
38SQL = "SELECT [题目],1134831772,[邮件通知] FROM bbs WHERE [序号]=" &amp; Session("BBS_Which")   
39RecBBS.Open SQL , Con , 1   
40If RecBBS.Fields("邮件通知") Then   
41  
42FirstTitle = RecBBS.Fields("题目")   
43WriteTime = RecBBS.Fields("时间")</li></dd></li></dd></li></dd></li></dd></li></dd>