一個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 + "<DD><LI>題目不能為空。</LI>"
If Content = "" Then WrongMsg = WrongMsg + "<DD><LI>內容不能為空。</LI>"

If WrongMsg = "" Then
RecBBS.Open "SELECT [作者] FROM " & Table & " WHERE [序號]=" & WhichID , Con , 1
If RecBBS.FIElds("作者") = Userid Then
SQL = "SELECT COUNT(*) FROM bbsmember WHERE [賬號]='" & SqlStr(Userid) & "' AND [密碼]='" & SqlStr(PassWord) & "'"
RecMember.Open SQL , Con , 1
If RecMember.FIElds(0) > 0 Then
SQL = "UPDATE " & Table & " SET [題目]='" & SqlStr(Title) & "',[內容]='" & SqlStr(Content) & "' WHERE [序號]=" & WhichID
Con.Execute( SQL )
Else
WrongMsg = "<DD><LI>密碼不正確。</LI>"
End If
RecMember.Close
Else
WrongMsg = "<DD><LI>用戶名不正確。</LI>"
End If
RecBBS.Close
End If

End If

Title = ""
Content = ""

SQL = "SELECT [題目],[內容] FROM " & Table & " WHERE [序號]=" & WhichID
RecBBS.Open SQL , Con , 1

If Not RecBBS.EOF Then
Title = RecBBS.FIElds("題目")
Content = RecBBS.FIElds("內容")
End If
RecBBS.Close
%>
<TABLE align=center border=0 cellPadding=1 cellSpacing=0 width=650>
<TR>
<TD class="menu">
<A href="/">飛林莊</A>-&gt;<A href="<%= asp_FILE_NAME %>">經驗交流</A>-&gt;<A href="<%= ASP_FILE_NAME %>?Job=Content&Which=<%= session("BBS_Which") %>"><%= Session("BBS_WhichTitle") %></A>
<% If WrongMsg <> "" Then %>
<BR><BR>修改失敗！<BR><BR>
<%= WrongMsg %><BR>
<% Else %>
<BR><BR>修改成功！<BR><BR>
<% End If %>
<FORM action="<%= ASP_FILE_NAME %>" method=post>
<INPUT type=hidden name=Job value=Modify>
<INPUT type=hidden name=Modify value=Yes>
<INPUT type=hidden name=Which value="<%= Which %>">
賬號：<INPUT type=text id=Userid name=Userid size=30 maxlength=80><BR>
密碼：<INPUT type=password id=Password name=PassWord size=30 maxlength=80><BR><BR>
題目：<INPUT type=text id=Title name=Title value="<%= Title %>">
<TEXTAREA id=Content name=Content cols=80 rows=16><%= Content %></TEXTAREA><BR>
<INPUT type=submit value="確認修改">
</FORM>
</TD>
</TR>
</TABLE>

<%
'===============================
Case "Apply"
'===============================
' 申請賬號
%>

<TABLE align=center border=0 cellPadding=7 cellSpacing=0 width=650>
<TR>
<TD class=menu>
<FORM action="<%= ASP_FILE_NAME %>" method=POST>
<INPUT type=hidden name=Job value=Adduser>
<P>飛林莊-&gt;經驗交流-&gt;注冊賬號</P>
<P>
必須的資料：<BR>
<FONT color=#ff0000>賬號</FONT>：
<INPUT id=Userid name=Userid size=40 maxLength=80><BR>
這是你的個人標識，可以使用中文或者英文。<BR>
<FONT color=#ff0000>密碼</FONT>：
<INPUT id=Password name=Password type=passWord maxLength=80 size=25><BR>
為保障你的賬號的正當權益，請謹慎選擇你的密碼！<BR>
<FONT color=#ff0000>重復密碼</FONT>：
<INPUT id=Confirm name=Confirm type=passWord maxLength=80 size=25><BR>
確認你的密碼。<BR>
<FONT color=#ff0000>電子郵件</FONT>：
<INPUT id=Email name=Email size=60 maxlength=80><BR>
這是我們的唯一必須的個人資料。
</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 name=Age size=3 maxlength=4>
' </P>
' <P>
' 聯系方式：<BR>
' 省份：<SELECT id=PRovince name=Province size=1>
' <OPTION value="北京" selected> 北京 </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 name=Homepage maxLength=80 size=60>
' </P>
%>
<P>
<INPUT id=submit4 name=submit4 type=submit value=" 我 填 好 了 ！"><BR>
<INPUT id=reset2 name=reset2 type=reset value=" 我 要 重 新 填 ！ "><BR>
</P>
</FORM>
</TD>
</TR>
</TABLE>