現在已有 <% Set conn1 = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("counter.mdb") conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET rs1 = Server.CreateObject("ADODB.Recordset") Rs1.Open "Select * From counters" , conn1,1,3 Response.Write(Rs1("TOTAL")) rs1.close() set rs1 = nothing conn1.close() set conn1 = nothing %> 部落格貼紙串聯數  
   
 

請先下拉選取您的部落格，產生部落格專屬貼碼！使用說明
* Flash貼紙將於每分鐘更新加入串連貼紙的天使人數

動態-Flash
 
 

靜態-Gif
 
 

歡迎您於您的部落格分享下列文章（可直接複製標題及短文），或您對象圈工程活動的感人分享。【活動時間8/29-9/30止】
<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.open "Driver={SQL Server};Server=SERVER08;UID=user_web;PWD=724;Database=bookzone" Set rs=Server.CreateObject("ADODB.RecordSet") SQL="Select * from event_usrdata where event='115' order by ser desc" rs.open SQL,conn,3,3 rs.PageSize=5 cPage=1 if Not rs.eof then if not isTrulyNumeric(Trim(request("pg"))) then cpage=1 else cpage=Trim(Request("pg")) end if if cint(cpage)<1 then cpage=1 end if if cint(cpage)>rs.Pagecount then cpage=rs.pagecount end if rs.AbsolutePage=cPage i=1 bgcolor_str = "" record_count = rs.recordcount ii = record_count - (cpage - 1) * 5 Do while Not rs.eof and i<=rs.PageSize %>

暱　　稱

 <%=rs("name")%>
Blog網址 <% if instr(rs("comment"),"http://")=0 then %> " target="_blank"><%="http://"&rs("comment")%> <% else %> " target="_blank" ><%=rs("comment")%> <% end if %>
-------------------------------------------------
<% rs.MoveNext:i=i+1:ii=ii-1 Loop Else %>
目前尚無任何資料!!! 
----------------------------------------------------------------------------------------
<% end if %> <% if rs.pagecount>0 then %>

<% if (cpage - 1) > 0 then %>上一頁<% end if %>

目前串連人數： <% Set rs1=Server.CreateObject("ADODB.RecordSet") SQL="Select count(*) as num from event_usrdata where event='115'" rs1.open SQL,conn,3,3 response.write(rs1("num")) rs1.close %> 　　頁數<%=cint(cpage)%>/<%=rs.pagecount%> <% if cint(cpage)< rs.pagecount then %>下一頁<% end if %>
<% end if %> <% rs.close set rs = nothing conn.close %>

 
<% '=================================================== Function isTrulyNumeric( intToCheck ) '=================================================== intToCheck = Trim( intToCheck ) If Len( intToCheck ) = 0 OR IsEmpty( intToCheck ) Then isTrulyNumeric = False Else Dim c, i isTrulyNumeric = True For i = 1 To Len( intToCheck ) c = Asc( Mid( intToCheck, i, 1 ) ) If c <= 44 OR c > 57 OR c = 47 Then isTrulyNumeric = False Exit For End If Next End If End Function %>