?? const.asp
字號:
<!--#Include File="../../inc/Dv_ClsMain.asp"-->
<%
If Session("flag")<> "" Then Dvbbs.Master = True
'UpUserFaceFolder
'如是獨立的虛擬目錄,則要寫成"/uploadFace"如果是論壇目錄下的普通目錄,則寫成""
'Const UpUserFaceFolder=""
Const UpUserFaceFolder="/uploadFace/"
MyDbPath = "../"
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"))
Set MyBoardOnline=new Cls_UserOnlne
'獲得論壇基本信息和檢測用戶登陸狀態
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
template.ChildFolder="Admin"
template.Folder="../"&template.Folder
Dvbbs.LoadTemplates("Admin")
'Set Rs=Dvbbs.Execute("Select H_Content From Dv_Help Where H_ID=1")
'template.value = Rs(0)
'檢測管理權限
Sub CheckAdmin(flag)
If Not Dvbbs.Master Or Session("flag")="" Then
Response.Redirect "../showerr.asp?action=OtherErr&ErrCodes=<li>本頁面為管理員專用，請<a href=admin_login.asp target=_top>登錄</a>后進入。"
End If
If Instr(","&session("flag")&",",flag)=0 and flag<>"" then
Errmsg=ErrMsg + "<BR><li>本頁面為管理員專用，請<a href=../admin_login.asp target=_top>登錄</a>后進入。<br><li>您沒有管理本頁面的權限。"
Dvbbs_error()
End If
End Sub
Sub 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 Sub
AllPostTable1
AllPostTableName=Split(AllPostTableName,"|")
AllPostTable=Split(AllPostTable,"|")
Dim NowUseBbs
NowUseBbs=Dvbbs.NowUseBbs
Sub Footer()
Response.Write "</html>"
SaveLog()
Set Dvbbs=Nothing
End Sub
Sub Head()
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<TITLE><%=Dvbbs.Forum_info(0)%>-管理頁面</TITLE>
<link href="skins/css/main.css" rel="stylesheet" type="text/css" />
<script src="../inc/main82.js" type="text/javascript"></script>
<script src="inc/admin.js" type="text/javascript"></script>
</head>
<%
Dim XMLDOM
Set XMLDOM=Application(Dvbbs.CacheName&"_boardlist").cloneNode(True)
Response.Write "<script language=""javascript"" type=""text/javascript"">"
Response.Write "var boardxml='';var ISAPI_ReWrite="&IsUrlreWrite&";"
'Response.Write "var boardxml='<?xml version=""1.0"" encoding=""gb2312""?>"& replace(XMLDom.documentElement.XML ,"'","\'")&"';var ISAPI_ReWrite="&IsUrlreWrite&";"
Response.Write "</script>"
Response.Write "<body>"
Response.Write Chr(10)
End Sub
Sub Dv_suc(info)
Dim UrlArr,InfoArr
InfoArr = Split(info,"##")
If UBound(InfoArr)>0 Then
UrlArr = InfoArr(1)
Else
UrlArr = Request.ServerVariables("HTTP_REFERER")
If UrlArr="" Or InStr(UrlArr,Dvbbs.CacheData(33,0)&"index.asp")>0 Then UrlArr="javascript:window.history.go(-1)"
End If
Response.Write"<br>"
Response.Write"<table cellpadding=0 cellspacing=0 align=center width=""100%"">"
Response.Write"<tr align=center>"
Response.Write"<th width=""100%"" style=""text-align:center;"" colspan=2>成功信息"
Response.Write"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td width=""100%"" class=""td2"" colspan=2>"
Response.Write InfoArr(0)
Response.Write"</td></tr>"
Response.Write"<tr>"
Response.Write"<td class=""td2"" valign=middle colspan=2 style=""text-align:center;""><a href="&UrlArr&" ><<返回上一頁</a></td></tr>"
Response.Write"</table>"
End Sub
'頁面錯誤提示信息
Sub dvbbs_error()
Response.Write"<br>"
Response.Write"<table cellpadding=3 cellspacing=1 align=center width=""100%"">"
Response.Write"<tr align=center>"
Response.Write"<th width=""100%"" style=""text-align:center;"" colspan=2>錯誤信息"
Response.Write"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td width=""100%"" class=""td1"" colspan=2>"
Response.Write ErrMsg
Response.Write"</td></tr>"
Response.Write"<tr>"
Response.Write"<td class=""td1"" valign=middle colspan=2 style=""text-align:center;""><a href=""javascript:history.go(-1)""><<返回上一頁</a></td></tr>"
Response.Write"</table>"
footer()
Response.End
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
Dim i,Rs
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
Dim Sql
RequestStr= Request("action")
If RequestStr<>"" Then
RequestStr="action="&RequestStr
RequestStr=Dvbbs.checkStr(RequestExp(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(RequestExp(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
Public Function RequestExp(Textstr)
Dim Str,re
Str = Textstr
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern = "(password|answer)([^=]*)=([^(&|&)]*)"
str = re.Replace(str,"$1$2=******")
Set Re = Nothing
RequestExp = Str
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -