<% If Session("flag")<> "" Then Dvbbs.Master = True 'UpUserFaceFolder '如是独立的虚拟目录,则要写成"/uploadFace"如果是论坛目录下的普通目录,则写成"" 'Const UpUserFaceFolder="" Const UpUserFaceFolder="/uploadFace/" Dim iCacheName,iCache,mCacheName MyDbPath = "../" Set MyBoardOnline=new Cls_UserOnlne iCacheName = Server.MapPath("index.asp") iCacheName = Split(iCacheName,"\") For iCache = 0 To Ubound(iCacheName)-2 mCacheName = mCacheName & iCacheName(iCache) Next Dvbbs.CacheName = Replace(mCacheName,":","") Dvbbs.Forum_sn = Replace(Dvbbs.CacheName,"_","") '重新获得论坛Cookies Dvbbs.MemberName = Dvbbs.checkStr(Session("MemberName")) Dvbbs.MemberWord = Dvbbs.checkStr(Trim(Request.Cookies(Dvbbs.Forum_sn)("password"))) Dvbbs.UserHidden = Request.Cookies(Dvbbs.Forum_sn)("userhidden") Dvbbs.UserID = Trim(Request.Cookies(Dvbbs.Forum_sn)("UserID")) If IsNumeric(Dvbbs.UserHidden) = 0 or Dvbbs.Userhidden = "" Then Dvbbs.UserHidden = 2 If IsNumeric(Dvbbs.UserID) = 0 Or Dvbbs.UserID="" Then Dvbbs.UserID=0 Dvbbs.UserID = Clng(Dvbbs.UserID) Dvbbs.MemberClass = Dvbbs.checkStr(Request.Cookies(Dvbbs.Forum_sn)("userclass")) '获得论坛基本信息和检测用户登陆状态 Dvbbs.Checkcache() Dvbbs.GetForum_Setting Dvbbs.CheckUserLogin '重新赋予用户是否可进入后台权限 已移至Admin_login.asp验证，轻飘飘 'If Dvbbs.GroupSetting(70)="1" Then ' Dvbbs.Master = True 'Else ' Dvbbs.Master = False 'End If '后台信息和函数部分 Dim AllPostTable Dim AllPostTableName Dim FoundErr FoundErr=False Dim ErrMsg Dim Rs,sql,i Dvbbs.LoadTemplates("") Set Rs=Dvbbs.Execute("Select H_Content From Dv_Help Where H_ID=1") template.value = Rs(0) '页面错误提示信息 Sub dvbbs_error() Response.Write"
" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"

错误信息" Response.Write"" Response.Write"
" Response.Write ErrMsg Response.Write"
<<返回上一页

" footer() Response.End End Sub Function AllPostTable1() Dim Trs Set Trs=Dvbbs.Execute("select * from [Dv_TableList]") AllPostTable="" Do While Not TRs.EOF If AllPostTable="" Then AllPostTable=TRs("TableName") AllPostTableName=TRs("TableType") Else AllPostTable=AllPostTable&"|"&TRs("TableName") AllPostTableName=AllPostTableName&"|"&TRs("TableType") End If TRs.MoveNext Loop Trs.Close End Function AllPostTable1 AllPostTableName=Split(AllPostTableName,"|") AllPostTable=Split(AllPostTable,"|") Dim NowUseBbs NowUseBbs=Dvbbs.NowUseBbs Sub footer() Response.Write"" Response.Write "" Response.Write"" Response.Write"

" Response.Write"Dvbbs v7.1 , Copyright (c) 2001-2005 AspSky.Net. All Rights Reserved ." Response.Write"

" Response.Write "" Response.Write "" SaveLog() End Sub Sub Head() Response.Write "" Response.Write Chr(10) Response.Write "" Response.Write Chr(10) Response.Write "" Response.Write Chr(10) Response.Write "" Response.Write Chr(10) Response.Write "" Response.Write Chr(10) Response.Write "" Response.Write Chr(10) Response.Write "" Response.Write Chr(10) Response.Write Replace(template.html(1),"{$path}","images/") Response.Write Chr(10) Response.Write "" Response.Write "" Response.Write Chr(10) Response.Write "" Response.Write Chr(10) %>

<% End Sub Sub Dv_suc(info) Response.Write"
" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"

成功信息" Response.Write"" Response.Write"
" Response.Write info Response.Write"
<<返回上一页

" End Sub Function fixjs(Str) If Str <>"" Then str = replace(str,"\", "\\") Str = replace(str, chr(34), "\""") Str = replace(str, chr(39),"\'") Str = Replace(str, chr(13), "\n") Str = Replace(str, chr(10), "\r") str = replace(str,"'", "'") End If fixjs=Str End Function Function enfixjs(Str) If Str <>"" Then Str = replace(str,"'", "'") Str = replace(str,"\""" , chr(34)) Str = replace(str, "\'",chr(39)) Str = Replace(str, "\r", chr(10)) Str = Replace(str, "\n", chr(13)) Str = replace(str,"\\", "\") End If enfixjs=Str End Function Function Reload_All_Board_Cache() '更新版面列表缓存 ReloadBoardListAll '更新单个版面缓存（循环） Dim BoardListAll,BoardListNum,myBoardID BoardListAll=myCache.value BoardListNum=Ubound(BoardListAll,2) For i=0 To BoardListNum myBoardID=BoardListAll(0,i) ReloadBoardInfo(myBoardID) Set rs=Dvbbs.Execute("Select ParentStr from board where boardid="&myBoardID) If not rs.eof Then Dvbbs.ReloadBoardParentStr(rs(0)) End If Rs.close Set Rs=nothing Next End Function Sub SaveLog() On Error Resume Next Dim RequestStr RequestStr= Request("action") If RequestStr<>"" Then RequestStr="action="&RequestStr RequestStr=Dvbbs.checkStr(RequestStr) RequestStr=Left(RequestStr,250) sql="insert into [Dv_log] (l_touser,l_username,l_content,l_ip,l_type) values ('"&Dvbbs.ScriptName&"','"&Dvbbs.membername&"','"&RequestStr&"','"&Dvbbs.UserTrueIP&"',0)" Dvbbs.Execute(sql) End If If request.form<>"" Then RequestStr=Dvbbs.checkStr(request.form) RequestStr=Left(RequestStr,250) sql="insert into [Dv_log] (l_touser,l_username,l_content,l_ip,l_type) values ('"&Dvbbs.ScriptName&"','"&Dvbbs.membername&"','"&RequestStr&"','"&Dvbbs.UserTrueIP&"',1)" Dvbbs.Execute(sql) End If End Sub %>