?? function.asp
字號:
<%
'****************************
'系統(tǒng)預處理類
'****************************
Class System_Cls
Private LocalCacheName,Cache_Data
Public Reloadtime,CacheName,CacheData,savelog,SqlQueryNum '新增變量
Public pNum,pNum2
'聲明System_Cls類預處理內(nèi)容
Private Sub Class_Initialize()
Dim UserAgent,web_CacheName
web_CacheName = "asp163" '緩存名稱，如果一個站點有多個站請更改成不同名稱
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,"teleport") > 0 or InStr(UserAgent,"webzip") > 0 or InStr(UserAgent,"flashget")>0 or InStr(UserAgent,"offline")>0 Then
Response.Write "請不要采用teleport/Webzip/Flashget/Offline等工具來瀏覽網(wǎng)站！"
Response.End
End If
CacheName=Replace(Server.MapPath("\index.asp"),"index.asp","")
if right(CacheName,3)="inc" then
CacheName=Replace(CacheName,"inc","")
end if
CacheName=Replace(CacheName,":","")
CacheName=Replace(CacheName,"\","") '重大錯誤，阿煒發(fā)現(xiàn)修正
CacheName=CacheName & web_CacheName '一枝梅添加
Reloadtime=14400
savelog=0
SqlQueryNum=0
pNum=1:pNum2=0
End Sub
'聲明System_Cls類終止處理內(nèi)容
Private Sub class_terminate()
If IsObject(Conn) Then
Conn.Close
Set Conn = Nothing
End If
End Sub
'Cache處理過程
Public Property Let Name(ByVal vNewValue)
LocalCacheName=LCase(vNewValue)
End Property
Public Property Let Value(ByVal vNewValue)
If LocalCacheName<>"" Then
ReDim Cache_Data(2)
Cache_Data(0)=vNewValue
Cache_Data(1)=Now()
Application.Lock
Application(CacheName & "_" & LocalCacheName) = Cache_Data
Application.unLock
Else
Err.Raise vbObjectError + 1, "CacheServer", " please change the CacheName."
End If
End Property
Public Property Get Value()
If LocalCacheName<>"" Then
Cache_Data=Application(CacheName & "_" & LocalCacheName)
If IsArray(Cache_Data) Then
Value=Cache_Data(0)
Else
Err.Raise vbObjectError + 1, "CacheServer", " The Cache_Data("&LocalCacheName&") Is Empty."
End If
Else
Err.Raise vbObjectError + 1, "CacheServer", " please change the CacheName."
End If
End Property
Public Function ObjIsEmpty()
ObjIsEmpty=True
Cache_Data=Application(CacheName & "_" & LocalCacheName)
If Not IsArray(Cache_Data) Then Exit Function
If Not IsDate(Cache_Data(1)) Then Exit Function
If DateDiff("s",CDate(Cache_Data(1)),Now()) < (60*Reloadtime) Then ObjIsEmpty=False
End Function
Public Sub DelCahe(MyCaheName)
Application.Lock
Application.Contents.Remove(CacheName&"_"&MyCaheName)
Application.unLock
End Sub
'定義系統(tǒng)資源變量
Public Site_Info,Site_Setting,Site_Version,Site_Copyright,BadWords,rBadWord
'取得系統(tǒng)定義資源
Public Sub GetSite_Setting()
Name="setup"
If ObjIsEmpty() Then ReloadSetup()
CacheData=value
'每日更新數(shù)據(jù)
Name="Date"
'第一次起用網(wǎng)站或者重啟IIS的時候加載緩存
If ObjIsEmpty() Then
value=Date()
End If
Name="Date"
If Cstr(value) <> Cstr(Date()) Then
Name="setup"
value=Date()
ReloadSetup()
CacheData=value
DelCahe("SiteCount")
End If
Dim Setting
Setting = CacheData(1,0)
Setting = Split(Setting,"|||")
Site_Info = Setting(0)
Site_Info = Split(Site_Info,",")
Site_Setting = Setting(1)
Site_Setting = Split (Site_Setting,",")
Site_Version = CacheData(2,0)
Site_Copyright = CacheData(3,0)
BadWords = Split(CacheData(5,0),"|")
rBadWord = Split(CacheData(6,0),"|")
End Sub
Public Sub ReloadSetup()
Dim SQL,Rs,i
SQL = "Select * from [AC_setup]"
Set Rs = Execute(SQL)
value = Rs.GetRows(1)
Set Rs = Nothing
End Sub
'定義風格相關變量
Public StyleName,Site_CSS,Site_PicUrl,Site_UserFace,Site_PostFace,Site_Emot,mainhtml,lanstr,mainpic,mainsetting
'裝載頁面模板
Public Sub LoadTemplates(Page_Fields)
Dim Style_Pic,Main_Style,TempStyle
Name="StyleName"
If ObjIsEmpty() Then TemplatesToCache ("StyleName")
StyleName=value '取得風格名稱
Name="Site_CSS"
If ObjIsEmpty() Then TemplatesToCache ("Site_CSS")
TempStyle = value
TempStyle = Split(TempStyle,"@@@")
Site_CSS = Split(TempStyle(1),"|||")(0) '風格內(nèi)容
Site_PicUrl = Split(TempStyle(2),"|||")(0) '圖片路徑
Name = "Main_Style"
If ObjIsEmpty() Then TemplatesToCache ("Main_Style")
Main_Style = Replace(value,"{$PicUrl}",Site_PicUrl) '風格圖片路徑替換
mainhtml = Split(Main_Style,"|||")
mainsetting = Split(mainhtml(0),"||")
Site_CSS = Replace(Site_CSS,"{$width}",mainsetting(0))
Site_CSS = Replace(Site_CSS,"{$PicUrl}",Site_PicUrl)
'取得頁面模板
If Page_Fields<>"" Then
Name="page_"&Page_Fields
If ObjIsEmpty() Then TemplatesToCache ("page_"&Page_Fields)
Template.value = value
End If
End Sub
'模板裝載函數(shù)
Public Sub TemplatesToCache(Page_Fields)
Dim Rs,SQL
SQL = "Select "&Page_Fields&" from AC_Style where isdefault=1"
Set Rs = execute(sql)
If Not Rs.EOF Then
value=Rs(0)&""
Else
Call FixSetupsid()
End If
Set Rs = Nothing
End Sub
Private Sub FixSetupsid()
Dim Rs,SQL
SQL = "Select Top 1 ID from AC_Style Order by ID"
Set Rs = execute(sql)
If Rs.EOF Then
Response.Write "模板數(shù)據(jù)是空的，請?zhí)砑印?quot;
Response.End
Else
Execute("Update AC_style Set isdefault=1")
End If
Set rs=Nothing
End Sub
Public Sub ReloadTemplateslist()
Dim Rs,SQL,tmpdata
SQL = "select ID,StyleName from AC_Style"
Set Rs = execute(SQL)
tmpdata = Rs.GetString(,,"|||","@@@","")
tmpdata = Left(tmpdata,Len(tmpdata)-3)
Set Rs = Nothing
value=tmpdata
End Sub
Public Sub Reloaddefaultstyleid()
Dim Rs,SQL,tmpdata
SQL = "select ID from AC_Style where isdefault=1"
Set Rs = execute(SQL)
tmpdata = Rs(0)
Set Rs = Nothing
value=tmpdata
End Sub
'頁面顯示類函數(shù)
Public Sub head()
Name="head"
If ObjIsEmpty() Then
value = Replace(Replace(Replace(Replace(mainhtml(1),"{$sitename}",Site_info(0)),"{$keyword}",Replace(Site_info(2),"|",",")),"{$description}",Site_info(3)),"{$Site_CSS}",Site_CSS)&vbNewLine
End If
Response.Write value '寫入HTTP頭
dim strtmp,strrow,strcol,channelstr,i,j
if Site_Setting(2)=1 then
channelstr="| "
Name="channel"
If ObjIsEmpty() Then loadchannel()
strrow=Split(value,"@@@")
For i = 0 to UBound(strrow)-1
strcol=Split(strrow(i),"|||")
channelstr=channelstr & "<a href=" & strcol(2) &" class=Channel>"
if strcol(1)="" then
channelstr=channelstr & strcol(0)
else
channelstr=channelstr & "<img src="&strcol(1)&">"
end if
channelstr=channelstr & "</a> | "
next
else
channelstr=""
end if
strtmp = Replace(mainhtml(2),"{$channel}",channelstr)
Name="classlist"&ChannelID
If ObjIsEmpty() Then loadclasslist()
strtmp = Replace(strtmp,"{$ClassMenu}",value)
'取當前路徑
if PageTitle<>"" then
strPath=strPath & " >> " & PageTitle
end if
strtmp = Replace(strtmp,"{$width}",mainsetting(0))
strtmp = Replace(strtmp,"{$PicUrl}",Site_PicUrl)
strtmp = Replace(strtmp,"{$ShowAnnounce}",Announcestr(2,5))
strtmp = Replace(strtmp,"{$SiteUrl}",nt2003.site_info(4))
strtmp = Replace(strtmp,"{$SiteName}",nt2003.site_info(0))
strtmp = Replace(strtmp,"{$path}",strPath)
Response.Write strtmp '寫入head表格
End Sub
Public Sub bottom()
Dim strtmp
strtmp = mainhtml(3)
If Site_Setting(0) = "1" Then '是否顯示網(wǎng)站運行時間
Dim Endtime
Endtime = Timer()
strtmp = Replace(strtmp,"{$runtime}","執(zhí)行時間：" & CStr(FormatNumber((Timer-BeginTime)*1000,2)) & " 毫秒")
Else
strtmp = Replace(strtmp,"{$runtime}","")
End If
strtmp = Replace(strtmp,"{$width}",mainsetting(0))
strtmp = Replace(strtmp,"{$PicUrl}",Site_PicUrl)
strtmp = Replace(strtmp,"{$powered}",Site_Version)
strtmp = Replace(strtmp,"{$copyright}",Site_Copyright)
strtmp = Replace(strtmp,"{$webmaster}",Site_Info(7))
strtmp = Replace(strtmp,"{$webmastemail}",site_info(8))
strtmp = Replace(strtmp,"{$StyleName}",StyleName)
strtmp = Replace(strtmp,"{$SqlQueryNum}"," | 查詢數(shù)據(jù)庫："&SqlQueryNum&" 次")
strtmp = strtmp & mainhtml(4)
Response.Write strtmp
End Sub
'頁面顯示內(nèi)容函數(shù)
'讀取網(wǎng)站頻道名稱
Public Sub loadchannelname()
dim strrow,strcol,i
Name="channel"
If ObjIsEmpty() Then loadchannel()
strrow=Split(value,"@@@")
strcol=Split(strrow(Channelid-1),"|||")
ChannelUrl=strcol(2)
ChannelName=strcol(0)
end sub
'讀取網(wǎng)站頻道列表
Public Sub loadchannel()
Dim Rs,SQL,tmpdata
SQL = "select ChannelName,ChannelPicUrl,LinkUrl from channel order by OrderID"
Set Rs = execute(SQL)
tmpdata = Rs.GetString(,,"|||","@@@","")
Set Rs = Nothing
value=tmpdata
end Sub
'讀取網(wǎng)站欄目列表
Public Sub loadclasslist()
if ChannelID<5 then
value = "<script type='text/javascript' language='JavaScript1.2'>" & vbcrlf & "<!--" & vbcrlf
value = value & "stm_bm(['uueoehr',400,'','images/blank.gif',0,'','',0,0,0,0,0,1,0,0]);" & vbcrlf
value = value & "stm_bp('p0',[0,4,0,0,2,2,0,0,100,'',-2,'',-2,90,0,0,'#000000','transparent','',3,0,0,'#000000']);" & vbcrlf
value = value & "stm_ai('p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#000000','#000000','#000000','9pt 宋體','9pt 宋體',0,0]);" & vbcrlf
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -