<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim cc1 Dim cc1_numRows Set cc1 = Server.CreateObject("ADODB.Recordset") cc1.ActiveConnection = MM_bbs_STRING cc1.Source = "SELECT * FROM news ORDER BY time DESC" cc1.CursorType = 0 cc1.CursorLocation = 2 cc1.LockType = 1 cc1.Open() cc1_numRows = 0 %> <% Dim cc2 Dim cc2_numRows Set cc2 = Server.CreateObject("ADODB.Recordset") cc2.ActiveConnection = MM_bbs_STRING cc2.Source = "SELECT * FROM news WHERE type=1 ORDER BY time DESC" cc2.CursorType = 0 cc2.CursorLocation = 2 cc2.LockType = 1 cc2.Open() cc2_numRows = 0 %> <% Dim cc3 Dim cc3_numRows Set cc3 = Server.CreateObject("ADODB.Recordset") cc3.ActiveConnection = MM_bbs_STRING cc3.Source = "SELECT * FROM news WHERE type=2 ORDER BY time DESC" cc3.CursorType = 0 cc3.CursorLocation = 2 cc3.LockType = 1 cc3.Open() cc3_numRows = 0 %> <% Dim cc4 Dim cc4_numRows Set cc4 = Server.CreateObject("ADODB.Recordset") cc4.ActiveConnection = MM_bbs_STRING cc4.Source = "SELECT * FROM news WHERE type=3 ORDER BY time DESC" cc4.CursorType = 0 cc4.CursorLocation = 2 cc4.LockType = 1 cc4.Open() cc4_numRows = 0 %> <% Dim cc5 Dim cc5_numRows Set cc5 = Server.CreateObject("ADODB.Recordset") cc5.ActiveConnection = MM_bbs_STRING cc5.Source = "SELECT * FROM news WHERE type=4 ORDER BY time DESC" cc5.CursorType = 0 cc5.CursorLocation = 2 cc5.LockType = 1 cc5.Open() cc5_numRows = 0 %> <% Dim cc6 Dim cc6_numRows Set cc6 = Server.CreateObject("ADODB.Recordset") cc6.ActiveConnection = MM_bbs_STRING cc6.Source = "SELECT * FROM news WHERE type=5 ORDER BY time DESC" cc6.CursorType = 0 cc6.CursorLocation = 2 cc6.LockType = 1 cc6.Open() cc6_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 4 Repeat1__index = 0 cc1_numRows = cc1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 cc2_numRows = cc2_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 5 Repeat3__index = 0 cc3_numRows = cc3_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 5 Repeat4__index = 0 cc4_numRows = cc4_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = 5 Repeat5__index = 0 cc5_numRows = cc5_numRows + Repeat5__numRows %> <% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = 5 Repeat6__index = 0 cc6_numRows = cc6_numRows + Repeat6__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim cc3_total Dim cc3_first Dim cc3_last ' set the record count cc3_total = cc3.RecordCount ' set the number of rows displayed on this page If (cc3_numRows < 0) Then cc3_numRows = cc3_total Elseif (cc3_numRows = 0) Then cc3_numRows = 1 End If ' set the first and last displayed record cc3_first = 1 cc3_last = cc3_first + cc3_numRows - 1 ' if we have the correct record count, check the other stats If (cc3_total <> -1) Then If (cc3_first > cc3_total) Then cc3_first = cc3_total End If If (cc3_last > cc3_total) Then cc3_last = cc3_total End If If (cc3_numRows > cc3_total) Then cc3_numRows = cc3_total End If End If %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim cc4_total Dim cc4_first Dim cc4_last ' set the record count cc4_total = cc4.RecordCount ' set the number of rows displayed on this page If (cc4_numRows < 0) Then cc4_numRows = cc4_total Elseif (cc4_numRows = 0) Then cc4_numRows = 1 End If ' set the first and last displayed record cc4_first = 1 cc4_last = cc4_first + cc4_numRows - 1 ' if we have the correct record count, check the other stats If (cc4_total <> -1) Then If (cc4_first > cc4_total) Then cc4_first = cc4_total End If If (cc4_last > cc4_total) Then cc4_last = cc4_total End If If (cc4_numRows > cc4_total) Then cc4_numRows = cc4_total End If End If %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim cc5_total Dim cc5_first Dim cc5_last ' set the record count cc5_total = cc5.RecordCount ' set the number of rows displayed on this page If (cc5_numRows < 0) Then cc5_numRows = cc5_total Elseif (cc5_numRows = 0) Then cc5_numRows = 1 End If ' set the first and last displayed record cc5_first = 1 cc5_last = cc5_first + cc5_numRows - 1 ' if we have the correct record count, check the other stats If (cc5_total <> -1) Then If (cc5_first > cc5_total) Then cc5_first = cc5_total End If If (cc5_last > cc5_total) Then cc5_last = cc5_total End If If (cc5_numRows > cc5_total) Then cc5_numRows = cc5_total End If End If %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim cc6_total Dim cc6_first Dim cc6_last ' set the record count cc6_total = cc6.RecordCount ' set the number of rows displayed on this page If (cc6_numRows < 0) Then cc6_numRows = cc6_total Elseif (cc6_numRows = 0) Then cc6_numRows = 1 End If ' set the first and last displayed record cc6_first = 1 cc6_last = cc6_first + cc6_numRows - 1 ' if we have the correct record count, check the other stats If (cc6_total <> -1) Then If (cc6_first > cc6_total) Then cc6_first = cc6_total End If If (cc6_last > cc6_total) Then cc6_last = cc6_total End If If (cc6_numRows > cc6_total) Then cc6_numRows = cc6_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (cc3_total = -1) Then ' count the total records by iterating through the recordset cc3_total=0 While (Not cc3.EOF) cc3_total = cc3_total + 1 cc3.MoveNext Wend ' reset the cursor to the beginning If (cc3.CursorType > 0) Then cc3.MoveFirst Else cc3.Requery End If ' set the number of rows displayed on this page If (cc3_numRows < 0 Or cc3_numRows > cc3_total) Then cc3_numRows = cc3_total End If ' set the first and last displayed record cc3_first = 1 cc3_last = cc3_first + cc3_numRows - 1 If (cc3_first > cc3_total) Then cc3_first = cc3_total End If If (cc3_last > cc3_total) Then cc3_last = cc3_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (cc4_total = -1) Then ' count the total records by iterating through the recordset cc4_total=0 While (Not cc4.EOF) cc4_total = cc4_total + 1 cc4.MoveNext Wend ' reset the cursor to the beginning If (cc4.CursorType > 0) Then cc4.MoveFirst Else cc4.Requery End If ' set the number of rows displayed on this page If (cc4_numRows < 0 Or cc4_numRows > cc4_total) Then cc4_numRows = cc4_total End If ' set the first and last displayed record cc4_first = 1 cc4_last = cc4_first + cc4_numRows - 1 If (cc4_first > cc4_total) Then cc4_first = cc4_total End If If (cc4_last > cc4_total) Then cc4_last = cc4_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (cc5_total = -1) Then ' count the total records by iterating through the recordset cc5_total=0 While (Not cc5.EOF) cc5_total = cc5_total + 1 cc5.MoveNext Wend ' reset the cursor to the beginning If (cc5.CursorType > 0) Then cc5.MoveFirst Else cc5.Requery End If ' set the number of rows displayed on this page If (cc5_numRows < 0 Or cc5_numRows > cc5_total) Then cc5_numRows = cc5_total End If ' set the first and last displayed record cc5_first = 1 cc5_last = cc5_first + cc5_numRows - 1 If (cc5_first > cc5_total) Then cc5_first = cc5_total End If If (cc5_last > cc5_total) Then cc5_last = cc5_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (cc6_total = -1) Then ' count the total records by iterating through the recordset cc6_total=0 While (Not cc6.EOF) cc6_total = cc6_total + 1 cc6.MoveNext Wend ' reset the cursor to the beginning If (cc6.CursorType > 0) Then cc6.MoveFirst Else cc6.Requery End If ' set the number of rows displayed on this page If (cc6_numRows < 0 Or cc6_numRows > cc6_total) Then cc6_numRows = cc6_total End If ' set the first and last displayed record cc6_first = 1 cc6_last = cc6_first + cc6_numRows - 1 If (cc6_first > cc6_total) Then cc6_first = cc6_total End If If (cc6_last > cc6_total) Then cc6_last = cc6_total End If End If %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 【中国CISCO培训网】● CCNA + CCNP ￥3999元 - CISCO认证、CISCO培训

Cisco、Cisco认证、Cisco培训权威

CCNA/CCNP/CCIE培训

Cisco培训/思科培训　

培训咨询 010-68345588 

Email service@ciscochina.com

返回首页

课程设置

CCIE实验室

团体培训

 在线咨询

 在线报名

CCIE直达认证

CCNP直达认证

CCNA认证培训

CCNA在线培训
　

思科 Cisco CCNA CCNP CCIE认证培训咨询

您好！您有什么问题？

　

[中国思科培训网]提供权威CCNA培训 CCNP培训 CCIE培训；中国权威 思科(Cisco)、CCNA、CCNP、CCIE认证培训机构，中国思科培训第一品牌！

培训咨询：
010-68345588

　

Cisco认证 | 思科认证

Cisco培训 | 思科培训

Cisco考试 | 思科考试

CCNA认证 | CCNA培训

CCNP认证 | CCNP培训

CCIE认证 | CCIE培训

CCNA考试 | CCNA教程

CCNP考试 | CCNP教程

CCIE考试 | CCIE教程

　
　





　

　

 		 　
CCIE直达认证
含CCNP、CCNA全部课程

周末A：9月27日
周末B：8月23日
寒假班：待定

详细信息		 　

培  训  价：￥9980.00
特  惠  价：￥4999.00
 

　

　


 		 　
CCNP直达认证
含CCNA全部课程

周末A：9月27日
周末B：8月23日
寒假班：待定

详细信息		 　

培  训  价：￥5680.00
特  惠  价：￥4999.00
 

　

　

　
CCNA认证

周末A：9月27日
周末B：8月23日
寒假班：待定

详细信息

　

 　

培训价格：￥1880.00
在线培训：￥ 980.00
  
 

　

　


【中国思科培训网】- 思科(CISCO) CCNA、CCNP、CCIE 认证培训第一品牌！

地址：北京市海淀区 白石桥-西苑饭店四号楼一层  京ICP证05011618号 
培训咨询：010-68345588（多线）   Email：service@ciscochina.com　

　

全 国 各 地 培 训 咨 询

北京：010-68345588 天津：022-62066366  上海：021-51095709
广州：020-61131010  深圳：0755-61283800  西安：029-62291168
南京：025-86871880 武汉：027-51240080  成都：028-66002150
重庆：023-89009811  郑州：0371-67215200   济南：0531-88343600

　

　

　

<% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("counter/counter.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "Select * From counters" , conn,1,3 IF CSTR(Month(Rs("DATE"))) <> CSTR(Month(DATE())) THEN Rs("DATE") = DATE() Rs("YESTERDAY") = RS("TODAY") Rs("BMONTH") = Rs("MONTH") Rs("MONTH") = 1 Rs("TODAY") = 1 Rs.Update ELSE IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN Rs("DATE") = DATE() Rs("YESTERDAY") = Rs("TODAY") Rs("TODAY") = 1 Rs.Update END IF END IF Rs("TOTAL")=Rs("TOTAL") + 1 Rs("TODAY") =Rs("TODAY") + 1 Rs("MONTH")=Rs("MONTH") + 1 Rs.Update %><% cc1.Close() Set cc1 = Nothing %> <% cc2.Close() Set cc2 = Nothing %> <% cc3.Close() Set cc3 = Nothing %> <% cc4.Close() Set cc4 = Nothing %> <% cc5.Close() Set cc5 = Nothing %> <% cc6.Close() Set cc6 = Nothing %>