bbs的html代码,一个BBS的源代码(四)

==============================

case "write"

==============================

发表文章

%>

飞林庄->经验交流 账号： 密码： 题目： 有回复时发邮件通知我

================================

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 + "

请输入你的账号。"

if password = "" then wrongmsg = wrongmsg + "

请输入你的密码。"

if title = "" then wrongmsg = wrongmsg + "

请输入文章题目。"

if content = "" then wrongmsg = wrongmsg + "

请输入内容。"

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 + "

用户名不存在或者密码不对。"

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("时间")