{"id":166,"date":"2008-11-30T02:37:47","date_gmt":"2008-11-29T18:37:47","guid":{"rendered":""},"modified":"2014-02-27T22:57:28","modified_gmt":"2014-02-27T14:57:28","slug":"xml%e7%bc%93%e5%ad%98%e6%8a%80%e6%9c%af%e6%9e%84%e5%bb%ba%e9%ab%98%e6%80%a7%e8%83%bdweb%e7%ab%99%e7%82%b9","status":"publish","type":"post","link":"http:\/\/www.xiaoyebailong.com\/index.php\/2008\/11\/30\/166.htm","title":{"rendered":"xml\u7f13\u5b58\u6280\u672f\u6784\u5efa\u9ad8\u6027\u80fdweb\u7ad9\u70b9"},"content":{"rendered":"

\u6253\u9020\u4e00\u4e2a\u9ad8\u6027\u80fd\u7a33\u5b9a\u7684web\u7ad9\u70b9\u4e00\u76f4\u662f\u7ad9\u957f\u548c\u7a0b\u5e8f\u5458\u7684\u68a6\u60f3\uff0c\u672c\u6587\u7528\u4f5c\u8005\u7684\u4e00\u6b21\u4eb2\u8eab\u7ecf\u5386\u7684\u6765\u8bf4\u8bf4\u5982\u4f55\u5229\u7528xml\u7f13\u5b58\u6280\u672f\u5b9e\u73b0\u7ad9\u70b9\u7684\u9ad8\u6027\u80fd\u3002\u6211\u662f\u4ece\u4eca\u5e74\u5f00\u59cb\u505a138\u624b\u673a\u4e3b\u9898\u7f51\u7684\uff0c\u91c7\u7528SQL2000\u505a\u4e3a\u6570\u636e\u5e93\uff0c\u5f00\u53d1\u8bed\u8a00\u7528\u7684\u662fAsp\uff0c\u67e5\u8be2\u7684\u65f6\u5019\u90fd\u662f\u52a8\u6001\u67e5\u8be2\uff0c\u76f4\u63a5\u7528like %\u7684\u65b9\u5f0f\uff0c\u90a3\u4e2a\u65f6\u5019\u53cd\u6b63\u4e00\u5929\u7684\u8bbf\u95ee\u91cf\u5c0f\uff0c\u540c\u65f6\u5728\u7ebf\u7684\u65f6\u5019\u4e5f\u5c31\u51e0\u5341\u4e2a\u4eba\u800c\u5df2\uff0c\u6240\u4ee5\u670d\u52a1\u5668\u4e5f\u5c31\u80fd\u80dc\u4efb\u8981\u6c42\uff0c\u968f\u7740\u8bbf\u95ee\u91cf\u6162\u6162\u589e\u52a0\uff0c\u5f53\u540c\u65f6\u5728\u7ebf\u8fbe\u5230\u51e0\u767e\u4eba\u65f6\uff0c\u6b64\u65f6\u670d\u52a1\u5668\u5f00\u59cb\u4e0d\u582a\u91cd\u8d1f\uff0cCPU\u5e38\u5e38\u8fbe\u5230100%\u4e0d\u964d\uff0c\u7f51\u9875\u6253\u5f00\u901f\u5ea6\u4e5f\u8d85\u7ea7\u6162\uff0c\u4e00\u4e2a\u67e5\u8be2\u9875\u9762\u9700\u8981\u51e0\u79d2\u949f\u751a\u81f3\u66f4\u957f\uff0c\u4e8e\u662f\u6211\u5f00\u59cb\u8003\u8651\u4f18\u5316\u7a0b\u5e8f\u548c\u6570\u636e\u5e93\uff0c\u6570\u636e\u5e93\u5efa\u7acb\u7d22\u5f15\uff0c\u4e0d\u662f\u5f88\u7406\u60f3\uff0c\u56e0\u4e3a\u7528\u7684\u662flike ‘% \u8fd9\u79cd\u65b9\u5f0f\uff0c\u4e8e\u662f\u6211\u60f3\u5230\u4e86\u7f13\u5b58\uff0c\u800cxml\u672c\u8eab\u7684\u7279\u70b9\u51b3\u5b9a\u4e86\u4ed6\u975e\u5e38\u9002\u5408\u505a\u6570\u636e\u5e93\u7684\u7f13\u5b58\uff0c\u597d\u4e1c\u897f\u4e0d\u6562\u72ec\u4eab\uff0c\u7279\u53d1\u5e03\u51fa\u6765\uff0c\u4ee5\u4fbf\u540c\u884c\u4ea4\u6d41\uff0c\u5171\u540c\u8fdb\u6b65\u3002
\n\u5b9e\u73b0\u7684\u601d\u8def\u662f\u8fd9\u6837\u7684\uff1a\u7a0b\u5e8f\u8bfb\u53d6\u4fe1\u606f\u65f6\uff0c\u5148\u5224\u65ad\u662f\u5426\u7f13\u5b58\u4e86xml\u6570\u636e\uff0c\u5982\u679c\u6709\uff0c\u5219\u76f4\u63a5\u4ecexml\u4e2d\u8bfb\u53d6\u4fe1\u606f\uff0c\u5426\u5219\u4ece\u6570\u636e\u5e93\u4e2d\u8bfb\u53d6\uff0c\u5e76\u5c06\u6b64\u6b21\u7ed3\u679c\u751f\u6210xml\u6587\u4ef6\uff0c\u4ee5\u4fbf\u4ee5\u540e\u8c03\u7528\uff0c\u52a0\u5feb\u901f\u5ea6\uff0c\u540c\u65f6\u5224\u65adxml\u7f13\u5b58\u6587\u4ef6\u662f\u5426\u8fc7\u671f\uff0c\u5982\u679c\u8fc7\u671f\u5219\u9700\u8981\u91cd\u65b0\u751f\u6210xml\u3002\u4e0b\u9762\u662f\u5177\u4f53\u7684\u4ee3\u7801\u3002<\/p>\n

xmlcachecls.asp
\n<%
\nRem xml\u6570\u636e\u7f13\u5b58\u7c7b
\n‘————————————————–
\n‘\u8f6c\u8f7d\u7684\u65f6\u5019\u8bf7\u4fdd\u7559\u7248\u6743\u4fe1\u606f
\n‘\u4f5c\u8005:walkman
\n‘\u7f51\u5740:\u624b\u673a\u4e3b\u9898 http:\/\/www.shouji138.com<\/a>
\n‘\u7248\u672c:ver1.0
\n‘\u6b22\u8fce\u5404\u4f4d\u4ea4\u6d41\u8fdb\u6b65
\n‘————————————————–<\/p>\n

Class XmlCacheCls<\/p>\n

 Rem \u79c1\u6709\u53d8\u91cf\u5b9a\u4e49
\n Private m_CacheTime  ‘\u7f13\u5b58\u65f6\u95f4\uff0c\u5355\u4f4d\u79d2
\n Private m_PageSize  ‘\u6bcf\u9875\u5927\u5c0f
\n Private m_CachePageNum ‘xml\u7f13\u5b58\u9875\u5927\u5c0f
\n Private m_XmlFile  ‘xml\u8def\u5f84\uff0c\u7528\u7edd\u5bf9\u5730\u5740,\u4e0d\u9700\u8981\u52a0\u6269\u5c55\u540d
\n Private m_Sql   ‘SQL\u8bed\u53e5
\n Private m_TableName  ‘\u8868\u540d\u6216\u8005\u89c6\u56fe\u540d
\n Private m_Columns  ‘\u5217\u540d \u7528,\u9694\u5f00
\n Private m_CurPage  ‘\u5f53\u524d\u9875
\n Private m_CacheType  ‘\u7f13\u5b58\u7c7b\u578b\uff1a1,\u5217\u8868 2,\u8be6\u60c5
\n Private m_DataConn  ‘\u6570\u636e\u6e90,\u5fc5\u987b\u5df2\u7ecf\u6253\u5f00
\n Private m_QueryType  ‘\u67e5\u8be2\u7c7b\u578b\uff1a1,\u76f4\u63a5\u7528sql 2,\u7528\u5b58\u50a8\u8fc7\u7a0b<\/p>\n

 Private m_SQLArr  ‘\u8fd4\u56de\u7684\u6570\u636e\u6570\u7ec4
\n Private m_RecordCount
\n 
\n 
\n Rem \u516c\u5171\u5c5e\u6027<\/p>\n

 ‘\u7f13\u5b58\u65f6\u95f4
\n Public Property Let  CacheTime(v)
\n  m_CacheTime = v
\n End Property<\/p>\n

 Public Property Get  CacheTime
\n  CacheTime = m_CacheTime
\n End Property<\/p>\n

\n ‘\u6bcf\u9875\u5927\u5c0f
\n Public Property Let  PageSize(v)
\n  m_PageSize = v
\n End Property<\/p>\n

 Public Property Get  PageSize
\n  PageSize = m_PageSize
\n End Property<\/p>\n

 <\/p>\n

 ‘xml\u7f13\u5b58\u9875\u5927\u5c0f
\n Public Property Let  CachePageNum(v)
\n  m_CachePageNum = v
\n End Property<\/p>\n

 Public Property Get  CachePageNum
\n  CachePageNum = m_CachePageNum
\n End Property<\/p>\n

 <\/p>\n

 ‘xml\u8def\u5f84\uff0c\u7528\u7edd\u5bf9\u5730\u5740
\n Public Property Let  XmlFile(v)
\n  m_XmlFile = v
\n End Property<\/p>\n

 Public Property Get  XmlFile
\n  XmlFile = m_XmlFile
\n End Property<\/p>\n

\n ‘xml\u8def\u5f84\uff0c\u7528\u7edd\u5bf9\u5730\u5740
\n Public Property Let  Sql(v)
\n  m_Sql = v
\n End Property<\/p>\n

 Public Property Get  Sql
\n  Sql = m_Sql
\n End Property<\/p>\n

\n ‘\u8868\u540d\u6216\u8005\u89c6\u56fe\u540d
\n Public Property Let  TableName(v)
\n  m_TableName = v
\n End Property<\/p>\n

 Public Property Get  TableName
\n  TableName = m_TableName
\n End Property<\/p>\n

 <\/p>\n

 ‘\u5217\u540d \u7528,\u9694\u5f00
\n Public Property Let  Columns(v)
\n  m_Columns = v
\n End Property<\/p>\n

 Public Property Get  Columns
\n  Columns = m_Columns
\n End Property<\/p>\n

\n ‘\u5f53\u524d\u9875
\n Public Property Let  CurPage(v)
\n  m_CurPage = v
\n End Property<\/p>\n

 Public Property Get  CurPage
\n  CurPage = m_CurPage
\n End Property<\/p>\n

\n 
\n ‘\u7f13\u5b58\u7c7b\u578b\uff1a1,\u5217\u8868 2,\u8be6\u60c5
\n Public Property Let  CacheType(v)
\n  m_CacheType = v
\n End Property<\/p>\n

 Public Property Get  CacheType
\n  CacheType = m_CacheType
\n End Property<\/p>\n

 <\/p>\n

 ‘\u7f13\u5b58\u7c7b\u578b\uff1a1,\u5217\u8868 2,\u8be6\u60c5
\n Public Property Set  Conn(v)
\n  Set m_DataConn = v
\n End Property<\/p>\n

 Public Property Get  Conn
\n  Conn = m_DataConn
\n End Property<\/p>\n

\n ‘\u8fd4\u56de\u8bb0\u5f55\u603b\u6570
\n Public Property Get  RecordCount
\n  RecordCount = m_RecordCount
\n End Property<\/p>\n

 ‘\u8fd4\u56de\u8bb0\u5f55\u6570\u7ec4
\n Public Property Get  SQLArr
\n  SQLArr = m_SQLArr
\n End Property<\/p>\n

\n Rem \u516c\u5171\u65b9\u6cd5 \u8bfb\u53d6\u6570\u636e
\n Public Function ReadData
\n  If m_CacheType = 1 Then
\n   ReadListAndSearchData
\n  Else
\n   ReadContentData
\n  End If
\n End Function
\n 
\n Rem \u8bfb\u53d6\u8be6\u60c5\u4fe1\u606f
\n Private Function ReadContentData
\n  Dim xmlfile
\n  xmlfile = m_XmlFile
\n  If FSOExistsFile(xmlfile) Then ‘\u5b58\u5728xml\u7f13\u5b58\uff0c\u76f4\u63a5\u4ecexml\u4e2d\u8bfb\u53d6
\n   ReadContentDataFromXml xmlfile
\n  Else
\n   ReadContentDataFromDB
\n  End If
\n End Function
\n 
\n Rem \u4ecexml\u6587\u4ef6\u8bfb\u53d6\u8be6\u60c5\u4fe1\u606f
\n Private Function ReadContentDataFromXml(xmlfile)
\n  Dim SQLARR()
\n  Dim XmlDoc
\n  Set XmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0")
\n  XmlDoc.Load xmlfile
\n  Dim itemslength,itemsi
\n  itemslength = XmlDoc.documentElement.childNodes.length<\/p>\n

  For itemsi=0 To itemslength-1
\n   ReDim Preserve SQLARR(itemslength-1,0)
\n   SQLARR(itemsi,0) = XmlDoc.documentElement.childNodes(itemsi).text
\n  Next
\n  Set XmlDoc = Nothing
\n  m_SQLArr = SQLArr
\n End Function
\n <\/p>\n

 Rem \u4eceDb\u4e2d\u8bfb\u53d6\u8be6\u60c5\u4fe1\u606f
\n Private Function ReadContentDataFromDB()
\n  Dim rs
\n  Dim SQLARR
\n  Set rs = m_DataConn.execute(m_sql)
\n  IF Not Rs.eof Then
\n   SQLArr=Rs.GetRows(1)
\n   rs.close
\n   Set rs = Nothing
\n  Else
\n   rs.close
\n   Set rs = Nothing
\n   Exit Function
\n  End If
\n  m_SQLArr = SQLArr
\n End Function<\/p>\n

\n Rem \u8bfb\u53d6\u5217\u8868\u6570\u636e
\n Private Function ReadListAndSearchData
\n  Dim sPagesize,TotalPage,CurPage,TotalRec
\n  sPagesize = m_PageSize * m_CachePageNum<\/p>\n

  m_CurPage = CLng(m_CurPage)
\n 
\n  If m_CurPage Mod m_CachePageNum = 0 Then
\n   CurPage = m_CurPage\/m_CachePageNum
\n  Else
\n   CurPage = int(clng(m_CurPage)\/m_CachePageNum)+1
\n  End If<\/p>\n

  Dim xmlfile
\n  xmlfile = getXmlFileName(CurPage)
\n  If FSOExistsFile(xmlfile) Then ‘\u5b58\u5728xml\u7f13\u5b58\uff0c\u76f4\u63a5\u4ecexml\u4e2d\u8bfb\u53d6
\n   ReadListAndSearchDataFromXml xmlfile
\n  Else
\n   ReadListAndSearchDataFromDB
\n  End If
\n End Function<\/p>\n

 Rem \u4ecexml\u4e2d\u8bfb\u5217\u8868\u6570\u636e
\n Private Function ReadListAndSearchDataFromXml(xmlfile)
\n  Dim SQLARR()
\n  Dim XmlDoc
\n  Set XmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0")
\n  XmlDoc.Load xmlfile
\n  Dim totalrecont
\n  totalrecont = XmlDoc.documentElement.selectSingleNode("totalrec").text
\n  m_RecordCount = totalrecont
\n  Dim TotalRec
\n  TotalRec = m_RecordCount
\n  If totalrecont = 0 Then
\n   Set XmlDoc = Nothing
\n   m_SQLArr = SQLARR
\n   Exit Function
\n  End If<\/p>\n

  Dim TotalPage,curpage
\n  curpage = m_CurPage
\n  If m_CurPage Mod m_CachePageNum = 0 Then
\n   CurPage = m_CurPage\/m_CachePageNum
\n  Else
\n   CurPage = int(clng(m_CurPage)\/m_CachePageNum)+1
\n  End If<\/p>\n

  If TotalRec Mod m_CachePageNum =0 Then
\n   TotalPage = totalrecont\/m_CachePageNum
\n  Else
\n   TotalPage = int(clng(totalrecont)\/m_CachePageNum)+1
\n  End If
\n 
\n  If curpage>TotalPage Then curpage=TotalPage
\n  Dim starti
\n  Dim startn
\n  startn = m_curpage – (curpage-1) * m_CachePageNum
\n  Rem \u8ba1\u7b97\u5f00\u59cb\u4f4d\u7f6e
\n  starti = (startn-1) * m_pagesize
\n  Dim items,item
\n  Set items = XmlDoc.documentElement.SelectNodes("item")
\n  Dim i
\n  Dim num
\n  Dim length
\n  length = items.length
\n  num = 0
\n  For i = starti To m_PageSize + starti -1
\n   If i >=length Then Exit For
\n   Set item = items(i)
\n   Dim attrlength
\n   attrlength = item.attributes.length
\n   ReDim Preserve SQLARR(attrlength,num)
\n   Dim Attribute
\n   Dim Attributei
\n   Attributei = 0
\n   For Attributei = 0 To attrlength-1
\n    SQLArr(Attributei,num) = item.attributes(Attributei).Nodevalue
\n   Next  
\n   num = num + 1
\n  Next
\n  Set XmlDoc = Nothing
\n  m_SQLArr = SQLArr
\n End Function
\n 
\n Rem \u4eceDB\u4e2d\u8bfb\u5217\u8868\u6570\u636e
\n Private Function ReadListAndSearchDataFromDB
\n  Dim rs,TotalRec,CurPage
\n  CurPage = m_CurPage
\n  Set Rs = Server.CreateObject("Adodb.Recordset")
\n  Rs.open m_sql,m_DataConn,1
\n  TotalRec = rs.recordcount
\n  m_RecordCount = TotalRec
\n  rs.pagesize = m_PageSize
\n  If  CurPage>rs.PageCount Then  CurPage = rs.PageCount
\n  If Not rs.eof Then rs.absolutePage=m_CurPage
\n  Dim SQLARR()
\n  Dim k
\n  k = 0
\n  While Not rs.eof and k<m_PageSize
\n   Dim fieldlegth
\n   fieldlegth = rs.Fields.count
\n   ReDim Preserve SQLARR(fieldlegth,k)
\n  
\n   Dim fieldi
\n   For fieldi = 0 To fieldlegth-1
\n    SQLArr(fieldi,k) = rs.Fields(fieldi).value
\n   Next
\n   rs.movenext
\n   k=k+1
\n  Wend
\n  rs.close
\n  Set rs = Nothing
\n  m_SQLArr = SQLArr
\n End Function<\/p>\n

\n Rem \u83b7\u53d6xml\u6587\u4ef6\u540d\u79f0
\n Private Function getXmlFileName(num)
\n  Dim tmpstr
\n  tmpstr = LCase(m_XmlFile)
\n  If Right(tmpstr,4) = ".xml" Then
\n   tmpstr = Left(tmpstr,Len(tmpstr)-Len(".xml"))
\n  End If
\n  tmpstr = Replace(tmpstr,"%","_")
\n  tmpstr = tmpstr & "_" & num & ".xml"
\n  getXmlFileName = tmpstr
\n End Function<\/p>\n

\n Rem \u516c\u5171\u65b9\u6cd5 \u5c06\u6570\u636e\u5199\u5165xml\u6587\u4ef6
\n Public Function WriteDataToXml
\n  If m_CacheType = 1 Then
\n   WriteListAndSearchDataToXml
\n  Else
\n   WriteContentDataToXml
\n  End If
\n End Function<\/p>\n

\n Rem \u5199\u5177\u4f53\u67d0\u6761\u4fe1\u606f\u7684\u8be6\u60c5xml
\n Private Function WriteContentDataToXml
\n  Rem xml\u672a\u8fc7\u671f\u5219\u76f4\u63a5\u9000\u51fa
\n  Dim xmlfile
\n  xmlfile = m_XmlFile
\n  If FSOExistsFile(xmlfile) Then
\n   If Not isXmlCacheExpired(xmlfile,m_CacheTime) Then  Exit Function
\n  End If
\n  Dim rs
\n  Set rs = Server.CreateObject("Adodb.Recordset")<\/p>\n

  Rs.open m_sql,m_DataConn
\n  CreateContentXmlFile xmlfile,Rs
\n End Function<\/p>\n

\n Rem \u5217\u8868\u548c\u641c\u7d22xml\u6570\u636e
\n Private Function WriteListAndSearchDataToXml
\n 
\n  Dim sPagesize,TotalPage,CurPage,TotalRec
\n  sPagesize = m_PageSize * m_CachePageNum<\/p>\n

  m_CurPage = CLng(m_CurPage)
\n 
\n  If m_CurPage Mod m_CachePageNum = 0 Then
\n   CurPage = m_CurPage\/m_CachePageNum
\n  Else
\n   CurPage = int(clng(m_CurPage)\/m_CachePageNum)+1
\n  End If<\/p>\n

  Dim xmlfile
\n  xmlfile = getXmlFileName(CurPage)<\/p>\n

  Rem \u5982\u679cxml\u672a\u8fc7\u671f\u5219\u76f4\u63a5\u9000\u51fa
\n  If FSOExistsFile(xmlfile) Then
\n   If Not isXmlCacheExpired(xmlfile,m_CacheTime) Then  Exit Function
\n  End If
\n  Dim rs
\n  Set Rs = Server.CreateObject("Adodb.Recordset")
\n  Rs.open m_sql,m_DataConn,1
\n  TotalRec = rs.recordcount
\n  rs.pagesize = sPagesize
\n  If  CurPage>rs.PageCount Then  CurPage = rs.PageCount
\n  CreateListAndSearchXMLFile xmlfile,TotalRec,Rs,sPagesize
\n End Function<\/p>\n

 <\/p>\n

 Rem \u79c1\u6709\u65b9\u6cd5
\n Rem \u5f97\u5230\u6587\u4ef6\u7684\u6700\u540e\u4fee\u6539\u65f6\u95f4
\n Private Function FSOGetFileLastModifiedTime(file)
\n  Dim fso,f,s  
\n  Set fso=CreateObject("Scripting.FileSystemObject")  
\n  Set f=fso.GetFile(file)  
\n  FSOGetFileLastModifiedTime = f.DateLastModified
\n  Set f = Nothing
\n  Set fso = Nothing
\n End Function<\/p>\n

\n Rem \u5224\u65adxml\u7f13\u5b58\u662f\u5426\u5230\u671f
\n Private Function isXmlCacheExpired(file,seconds)
\n  Dim filelasttime
\n  filelasttime = FSOGetFileLastModifiedTime(file)
\n  If DateAdd("s",seconds,filelasttime) < Now Then
\n   isXmlCacheExpired = True
\n  Else
\n   isXmlCacheExpired = False
\n  End If
\n End Function<\/p>\n

 Rem \u6587\u4ef6\u662f\u5426\u5b58\u5728
\n Private Function FSOExistsFile(file)
\n  Dim fso
\n  Set fso = Server.CreateObject("Scripting.FileSystemObject")
\n  If fso.FileExists(file) Then
\n   FSOExistsFile = true
\n  Else
\n   FSOExistsFile = false
\n  End If
\n  Set fso = nothing
\n End Function
\n <\/p>\n

 Rem \u751f\u6210\u8be6\u7ec6\u6570\u636e\u7684xml
\n Private Function CreateContentXmlFile(xmlfile,Rs)
\n  Dim xmlcontent
\n  xmlcontent = "<?xml version=""1.0"" encoding=""gb2312""?>" & vbnewline
\n  xmlcontent = xmlcontent & "<root>" & vbnewline
\n 
\n  Dim field
\n  For Each field In rs.Fields
\n   xmlcontent = xmlcontent & "<"&field.name&">"
\n   Dim value
\n   value = field.value
\n   If TypeName(value) = "String" Then
\n    xmlcontent = xmlcontent & "<![CDATA[" & Trim(value) & "]]>"
\n   Else
\n    xmlcontent = xmlcontent &  Trim(value)
\n   End If
\n   xmlcontent = xmlcontent & "<\/"&field.name&">" & vbnewline
\n  Next
\n  rs.close
\n  Set rs = Nothing
\n  xmlcontent = xmlcontent & "<\/root>" & vbnewline
\n 
\n  Dim folderpath
\n  folderpath = Trim(left(xmlfile,InstrRev(xmlfile,"\\")-1))
\n  Call CreateDIR(folderpath&"") ‘\u521b\u5efa\u6587\u4ef6\u5939
\n  WriteStringToXMLFile xmlfile,xmlcontent
\n End Function<\/p>\n

\n Rem \u751f\u6210\u5217\u8868\u7684xml
\n Private Function CreateListAndSearchXMLFile(xmlfile,TotalRec,Rs,sPagesize)
\n  Dim xmlcontent
\n  xmlcontent = ""
\n  xmlcontent = xmlcontent & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbnewline
\n  xmlcontent = xmlcontent & " <root>" & vbnewline
\n  xmlcontent = xmlcontent & "  <totalrec>" & TotalRec & "<\/totalrec>" & vbnewline<\/p>\n

  Dim k
\n  k = 0
\n  Dim field
\n  While Not rs.eof and k<sPagesize
\n   xmlcontent = xmlcontent & "  <item "
\n   For Each field In rs.Fields
\n    xmlcontent = xmlcontent & field.name & "=""" & XMLStringEnCode(field.value) & """ "
\n   Next
\n   xmlcontent = xmlcontent &  "><\/item>" & vbnewline
\n   rs.movenext
\n   k=k+1
\n  Wend
\n  rs.close
\n  Set rs = Nothing
\n  xmlcontent = xmlcontent & " <\/root>" & vbnewline
\n  Dim folderpath
\n  folderpath = Trim(left(xmlfile,InstrRev(xmlfile,"\\")-1))
\n  Call CreateDIR(folderpath&"") ‘\u521b\u5efa\u6587\u4ef6\u5939
\n  WriteStringToXMLFile xmlfile,xmlcontent
\n End Function<\/p>\n

 Rem xml\u8f6c\u4e49\u5b57\u7b26
\n Private Function XMLStringEnCode(str)
\n  If str&"" = "" Then XMLStringEnCode="":Exit Function
\n  str = Replace(str,"<","&lt;")
\n  str = Replace(str,">","&gt;")
\n  str = Replace(str,"’","&apos;")
\n  str = Replace(str,"""","&quot;")
\n  str = Replace(str,"&","&amp;")
\n  XMLStringEnCode = str
\n End Function
\n Rem \u5199\u6587\u4ef6
\n Private Sub WriteStringToXMLFile(filename,str)
\n  ‘On Error Resume Next
\n  Dim fs,ts
\n  Set fs= createobject("scripting.filesystemobject")
\n  If Not IsObject(fs) Then Exit Sub  
\n  Set ts=fs.OpenTextFile(filename,2,True)
\n  ts.writeline(str)
\n  ts.close
\n  Set ts=Nothing
\n  Set fs=Nothing
\n End Sub<\/p>\n

\n Rem \u521b\u5efa\u6587\u4ef6\u5939
\n Private function CreateDIR(byval LocalPath)
\n  On  Error  Resume  Next
\n  Dim i,FileObject,patharr,path_level,pathtmp,cpath
\n  LocalPath = Replace(LocalPath,"\\","\/")
\n  Set  FileObject = server.createobject("Scripting.FileSystemObject")
\n  patharr = Split(LocalPath,"\/")
\n  path_level = UBound (patharr)
\n  For  i = 0 To  path_level
\n   If  i=0 Then 
\n    pathtmp=patharr(0) & "\/"
\n   Else 
\n    pathtmp = pathtmp & patharr(i) & "\/"
\n   End If
\n   cpath = left(pathtmp,len(pathtmp)-1)
\n   If  Not  FileObject.FolderExists(cpath) Then
\n    ‘Response.write cpath
\n    FileObject.CreateFolder cpath
\n   End  If
\n  Next
\n  Set  FileObject = Nothing
\n  If  err.number<>0 Then
\n   CreateDIR = False
\n   err.Clear
\n  Else
\n   CreateDIR = True
\n  End  If
\n End  Function
\nEnd Class
\n%><\/p>\n

\n\u6b64\u7c7b\u5305\u542b\u4e24\u79cd\u7f13\u5b58\u65b9\u5f0f\uff1a\u4e00\u79cd\u662f\u57fa\u4e8e\u5217\u8868\u65b9\u5f0f\u7684\uff0c\u5982\u6309\u7167\u67d0\u4e2a\u7c7b\u522b\u663e\u793a\u4fe1\u606f\u3001\u641c\u7d22\u67d0\u4e2a\u5173\u952e\u8bcd\u8fdb\u884c\u663e\u793a\uff1b\u53e6\u5916\u4e00\u79cd\u662f\u8be6\u7ec6\u9875\u9762\u7684\u7f13\u5b58\uff0c\u5982\u663e\u793a\u5177\u4f53\u7684\u67d0\u7bc7\u6587\u7ae0\u3002
\n\u6b64\u7c7b\u4e0e\u5177\u4f53\u7684\u4e1a\u52a1\u903b\u8f91\u65e0\u5173\uff0c\u53ea\u8d1f\u8d23xml\u6570\u636e\u7684\u8bfb\u53d6\u548c\u5b58\u50a8\uff0c\u5224\u65ad\u662f\u5426\u7f13\u5b58\u8fc7\u671f\u51b3\u5b9a\u662f\u5426\u9700\u8981\u66f4\u65b0\u7f13\u5b58\u3002\u6309\u7167\u4e09\u5c42\u6784\u67b6\u6a21\u5f0f\u7684\u8bdd\uff0c\u5b83\u5904\u4e8e\u6570\u636e\u8bbf\u95ee\u5c42\u3002<\/p>\n

\n\u8c03\u7528\u8fd9\u4e2a\u7c7b\u7684\u4ee3\u7801\uff1a
\nBusiness.asp
\n<%
\nRem xml\u6570\u636e\u7f13\u5b58\u7c7b\u4e1a\u52a1\u903b\u8f91\u5c42\u4ee3\u7801
\n‘————————————————–
\n‘\u8f6c\u8f7d\u7684\u65f6\u5019\u8bf7\u4fdd\u7559\u7248\u6743\u4fe1\u606f
\n‘\u4f5c\u8005:walkman
\n‘\u7f51\u5740:\u624b\u673a\u4e3b\u9898 http:\/\/www.shouji138.com<\/a>
\n‘\u7248\u672c:ver1.0
\n‘\u6b22\u8fce\u5404\u4f4d\u4ea4\u6d41\u8fdb\u6b65
\n‘————————————————–<\/p>\n

Rem \u6839\u636eclassid\u53d6\u5217\u8868\u6570\u636e
\nFunction GetListarr(classid,curpage,PageSize,CachePageNum,ByRef RecordCount)
\n openConn
\n Dim sql
\n sql = "select thmid,thmname,picfileurl,win_theme.adddate from win_theme where  win_theme.ClassID="&classid&" order by thmid desc"
\n Dim cache
\n Set cache = new XmlCacheCls
\n cache.PageSize = PageSize     ‘\u6bcf\u9875N\u6761\u8bb0\u5f55
\n cache.CachePageNum = CachePageNum    ‘\u4e00\u4e2axml\u6587\u4ef6\u7f13\u5b58M\u9875\u7684\u6570\u636e\u91cf
\n cache.XmlFile = Server.Mappath("xmlcache\/classxml\/list_"&classid&".xml")
\n cache.Sql = sql
\n cache.CurPage = curpage
\n cache.CacheType = 1
\n Set cache.Conn = conn
\n cache.ReadData
\n Dim SqlArr
\n SQLArr = cache.SQLArr
\n RecordCount = cache.RecordCount
\n Set cache = Nothing
\n GetListarr = SqlArr
\nEnd Function<\/p>\n

\nRem \u6839\u636eclassid\u751f\u6210xml\u7f13\u5b58
\nFunction CreateListxml(classid,curpage,PageSize,CachePageNum,CacheTime)
\n Dim sql
\n sql = "select thmid,thmname,picfileurl,win_theme.adddate from win_theme where  win_theme.ClassID="&classid&" order by thmid desc"
\n Dim cache
\n Set cache = new XmlCacheCls
\n cache.CacheTime = CacheTime ‘\u7f13\u5b58\u65f6\u95f4
\n cache.PageSize = PageSize     ‘\u6bcf\u9875N\u6761\u8bb0\u5f55
\n cache.CachePageNum = CachePageNum    ‘\u4e00\u4e2axml\u6587\u4ef6\u7f13\u5b58M\u9875\u7684\u6570\u636e\u91cf
\n cache.XmlFile = Server.Mappath("xmlcache\/classxml\/list_"&classid&".xml")
\n cache.Sql = sql
\n cache.CurPage = curpage
\n cache.CacheType = 1
\n Set cache.Conn = conn
\n cache.WriteDataToXml
\n Set cache = Nothing
\nEnd Function<\/p>\n

\nRem \u6839\u636ekeyword\u53d6\u5217\u8868\u6570\u636e
\nFunction GetSearcharr(keyword,curpage,PageSize,CachePageNum,ByRef RecordCount)
\n openConn
\n Dim sql
\n Dim sqlkey
\n sqlkey = Replace(keyword,"’","")
\n sql = "select thmid,thmname,picfileurl,win_theme.adddate from win_theme where  ThmName like ‘%"&sqlkey&"%’ or ThmRange  like ‘%"&sqlkey&"%’ or ThmInstro  like ‘%"&sqlkey&"%’  order by thmid desc"
\n Dim cache
\n Set cache = new XmlCacheCls
\n cache.PageSize = PageSize     ‘\u6bcf\u9875N\u6761\u8bb0\u5f55
\n cache.CachePageNum = CachePageNum    ‘\u4e00\u4e2axml\u6587\u4ef6\u7f13\u5b58M\u9875\u7684\u6570\u636e\u91cf
\n cache.XmlFile = Server.Mappath("xmlcache\/searchxml\/list_"&Server.URlEncode(Replace(keyword,"’",""))&".xml")
\n cache.Sql = sql
\n cache.CurPage = curpage
\n cache.CacheType = 1
\n Set cache.Conn = conn
\n cache.ReadData
\n Dim SqlArr
\n SQLArr = cache.SQLArr
\n RecordCount = cache.RecordCount
\n Set cache = Nothing
\n GetSearcharr = SqlArr
\nEnd Function<\/p>\n

 <\/p>\n

Rem \u6839\u636ekeyword\u751f\u6210xml\u7f13\u5b58
\nFunction CreateSearchxml(keyword,curpage,PageSize,CachePageNum,CacheTime)
\n Dim sql
\n Dim sqlkey
\n sqlkey = Replace(keyword,"’","")
\n sql = "select thmid,thmname,picfileurl,win_theme.adddate from win_theme where  ThmName like ‘%"&sqlkey&"%’ or ThmRange  like ‘%"&sqlkey&"%’ or ThmInstro  like ‘%"&sqlkey&"%’  order by thmid desc"
\n Dim cache
\n Set cache = new XmlCacheCls
\n cache.CacheTime = CacheTime ‘\u7f13\u5b58\u65f6\u95f4
\n cache.PageSize = PageSize     ‘\u6bcf\u9875N\u6761\u8bb0\u5f55
\n cache.CachePageNum = CachePageNum    ‘\u4e00\u4e2axml\u6587\u4ef6\u7f13\u5b58M\u9875\u7684\u6570\u636e\u91cf
\n cache.XmlFile =  Server.Mappath("xmlcache\/searchxml\/list_"&Server.URlEncode(Replace(keyword,"’",""))&".xml")
\n cache.Sql = sql
\n cache.CurPage = curpage
\n cache.CacheType = 1
\n Set cache.Conn = conn
\n cache.WriteDataToXml
\n Set cache = Nothing
\nEnd Function<\/p>\n

Rem \u6839\u636eclassid\u53d6\u5217\u8868\u6570\u636e
\nFunction GetDetailarr(thmid)
\n openConn
\n Dim sql
\n sql = "select a.thmid,a.thmname,a.classid,b.classname,a.picfileurl,a.thmver,a.thmsize,a.thminstro,a.thmrange,a.thmfileurl,a.adddate from win_theme a,Win_Classify b where a.classid=b.classid and  a.thmid="&thmid&""
\n Dim thmidmod
\n thmidmod = thmid Mod 100
\n 
\n Dim cache
\n Set cache = new XmlCacheCls
\n cache.XmlFile = Server.Mappath("xmlcache\/detailxml\/"&thmidmod&"\/"&thmid&".xml")
\n cache.Sql = sql
\n cache.CacheType = 2
\n Set cache.Conn = conn
\n cache.ReadData
\n Dim SqlArr
\n SQLArr = cache.SQLArr
\n Set cache = Nothing
\n GetDetailarr = SqlArr
\nEnd Function<\/p>\n

Rem \u6839\u636ekeyword\u751f\u6210xml\u7f13\u5b58
\nFunction CreateDetailxml(thmid,CacheTime)
\n Dim sql
\n sql = "select a.thmid,a.thmname,a.classid,b.classname,a.picfileurl,a.thmver,a.thmsize,a.thminstro,a.thmrange,a.thmfileurl,a.adddate from win_theme a,Win_Classify b where a.classid=b.classid and  a.thmid="&thmid&""
\n Dim thmidmod
\n thmidmod = thmid Mod 100
\n Dim cache
\n Set cache = new XmlCacheCls
\n cache.CacheTime = CacheTime ‘\u7f13\u5b58\u65f6\u95f4
\n cache.XmlFile =  Server.Mappath("xmlcache\/detailxml\/"&thmidmod&"\/"&thmid&".xml")
\n cache.Sql = sql
\n cache.CacheType = 2
\n Set cache.Conn = conn
\n cache.WriteDataToXml
\n Set cache = Nothing
\nEnd Function<\/p>\n

\nRem \u68c0\u6d4b\u52a8\u6001\u6570\u7ec4\u662f\u5426\u5df2\u5206\u914d
\nFunction   ismalloc(a)
\n On   Error Resume Next
\n Dim   i  
\n i   =   UBound(a)
\n If Err Then
\n ismalloc = False
\n Else
\n ismalloc   =   True  
\n End If 
\nEnd   Function <\/p>\n

 <\/p>\n

Function showData(SQLArr)<\/p>\n

 If Not  ismalloc(SQLArr) Then Exit Function
\n Dim i,k
\n Dim num
\n num = 0
\n i = UBound(SQLArr,1)
\n k = UBound(SQLArr,2)
\n Dim m,n
\n For m = 0 To k
\n  num = num+1
\n %>
\n <ul class="listbox" onMouseOver="overtb(this)" onMouseOut="outtb(this)">
\n<li>
\n<a title="<%=SQLArr(1,m)%>" href="detail.asp?id=<%=SQLArr(0,m)%>" target="_blank">
\n  <img height="140" alt="<%=SQLArr(1,m)%>" src="http:\/\/www.shouji138.com<%=SQLArr(2,m)%<\/a>>" width="107" border="0"><\/a>
\n<\/li>
\n<li class="green bold">
\n<a title="<%=SQLArr(1,m)%>" href="detail.asp?id=<%=SQLArr(0,m)%>" _fcksavedurl=""detail.asp?id=<%=SQLArr(0,m)%>"" target="_blank">
\n<%=walkgottopic(Trim(SQLArr(1,m)),18)%><\/a>
\n<\/li>
\n <li><%=DateValue(SQLArr(3,m))%><\/li>
\n <\/ul>
\n <%
\n next
\nEnd Function<\/p>\n

%><\/p>\n

\u8fd9\u4e2a\u6587\u4ef6\u662f\u4e1a\u52a1\u903b\u8f91\u5c42\u4ee3\u7801\uff0c\u8d1f\u8d23\u6839\u636e\u4e0d\u540c\u7684\u4e1a\u52a1\u903b\u8f91\u6765\u5b9e\u73b0xml\u6570\u636e\u7684\u8bfb\u53d6\u548c\u5199\u5165\uff0c\u5e76\u63d0\u4f9b\u63a5\u53e3\u65b9\u6cd5\u7ed9web\u8868\u73b0\u5c42\u8c03\u7528\u3002<\/p>\n

\u5177\u4f53\u7684\u8c03\u7528\u4ee3\u7801\uff1a
\nlist.asp
\n\u53ea\u663e\u793a\u76f8\u5173\u4ee3\u7801\u3002
\n<%
\n\u3002\u3002\u3002\u3002\u3002\u3002
\nDim classid
\nclassid = Request("classid")
\nIf classid = "" Or (Not IsNumeric(classid)) Then Response.write "\u53c2\u6570\u9519\u8bef\uff01":Response.End()
\nclassid = CLng(classid)<\/p>\n

Dim sPagesize,TotalPage,CurPage,TotalRec,CachePageNum
\nsPagesize = 20
\nCachePageNum = 10
\nCurPage = Trim(Request("page"))
\nIF CurPage="" Or (Not IsNumeric(CurPage)) Then
\n  CurPage=1
\nElse
\n  CurPage=Clng(CurPage)
\nEnd IF
\nDim myarr<\/p>\n

myarr = GetListarr(classid,CurPage,sPagesize,CachePageNum,TotalRec)<\/p>\n

‘\u603b\u9875\u6570
\nTotalPage = int(clng(TotalRec)\/sPagesize*-1)*-1<\/p>\n

If Clng(TotalRec)>0 Then
\n showData myarr
\nEnd If
\n…………….
\n%>
\n\u6700\u540e\u5728\u9875\u9762\u6700\u5e95\u90e8\u8c03\u7528\u4e00\u4e2aasp\u7684script\u8bed\u53e5\u6765\u66f4\u65b0xml\u7f13\u5b58\u3002
\n<script type="text\/javascript" src="setcache.asp?action=list&curpage=<%=curpage%>&classid=<%=classid%>"><\/script><\/p>\n

\nsetcache.asp
\n\u76f8\u5173\u4ee3\u7801
\n<%
\nopenconn
\nDim action
\naction = Trim(Request("action"))&""<\/p>\n

Dim curpage
\ncurpage = Request("curpage")<\/p>\n

Dim classid
\nDim keyword
\nDim thmid
\nIf action = "list" Then
\n classid = Request("classid")
\n If classid="" Or (Not IsNumeric(classid)) Or curpage="" Or (Not IsNumeric(curpage)) Then
\n Else
\n  CreateListxml CLng(classid),CLng(curpage),20,10,60 * 60 * 2  ‘\u521b\u5efa\u5206\u7c7b\u7684xml
\n End If
\nElseIf action = "search" Then
\n keyword = Trim(Request("keyword"))
\n If keyword=""  Then
\n Else
\n  CreateSearchxml keyword,CLng(curpage),20,10,60 * 60 * 2  ‘\u521b\u5efa\u641c\u7d22\u7684xml
\n End If
\nElseIf action = "detail" Then
\n thmid = Request("id")
\n If thmid="" Or (Not IsNumeric(thmid))  Then
\n Else
\n  CreateDetailxml CLng(thmid),60 * 60 * 2  ‘\u521b\u5efa\u8be6\u60c5\u7684xml
\n End If
\nEnd If
\nCall Closeconn
\nResponse.write " "
\nResponse.End<\/p>\n

%>
\n\u81f3\u6b64\uff0c\u6838\u5fc3\u4ee3\u7801\u90fd\u5206\u4eab\u51fa\u6765\u4e86\uff0c\u5b9e\u8df5\u8bc1\u660e\uff0c\u901a\u8fc7\u8fd9\u6837\u7684\u65b9\u5f0f\uff0c\u6211\u7684138\u624b\u673a\u4e3b\u9898\u7f51\u7684\u670d\u52a1\u5668\u7684CPU\u5360\u7528\u7387\u548c\u5185\u5b58\u5360\u7528\u7387\u660e\u663e\u4e0b\u964d\uff0c\u8bbf\u95ee\u901f\u5ea6\u4e5f\u660e\u663e\u63d0\u9ad8\uff0c\u4ece\u4ee5\u524d\u7684\u9700\u8981\u51e0\u79d2\u751a\u81f310\u591a\u79d2\uff0c\u5230\u73b0\u5728\u53ea\u9700\u898110\u51e0\u6beb\u79d2\u3002
\n\u4e3a\u4e86\u65b9\u4fbf\u5927\u5bb6\u7406\u89e3\u5176\u4e2d\u7684\u4ee3\u7801\uff0c\u6211\u7279\u5730\u505a\u4e86\u4e00\u4e2ademo\uff0c\u4f9b\u540c\u884c\u5b66\u4e60\u4ea4\u6d41\u3002\u5730\u5740\uff1ahttp:\/\/www.shouji138.com\/aspnet2\/demo<\/a>
\n\u6b64\u4f8b\u7a0b\u7684\u5b8c\u6574\u4e0b\u8f7d\u5305\uff1ahttp:\/\/www.shouji138.com\/aspnet2\/demo\/xmlcachedemo.rar<\/a><\/p>\n

\n\u672c\u6587\u6765\u81ea: \u987a\u5b50\u7f51\u7edc(www.0798wz.com<\/a>) \u8be6\u7ec6\u51fa\u5904\u53c2\u8003\uff1ahttp:\/\/www.0798wz.com\/A909<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

\u6253\u9020\u4e00\u4e2a\u9ad8\u6027\u80fd\u7a33\u5b9a\u7684web\u7ad9\u70b9\u4e00\u76f4\u662f\u7ad9\u957f\u548c\u7a0b\u5e8f\u5458\u7684\u68a6\u60f3\uff0c\u672c\u6587\u7528\u4f5c\u8005\u7684\u4e00\u6b21\u4eb2\u8eab\u7ecf\u5386\u7684\u6765\u8bf4\u8bf4\u5982\u4f55\u5229\u7528xml\u7f13\u5b58\u6280\u672f\u5b9e\u73b0\u7ad9\u70b9\u7684\u9ad8\u6027\u80fd\u3002\u6211\u662f\u4ece\u4eca\u5e74\u5f00\u59cb\u505a138\u624b\u673a\u4e3b\u9898\u7f51\u7684\uff0c\u91c7\u7528SQL2000\u505a\u4e3a\u6570\u636e\u5e93\uff0c\u5f00\u53d1\u8bed\u8a00\u7528\u7684\u662fAsp\uff0c\u67e5\u8be2\u7684\u65f6\u5019\u90fd\u662f\u52a8\u6001\u67e5\u8be2\uff0c…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"topic":[],"class_list":["post-166","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/166","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=166"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/166\/revisions"}],"predecessor-version":[{"id":66017,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/166\/revisions\/66017"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=166"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=166"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=166"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=166"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}