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