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>-><A href="<%= asp_FILE_NAME %>">經驗交流</A>-><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" '=============================== ' 申請賬號 %>
