'================================ 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
