BBSXP论坛基本功能代码

'''1''''''''''''''''''发送短信通知所有用户''''''''''''''''''''''
   oksql="select username from [user]"
   Set Rs=Conn.Execute(oksql)
   do while not rs.eof
   conn.Execute "insert into message (author,incept,content) values ('"&Request.Cookies("username")&"','"&rs("username")&"','彩票中心：大奖已经开出，请速到‘社区娱乐’->‘社区彩票’看看你有没有中奖！！')"
   conn.execute "update [user] set newmessage=newmessage+1 where username='"&rs("username")&"'"
   rs.movenext
   loop
   rs.close
   succeed("开奖成功！！<meta http-equiv=refresh content=3;url=piao.asp><br><a href=piao.asp>返回彩票中心</a>")

'''2'''''''''''''''''''''''关进论坛监狱''''''''''''''''''''''''''''''''''''

sql="insert into prison (username,causation,constable,prisonday) values ('"&Request.Cookies("username")&"','抢劫银行，被一名80岁女顾客打昏后被抓，关监狱三天。','五中论坛管理中心','3')"
  conn.Execute(SQL)

'''3'''''''''''''''''''''''操作失败的提示信息''''''''''''''''''''''''''''

if int(rs("magicpower"))<qjml then error("<li>你魅力不足：衣衫褴褛，贼眉鼠眼，被银行清洁工用扫把赶出了银行。提示：你的魅力必须超过"&qjml&"才能进行抢劫。")

'''4'''''''''''''''''''''操作成功的提示信息'''''''''''''''''''''''''''''''''''

  message="<li>抢劫时你只顾着与警卫混战，却被一个义愤填膺的顾客老太太从背后用拐杖敲昏了你的脑袋，结果你束手被擒。<font color=red>抢劫失败，被关近论坛监狱三天，现金存款均被没收，经验降为0，魅力减少"&qjml&"点</font>……<li><a href="/blog/bank.asp>";返回银行</a><li><a href="/blog/Default.asp>";返回论坛首页</a>"
  succeed(message&"<meta http-equiv=refresh content=3;url='bank.asp'>")

'''5''''''''''''''''''''''在论坛首页下方的会员动态里显示信息''''''''''''''''''''''''''''''''
sql="select * from dcbbs"
rs.Open sql,Conn,1
rs("trend1")="<font color=#004aff>"&Trim(username)&"</font>登陆论坛的时候拣到10000金币"
rs.update
rs.close

说明：trend1可以从1到13

'''6'''''''''''''''''''''''将信息保存到论坛公告（ID为9的公告）''''''''''''''''''''
sql="select * from [affiche] where id=9"
rs.Open sql,Conn,1,3
if rs.eof then rs.addnew
rs("title")="拣分活动公告"
rs("content")=rs("content")&"<br>"&now()&" &nbsp;&nbsp;&nbsp;<font color=#004aff>"&Trim(username)&"</font> &nbsp;&nbsp;"&jianglistr
rs("username")="五中论坛"
rs("posttime")=date()
rs.update
rs.close
sql="select top 2 * from affiche order by posttime Desc"
Set Rs=Conn.Execute(sql)
Do While Not RS.EOF
affiche=affiche&"<b>"&rs("title")&"</b> ("&rs("posttime")&")　　　"
RS.MoveNext
loop
conn.execute("update [clubconfig] set affichetitle='"&affiche&"'")

'''7'''''''''''''''''''''''''''''''''''''''''获得当前在线会员人数

conn.execute("Select count(sessionid)from online where username<>''")(0)