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

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

判斷數(shù)據(jù)庫代碼：
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"信息錯誤"
end if

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

'定義數(shù)據(jù)庫連接
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ù)庫連接2
Set conn2= Server.CreateObject("ADODB.Connection")
conn2.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessPath&"/"&AccessFile1)
conn2.Open
...
代碼可以做成類，方便調(diào)用，有想法的朋友可以自己試試

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

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