一個BBS的源代碼(四)

2019-11-18 22:43:51

字體：大中小

來源：轉載

供稿：網友

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

%>

<TABLE align=center border=0 cellPadding=7 cellSpacing=0 width=650>
<TR>
<TD class=menu>
<P><A href="/">飛林莊</A>-><A href="<%= asp_FILE_NAME %>">經驗交流</A></P>
<FORM action="<%= ASP_FILE_NAME %>" id=FORM1 method=post name=FORM1>
<INPUT type=hidden name=Job value=Add>
賬號：<INPUT id=Userid maxLength=30 name=Userid size=30>
密碼：<INPUT id=PassWord name=Password type=password><BR>
題目：<INPUT id=Title maxLength=80 name=Title size=72><BR>
<TEXTAREA cols=80 id=Content name=Content rows=20></TEXTAREA><BR>
<INPUT id=Mailme name=Mailme value=Yes type=checkbox style="BORDER-BOTTOM: #f0f0d0; BORDER-LEFT: #f0f0d0; BORDER-RIGHT: #f0f0d0; BORDER-TOP: #f0f0d0">有回復時發郵件通知我
<INPUT type=submit value=" 發表 ">
<INPUT type=reset value=" 重寫 ">
</FORM>
</TD>
</TR>
</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 + "<DD><LI>請輸入你的賬號。"
If Password = "" Then WrongMsg = WrongMsg + "<DD><LI>請輸入你的密碼。"
If Title = "" Then WrongMsg = WrongMsg + "<DD><LI>請輸入文章題目。"
If Content = "" Then WrongMsg = WrongMsg + "<DD><LI>請輸入內容。"

If WrongMsg = "" Then

Userid = SqlStr( Userid )
Password = SqlStr( Password )
Title = SqlStr( Title )
Content = SqlStr( Content )

' 檢察賬號與密碼
SQL = "SELECT COUNT(*) FROM bbsmember WHERE [賬號]='" & Userid & "' AND [密碼]='" & Password & "'"
RecMember.Open SQL , Con , 1
If RecMember.Fields(0).Value = 0 Then MemberExist = True Else MemberExist = False
RecMember.Close

If MemberExist Then

WrongMsg = WrongMsg + "<DD><LI>用戶名不存在或者密碼不對。"

Else ' 加進數據庫

If Job = "Add" Then
SQL = "INSERT INTO bbs ([作者],[題目],[內容],[郵件通知]) VALUES('" &_
SqlStr( Userid ) & "','" &_
SqlStr( Title ) & "','" &_
SqlStr( Content ) & "'," &_
Mailme & ")"
Else
' 回復文章數加一
Con.Execute( "UPDATE bbs SET [回復]=[回復]+1 WHERE [序號]=" & session("BBS_Which") )

'
' 郵件通知原作者
'
SQL = "SELECT [題目],[時間],[郵件通知] FROM bbs WHERE [序號]=" & Session("BBS_Which")
RecBBS.Open SQL , Con , 1
If RecBBS.Fields("郵件通知") Then

FirstTitle = RecBBS.Fields("題目")
WriteTime = RecBBS.Fields("時間")

上一篇：一個BBS的源代碼(五)

下一篇：一個BBS的源代碼(三)