<%
dim content,towho,mysign
dim memo_set,bs_set,tj_set,pst_set,fj_set,lh_set,qj_set,fymaster,jymaster,log_set
dim fjty_set,fjbh_set,fjpf_set,fjzy_set,fjwg_set,fyname,jyname,rs,Errmsg
sub logs(lclass,title,userN,tousername)
       if Dvbbs.UserID="" or (not isnumeric(Dvbbs.UserID)) then Dvbbs.UserID=0
	if content="" then content="可疑的操作"
	connplus.execute("insert into Dv_log ([class],UserName,UserID,Title,content,DateAndTime,Tousername,sign,IP) values('"&lclass&"','"&userN&"',"&Dvbbs.UserID&",'"&Title&"','"&content&"',now(),'"&tousername&"','"&mysign&"','"&Request.ServerVariables("REMOTE_ADDR")&"')")
end sub
sub bnew(title,content,username)
          conn.execute("insert into [Dv_BbsNews] (boardid,title,content,username,addtime) values (0,'"&title&"','"&content&"','"&username&"',now())")
end sub
sub messto(towho,sender,title,content)
    conn.execute("insert into Dv_message(incept,sender,title,content,sendtime,flag,issend) values('"&towho&"','"&sender&"','"&title&"','"&content&"',Now(),0,1)")
end sub
sub getfyconfig()
   set rs=connplus.execute("select * from fyconfig")
     memo_set=Dvbbs.checkstr(rs(0))
   bs_set=split(rs(1),"|")
   tj_set=split(rs(2),"|")
   pst_set=split(rs(3),"|")
   fj_set=split(rs(4),",")
   lh_set=split(rs(5),"|")
   qj_set=split(rs(6),"|")
   fyname=Dvbbs.checkstr(trim(rs(7)))
   jyname=Dvbbs.checkstr(trim(rs(8)))
   log_set=split(rs(9),"|")
     fjty_set=split(fj_set(0),"|")
     fjbh_set=split(fj_set(1),"|")
     fjpf_set=split(fj_set(2),"|")
     fjzy_set=split(fj_set(3),"|")
     fjwg_set=split(fj_set(4),"|")
   if Dvbbs.membername=fyname then fymaster=true
   if Dvbbs.membername=jyname then jymaster=true
end sub


'页面错误提示信息
Sub dvbbs_error()
	Response.Write"<br>"
	Response.Write"<table cellpadding=3 cellspacing=1 align=center class=""tableBorder"" style=""width:75%"">"
	Response.Write"<tr align=center>"
	Response.Write"<th width=""100%"" height=25 colspan=2>错误信息"
	Response.Write"</td>"
	Response.Write"</tr>"
	Response.Write"<tr>"
	Response.Write"<td width=""100%"" class=""Forumrow"" colspan=2>"
	Response.Write ErrMsg
	Response.Write"</td></tr>"
	Response.Write"<tr>"
	Response.Write"<td class=""Forumrow"" valign=middle colspan=2 align=center><a href=""javascript:history.go(-1)""><<返回上一页</a></td></tr>"
	Response.Write"</table>"
	Response.End 
End Sub 




















%>