一个BBS的源代码(五)

'=================================
Case "Modify"
'================================
' 修改文章

Which = Request("Which")
WhichID = GetID( Which )

If Left( Which , 1 ) = "E" Then Table = "bbs" Else Table = "bbsreply"

WrongMsg = ""

If Request("Modify") = "Yes" Then

Userid = Request("Userid")
Password = Request("Password")
Title = Trim(Request("Title"))
Content = Rtrim(Request("Content"))

If Title = "" Then WrongMsg = WrongMsg + "

 1<dd><li>题目不能为空。</li>"   
 2If Content = "" Then WrongMsg = WrongMsg + "<dd><li>内容不能为空。</li>"   
 3  
 4If WrongMsg = "" Then   
 5RecBBS.Open "SELECT [作者] FROM " &amp; Table &amp; " WHERE [序号]=" &amp; WhichID , Con , 1   
 6If RecBBS.Fields("作者") = Userid Then   
 7SQL = "SELECT COUNT(*) FROM bbsmember WHERE [账号]='" &amp; SqlStr(Userid) &amp; "' AND [密码]='" &amp; SqlStr(Password) &amp; "'"   
 8RecMember.Open SQL , Con , 1   
 9If RecMember.Fields(0) &gt; 0 Then   
10SQL = "UPDATE " &amp; Table &amp; " SET [题目]='" &amp; SqlStr(Title) &amp; "',[内容]='" &amp; SqlStr(Content) &amp; "' WHERE [序号]=" &amp; WhichID   
11Con.Execute( SQL )   
12Else   
13WrongMsg = "<dd><li>密码不正确。</li>"   
14End If   
15RecMember.Close   
16Else   
17WrongMsg = "<dd><li>用户名不正确。</li>"   
18End If   
19RecBBS.Close   
20End If   
21  
22End If   
23  
24Title = ""   
25Content = ""   
26  
27SQL = "SELECT [题目],[内容] FROM " &amp; Table &amp; " WHERE [序号]=" &amp; WhichID   
28RecBBS.Open SQL , Con , 1   
29  
30If Not RecBBS.EOF Then   
31Title = RecBBS.Fields("题目")   
32Content = RecBBS.Fields("内容")   
33End If   
34RecBBS.Close   
35%&gt;   
36<table align="center" border="0" cellpadding="1" cellspacing="0" width="650">
37<tr>
38<td class="menu">
39<a href="/">飞林庄</a>-&gt;<a href="```
40= ASP_FILE_NAME 
41```">经验交流</a>-&gt;<a ```"="" bbs_which")="" href="```
42= ASP_FILE_NAME 
43```?Job=Content&amp;amp;Which=```
44= Session(">```
45= Session("BBS_WhichTitle") 
46```</a>

If WrongMsg <> "" Then

1<br/><br/>修改失败！<br/><br/>

= WrongMsg

Else

1<br/><br/>修改成功！<br/><br/>

End If

 1<form action="```
 2= ASP_FILE_NAME 
 3```" method="post">
 4<input name="Job" type="hidden" value="Modify"/>
 5<input name="Modify" type="hidden" value="Yes"/>
 6<input name="Which" type="hidden" value="```
 7= Which 
 8```"/>   
 9账号：<input id="Userid" maxlength="80" name="Userid" size="30" type="text"/><br/>   
10密码：<input id="Password" maxlength="80" name="Password" size="30" type="password"/><br/><br/>   
11题目：<input id="Title" name="Title" type="text" value="```
12= Title 
13```"/>
14<textarea cols="80" id="Content" name="Content" rows="16">```
15= Content 
16```</textarea><br/>
17<input type="submit" value="确认修改"/>
18</form>
19</td>
20</tr>
21</table>   
22

'===============================
Case "Apply"
'===============================
' 申请账号

 1  
 2<table align="center" border="0" cellpadding="7" cellspacing="0" width="650">
 3<tr>
 4<td class="menu">
 5<form action="```
 6= ASP_FILE_NAME 
 7```" method="POST">
 8<input name="Job" type="hidden" value="Adduser"/>
 9<p>飞林庄-&gt;经验交流-&gt;注册账号</p>
10<p>   
11必须的资料：<br/>
12<font color="#ff0000">账号</font>：   
13<input id="Userid" maxlength="80" name="Userid" size="40"/><br/>   
14这是你的个人标识，可以使用中文或者英文。<br/>
15<font color="#ff0000">密码</font>：   
16<input id="Password" maxlength="80" name="Password" size="25" type="password"/><br/>   
17为保障你的账号的正当权益，请谨慎选择你的密码！<br/>
18<font color="#ff0000">重复密码</font>：   
19<input id="Confirm" maxlength="80" name="Confirm" size="25" type="password"/><br/>   
20确认你的密码。<br/>
21<font color="#ff0000">电子邮件</font>：   
22<input id="Email" maxlength="80" name="Email" size="60"/><br/>   
23这是我们的唯一必须的个人资料。   
24</p>

' <p>
' 个人资料：<br/>
' 真实性名：<input id="Username" maxlength="80" name="Username"/><br/>
' 性别：
' <input id="Sex" name="Sex" type="radio" value="男"/>男
' <input id="Sex" name="Sex" type="radio" value="女"/>女<br/>
' 年龄： <input id="Age" maxlength="4" name="Age" size="3"/>
' </p>
' <p>
' 联系方式：<br/>
' 省份：<select id="Province" name="Province" size="1">
' <option selected="" value="北京"> 北京 </option>
' <option value="北京"> 广东 </option>
' <option value="广西"> 广西 </option>
' <option value="海南"> 海南 </option>
' <option value="福建"> 福建 </option>
' <option value="天津"> 天津 </option>
' <option value="湖南"> 湖南 </option>
' <option value="湖北"> 湖北 </option>
' <option value="河南"> 河南 </option>
' <option value="河北"> 河北 </option>
' <option value="山东"> 山东 </option>
' <option value="山西"> 山西 </option>
' <option value="黑龙江"> 黑龙江 </option>
' <option value="辽宁"> 辽宁 </option>
' <option value="上海"> 上海 </option>
' <option value="甘肃"> 甘肃 </option>
' <option value="青海"> 青海 </option>
' <option value="新疆"> 新疆 </option>
' <option value="西藏"> 西藏 </option>
' <option value="宁夏"> 宁夏 </option>
' <option value="四川"> 四川 </option>
' <option value="云南"> 云南 </option>
' <option value="吉林"> 吉林 </option>
' <option value="内蒙古"> 内蒙古 </option>
' <option value="陕西"> 陕西 </option>
' <option value="安徽"> 安徽 </option>
' <option value="贵州"> 贵州 </option>
' <option value="江苏"> 江苏 </option>
' <option value="重庆"> 重庆 </option>
' <option value="浙江"> 浙江 </option>
' <option value="江西"> 江西 </option>
' </select><br/>
' ＩＣＱ：<input id="ICQ" maxlength="80" name="ICQ" size="30"/><br/>
' 公司/个人主页：<input id="Homepage" maxlength="80" name="Homepage" size="60"/>
' </p>

1<p>
2<input id="submit4" name="submit4" type="submit" value=" 我 填 好 了 ！"/><br/>
3<input id="reset2" name="reset2" type="reset" value=" 我 要 重 新 填 ！ "/><br/>
4</p>
5</form>
6</td>
7</tr>
8</table></dd></dd></dd></dd>