一直想寫一套生成靜態頁面的文章系統但面對生成靜態後的一些複雜數據庫交互問題。又望而卻步!
於是就想有沒有在不耽誤數據交互的情況下,而又能降低服務器負擔的方法呢!
一個網站,訪問量最大的莫過於首頁和主欄目頁了。其他的頁面我可以不去想,首頁和主欄目頁在大流量下服務器改如何承擔呢。
根據我編程2年多來的總結經驗我想去了一下方法!
不生成靜態頁並且降低服務器負擔!
複製代碼代碼如下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>
<%
'讀取遠程文件的函數
PublicFunctionreadRemoteFile(RemoteDataUrl)
DimXMLHttp
'OnErrorResumeNext
SetXMLHttp=Server.CreateObject("Microsoft.XMLHTTP")
WithXMLHttp
.Open"Get",RemoteDataUrl,False
.Send
readRemoteFile=BytesToBstr(.responseBody,"UTF-8")
EndWith
SetXMLHttp=Nothing
EndFunction
'編碼轉換
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
Functiontobody()
DimdateVal
'先試圖訪問緩存,看有沒有,或者過期沒有
dateVal=Application("defaultdate")
IfdateVal=""ThendateVal=DateAdd("s",1200,Now)
IfApplication("default")<>""Then