推薦：如何用ASP編寫(xiě)網(wǎng)站統(tǒng)計(jì)系統(tǒng)
在目前的網(wǎng)站統(tǒng)計(jì)系統(tǒng)決大部分都是CGI的，但編寫(xiě)起來(lái)特別復(fù)雜，而ASP學(xué)起來(lái)簡(jiǎn)單，更有和數(shù)據(jù)庫(kù)結(jié)合的優(yōu)點(diǎn)，所以結(jié)合自己曾經(jīng)做過(guò)的網(wǎng)站統(tǒng)計(jì)系統(tǒng)，和大家探討一下ASP編寫(xiě)網(wǎng)站統(tǒng)計(jì)系統(tǒng)。 大家

不知道你是否從經(jīng)遇到過(guò)這樣的空間，他限制你使用數(shù)據(jù)庫(kù)的大小，比如ACCESS MYSQL都限制在100M以下，如果你感覺(jué)這個(gè)空間很實(shí)惠，但是數(shù)據(jù)庫(kù)受到限制又想還用這樣的空間怎么辦，由于我自己就遇到這樣的問(wèn)題，自己寫(xiě)了一個(gè)代碼和大家分享，我的思路就是一個(gè)數(shù)據(jù)庫(kù)不能超過(guò)100M，那么十個(gè)呢？10*100＝1G，這樣你的數(shù)據(jù)庫(kù)還不夠用嗎？
代碼如下，(數(shù)據(jù)庫(kù)不受限制或高手可過(guò))

判斷數(shù)據(jù)庫(kù)代碼：
mdb=request.querystring("mdb")

調(diào)用代碼：
if mdbsort<>"" then
sql="SELECT top 11 id,name from znwl_article where classid="&mdbsort&" order by click DESC"
else
sql="SELECT top 11 id,name from znwl_article order by click DESC"
end if
set rs=server.createobject("adodb.recordset")
if mdb=1 then
rs.open sql,conn1,1,1
namesort="wzyy"
elseif mdb=2 then
rs.open sql,conn2,1,1
namesort="yjzx"
...
else
response.write"信息錯(cuò)誤"
end if

數(shù)據(jù)庫(kù)連接代碼
'定義數(shù)據(jù)庫(kù)鏈接文件，根據(jù)自己的情況修改
Const AccessPath="數(shù)據(jù)庫(kù)目錄"
Const AccessFile="db1.mdb"
Const AccessFile1="db2.mdb"
...

'定義數(shù)據(jù)庫(kù)連接
Dim Conn1,conn2
On Error Resume Next
Set Conn1= Server.CreateObject("ADODB.Connection")
Conn1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessPath&"/"&AccessFile)
Conn1.Open
'定義數(shù)據(jù)庫(kù)連接2
Set conn2= Server.CreateObject("ADODB.Connection")
conn2.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessPath&"/"&AccessFile1)
conn2.Open
...
代碼可以做成類(lèi)，方便調(diào)用，有想法的朋友可以自己試試

有用MYSQL數(shù)據(jù)庫(kù)的朋友，可以按照這個(gè)思路寫(xiě)一個(gè)代碼

分享：ASP 3.0高級(jí)編程(三十七)
8.2.5 Stream對(duì)象 Stream對(duì)象用于訪問(wèn)節(jié)點(diǎn)的內(nèi)容，比如一個(gè)E-Mail消息，或一個(gè)Web頁(yè)面。利用Stream對(duì)象可以訪問(wèn)文件或資源的真實(shí)內(nèi)容。因此，結(jié)合Record和Recordset對(duì)象，不僅可以訪問(wèn)Web服務(wù)器