asp xml 緩存類
2024-05-04 11:00:28
供稿：網友
復制代碼 代碼如下:
<%
Rem xml緩存類
'--------------------------------------------------------------------
'轉載的時候請保留版權信息
'作者:╰⑥月の雨╮
'版本:ver1.0
'本類部分借鑒 walkmanxml數據緩存類，使用更為方便 歡迎各位交流進步
'--------------------------------------------------------------------
Class XmlCacheCls
Private m_DataConn '數據源,必須已經打開
Private m_CacheTime '緩存時間，單位秒 默認10分鐘
Private m_XmlFile 'xml路徑，用絕對地址,不需要加擴展名
Private m_Sql 'SQL語句
Private m_SQLArr '(只讀)返回的數據數組
Private m_ReadOn '(只讀)返回讀取方式 1-數據庫 2-xml 檢測用
'類的屬性=========================================
'數據源
Public Property Set Conn(v)
Set m_DataConn = v
End Property
Public Property Get Conn
Conn = m_DataConn
End Property
'緩存時間
Public Property Let CacheTime(v)
m_CacheTime = v
End Property
Public Property Get CacheTime
CacheTime = m_CacheTime
End Property
'xml路徑，用絕對地址
Public Property Let XmlFile(v)
m_XmlFile = v
End Property
Public Property Get XmlFile
XmlFile = m_XmlFile
End Property
'Sql語句
Public Property Let Sql(v)
m_Sql = v
End Property
Public Property Get Sql
Sql = m_Sql
End Property
'返回記錄數組
Public Property Get SQLArr
SQLArr = m_SQLArr
End Property
'返回讀取方式
Public Property Get ReadOn
ReadOn = m_ReadOn
End Property
'類的析構=========================================
Private Sub Class_Initialize() '初始化類
m_CacheTime=60*10 '默認緩存時間為10分鐘
End Sub
Private Sub Class_Terminate() '釋放類
End Sub
'類的公共方法=========================================
Rem 讀取數據
Public Function ReadData
If FSOExistsFile(m_XmlFile) Then '存在xml緩存，直接從xml中讀取
ReadDataFromXml
m_ReadOn=2
Else
ReadDataFromDB
m_ReadOn=1
End If
End Function
Rem 寫入XML數據
Public Function WriteDataToXml
If FSOExistsFile(m_XmlFile) Then '如果xml未過期則直接退出
If Not isXmlCacheExpired(m_XmlFile,m_CacheTime) Then Exit Function
End If
Dim rs
Dim xmlcontent
Dim k
xmlcontent = ""
xmlcontent = xmlcontent & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbnewline
xmlcontent = xmlcontent & " <root>" & vbnewline
k=0
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.open m_sql,m_DataConn,1
While Not rs.eof
xmlcontent = xmlcontent & " <item "
For Each field In rs.Fields
xmlcontent = xmlcontent & field.name & "=""" & XMLStringEnCode(field.value) & """ "
Next
rs.movenext
k=k+1
xmlcontent = xmlcontent & "></item>" & vbnewline
Wend
rs.close
Set rs = Nothing
