推薦：如何用ASP編寫網站統計系統
在目前的網站統計系統決大部分都是CGI的，但編寫起來特別復雜，而ASP學起來簡單，更有和數據庫結合的優點，所以結合自己曾經做過的網站統計系統，和大家探討一下ASP編寫網站統計系統。 大家

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

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

調用代碼：
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

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

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

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

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