¼± Microsoft VBScript ÔËÐÐʱ´íÎó ´íÎó '800a000d'

º£µÄÎÞÄÎ

ÉÏ´«·þÎñÆ÷³öÏÖÕâ¸öÎÊÌâ

Microsoft VBScript ÔËÐÐʱ´íÎó ´íÎó '800a000d'
ÀàÐͲ»Æ¥Åä: 'SiteSetting'

/1/inc/Main.asp£¬ÐÐ82

main.aspÎļþ
dim ErrMsg,info
Class Cls_Site
Public Program_Version,software,Script_version,Http_version,ServerName,ServerIP,Path,URL,Database,DataTimes
Public IsAdmin,Admin_name,Admin_type,P_Admin
Public LocalIP,OnlineTime,Online,Skin
Public Browser,version,platform,IsSearch
Public SiteSetting(37),Up_Max,re
Private Sub Class_Initialize()
Startime=Timer()
Program_Version = "5.0 SP1"
software = request.ServerVariables("SERVER_Software")
Script_version = ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion
Http_version = request.ServerVariables("SERVER_Protocol")
ServerName = request.ServerVariables("Server_Name")
ServerIP = request.ServerVariables("Local_Addr")
Path = request.ServerVariables("APPL_PHYSICAL_PATH")
Dim Tmpstr,i,ScriptName
Tmpstr = Request.ServerVariables("PATH_INFO")
Tmpstr = Split(Tmpstr,"/")
i = UBound(Tmpstr)
ScriptName = Lcase(Tmpstr(i))
URL = replace(Request.ServerVariables("PATH_INFO"),ScriptName,"")
P_Admin=False
If InStr(ScriptName,"showerr")>0 Or InStr(ScriptName,"admin_")>0 Then P_Admin=True
Database = "Access"
DataTimes = 0
OnlineTime=20
Set re = New RegExp
re.IgnoreCase =True
re.Global=True
System_chk()
End Sub
Private Sub class_terminate()
If IsObject(Conninfo) Then
Conninfo.Close
Set Conninfo = Nothing
End If
End Sub
Public Sub GetSiteSetting()
if EmptyCache = true then
Call UpdateCache()
end if
for i = 0 to 37
SiteSetting(i) = Application(Site)(i+1)
Next
if SiteSetting(5) = 1 and P_Admin=False then
response.Redirect("showerr.asp?action=stop")
response.End()
end if
Skin_select()
Visit()
Counter()
End Sub
Public Function EmptyCache()
if IsArray(Application(Site)) = false then
EmptyCache = true
exit function
end if
if Application(Site)(0)=Date() Then
EmptyCache=False
exit function
else
EmptyCache=True
exit function
End if
End Function
Sub UpdateCache()
dim rs
set rs = Execute("Select * from Setting")
dim i
'0:È«³Æ,1:¼ò³Æ,2:logo,3:µØÖ·,4:˵Ã÷,5:ÊÇ·ñ¹Ø±Õ,6:ά»¤ËµÃ÷,7:¹Ø¼ü×Ö,8:ÃèÊö,9:½¨Õ¾Ê±¼ä,10:Õ¾³¤Ãû³Æ,11:Õ¾³¤e-mail,12:Õ¾³¤ÐÅÏ¢,13:ÍøÕ¾µ×²¿°æȨÐÅÏ¢,14:×î¸ßÔÚÏ߼Ǽ|×î¸ßÔÚÏß·¢Éúʱ¼ä
for i = 0 to 14
SiteSetting(i) = rs(i)
next
SiteSetting(15) = Cint(Split(SiteSetting(14),"|")(0)) '15:×î¸ßÔÚÏßÈËÊý
SiteSetting(16) = Split(SiteSetting(14),"|")(1) '16:×î¸ßÔÚÏß·¢Éúʱ¼ä
'17:ÉÏ´«ÀàÐÍ£¬18:ÉÏ´«´óС£¬19:ÉÏ´«Ä¿Â¼
for i = 15 to 17
SiteSetting(i+2) = rs(i)
next
Up_Max = SiteSetting(18)*1000
SiteSetting(20) = split(rs(18),"|")(0) '20:ÐÂÎÅÆÀÂÛ
SiteSetting(21) = split(rs(18),"|")(1) '21:ÎÄÕÂÆÀÂÛ
SiteSetting(22) = split(rs(18),"|")(2) '22:ÏÂÔØÆÀÂÛ
SiteSetting(23) = rs(19) '23:·ç¸ñ´úºÅ
SiteSetting(24) = rs(20) '24:´óLOGO 180*60
SiteSetting(25) = rs(21) '25:ÉêÇëÁ¬½Ó
SiteSetting(26) = rs(22) '26:IP¼Ç¼
SiteSetting(27) = rs("c_badword") '27:ÆÀÂÛ¹ýÂË
SiteSetting(28) = rs("g_open") '28:ÁôÑÔ¿ªÆô
SiteSetting(29) = rs("g_ubb") '29:ÁôÑÔUBB
SiteSetting(30) = rs("g_badword") '30:ÁôÑÔ¹ýÂË
SiteSetting(31) = rs("g_max") '31:×î´ó×Ö·û
SiteSetting(32) = split(rs(18),"|")(3) '32:ͼƬÆÀÂÛ
SiteSetting(33) = split(rs(18),"|")(4) '33:ÒôÀÖÆÀÂÛ
rs.close
if SiteSetting(5) = 1 and P_Admin=False then
response.Redirect("showerr.asp?action=stop")
response.End()
end if
Dim Cache_temp(38)
Cache_temp(0) = Date()
for i = 0 to 33
Cache_temp(i+1) = SiteSetting(i)
next
Cache_temp(35) = GetNum("article")
Cache_temp(36) = GetNum("downloads")
Cache_temp(37) = GetNum("picture")
Cache_temp(38) = GetNum("music")
Application.Lock()
Application(Site) = Cache_temp
Application.UnLock()
for i = 0 to 37
SiteSetting(i) = Application(Site)(i+1)
Next
End Sub
Function GetNum(table)
Connect()
dim rs,sql,temp_Num
sql = "select id from "&table
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,Conninfo,1,1
temp_Num = rs.Recordcount
set rs = nothing
GetNum = temp_Num
End Function
'ÒÔÏÂΪ¼ì²é×é¼þ²¿·Ö
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
'FSO¼ì²â²¿·Ö
Public Sub Objects()
dim installedObjects
InstalledObjects = "Scripting.FileSystemObject"
If IsObjInstalled(InstalledObjects) Then Response.Write "<font color=red><b>¡Ì</b>·þÎñÆ÷Ö§³Ö!</font>" Else Response.Write "<b>¡Á</b>·þÎñÆ÷²»Ö§³Ö!"
End Sub
'¹ÜÀíÔ±ÑéÖ¤
Public Sub Admin()
if request.Cookies(Site)("IsAdmin")=empty then response.Cookies(Site)("IsAdmin")=0
if request.Cookies(Site)("IsAdmin")=1 then
dim sql,rs
sql = "select * from admin where username='"&request.Cookies(Site)("Admin_name")&"'"
set rs = Execute(sql)
if rs.eof and rs.bof then
IsAdmin = False
Admin_name=Empty
Admin_type=Empty
else
IsAdmin=true
Admin_name=request.Cookies(Site)("Admin_name")
Admin_type=request.Cookies(Site)("Admin_type")
response.Cookies(Site).Expires=DateAdd("s",3600,Now())
end if
else
IsAdmin=false
Admin_name=Empty
Admin_type=Empty
end if
End Sub
Public Sub chkAdmin(flag)