連接數據庫 VBS: % dim conn dim dbpath dim connstr Set conn =Server.CreateObject("adodb.connection") dbpath=Server.MapPath("data.mdb") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="dbpath conn.open connstr %>
JS: % var conn; var dbpath; var connstr; conn=Server.CreateObject("adodb.connection"); dbpath=Server.MapPath("data.mdb"); connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+dbpath; conn.open(connstr); %>
關閉連接 VBS: %'關閉釋放記錄集 rs.close set rs = Nothing conn.close set conn = Nothing %>
JS: var id = Request.QueryString("id").item;//重要,js中Request.QueryString是一個對象,要加Item
SQL語句日期查詢,這個跟VBS的太不相同,相初我郁悶了很久,在網上找了很久才想出下面的語句(這個只寫了JS的,VBS的實在不會寫) % var rs,sql; rs = Server.CreateObject("adodb.recordset"); sql = "select * from [count] order by dae desc" rs.open(sql,conn,1,1) //實現總訪問量 var rst = Server.CreateObject("adodb.recordset"); sqlt="select sum(count) as dt from [count]"; rst.open(sqlt,conn,1,1); //實現當日訪問量 var rsd = Server.CreateObject("adodb.recordset"); sqld="select sum(count) as dd from [count] where day(dae) = '"+((new Date).getDate())+"' and Month(dae) = '"+((new Date).getMonth()+1)+"' and Year(dae) = '"+((new Date).getYear())+"'"; rsd.open(sqld,conn,1,1); //實現昨日訪問量 var rsz = Server.CreateObject("adodb.recordset"); sqlz="select sum(count) as zd from [count] where day(dae) = '"+((new Date).getDate()-1)+"' and Month(dae) = '"+((new Date).getMonth()+1)+"' and Year(dae) = '"+((new Date).getYear())+"'"; rsz.open(sqlz,conn,1,1); //實現當月訪問量 var rsm = Server.CreateObject("adodb.recordset"); sqlm="select sum(count) as dm from [count] where Month(dae) = '"+((new Date).getMonth()+1)+"'"; %>
