<%@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在线培训
　

【CCIE实验室】

　

【中国思科培训网】作为CISCO培训的领导者，提供业内最权威 CISCO 思科 CCNA CCNP CCIE 认证培训；CCNA、CCNP、CCIE取证人数业界遥遥领先。至今已培训了大于1000名Cisco网络专业人员，客户涉及广泛，包括：工业、保险、制造业、金融业、计算机业、科技、综合系统、通讯及政府。在行业内享有良好口碑和至高知名度

【中国思科培训网】拥有国内首家思科标准CCIE实验室【中国CCIE实验室】，设备数量多，型号全，其标准和规模在思科专业认证培训领域处于绝对领先地位。

　

数量 设备名称 具体配置 设备介绍 设备图片 对应实验
1 Catalyst5000 Supervisor Engineer I, 12 port Ethernet Module Catalyst 5000系列交换机支持NetFlow局域交换技术；Supervisor EngineII和III的NetFlow局域交换功能卡可以提供园区范围内数百万PPS的转发速度


　

1.多层交换实验

2.VLAN配置实验

3.SPANTREE优化实验

4.ATM LANE 实验
1 Catalyst5505 Supervisor Engineer III F, 12 port Ethernet Module, ATM LANE Module
2 catalyst3560 Multilayer Switch , EMI.
24 port 10/100
Ethernet Port		 Cisco Catalyst 3560系列交换机是一个采用快速以太网配置的固定配置、企业级、IEEE 802.3af和思科预标准以太网电源（PoE）的交换机，提供了可用性、安全性和服务质量（QoS）功能，改进了网络运营

　

 1.多层交换实验

2.VLAN间路由实验

3.各类交换实验

4.CCIE要求实验
　
2　 catalyst3550 Multilayer Switch , EMI.                      24 port 10/100 
Ethernet Port               
2 GBIC Port

　

 Catalyst 3550-12T是第一种多层千兆以太网聚合交换机，实现思科IOS®智能网络业务的使用，包括IP路由、先进的服务质量（QoS）和安全性，同时又具有传统LAN交换易于使用的特点

1.多层交换实验      

2.VLAN间路由实验

3.各类交换实验       

4.CCIE要求的实验
2 Catalyst2950

12/24
10/100Ethernet Port

Cisco Catalyst 2950系列智能以

太网交换机是一个固定配置、可

堆叠的独立设备系列，提供了线

速快速以太网和千兆位以太网连接。为中型网络和城域接入应用

提供了智能服务。作为思科最为

廉价的交换产品系列，Cisco Catalyst 2950系列在网络或城域

接入边缘实现了智能服务

1.多层交换实验      

2.VLAN间路由实验

3.各类交换实验

　
9 Catalyst2900xl 12/24
10/100 Ethernet port		 Catalyst 2900 XL系列是网络产品领先厂商Cisco提供的一个全系列10/100自动感应快速以太网交换机，它具有卓越的性能、易于使用并集成了Cisco IOS软件

　

 1.VLAN配置实验

2.SPANTREE优化实验
3 RTR4500 2 Ethernet, 4 Synchronous Serial Cisco 4000 系列路由器定义了模块化路由器的标准, 提供了更大范围的连接特性以及更强的处理能力

1.各类路由协议实验

2.多层交换实验

　
5 RTR2611XM 2 Fast Ethernet
1 module solt
2 WIC slot
　		 Cisco 2600模块化多服务路由器系列可以满足企业分支机构现在和将来的需求。这款路由器配有灵活的LAN和WAN配置、多种先进的安全选项和高性能的处理器。Cisco 2600路由器还可以方便地扩展规模，从而实现无缝的升级，以适应未来网络拓展的需要

　

 1.各类路由协议实验
2.INTERVLAN 路由实验
3.HSRP实验
4.VOIP实验
5.支持SDM
5 RTR2600 1 Fast Ethernet,
2 Sync Serial,
1 Voice Module with FXS		 Cisco 2600系列的模块化体系结构能够提供适应网络技术变化所需的通用性。
Cisco 2600系列配置了强大的RISC处理器，能够支持当今不断发展的网络中所需的高级服务质量（QoS）、安全和网络集成特性

　

 1.各类路由协议实验
2.INTERVLAN 路由实验
3.HSRP实验
4.VOIP实验
　
2 RTR2501 1 Ethernet, 2 Synchronous Serial 2 Cisco 2500 系列路由器提供固定配置的局域网和广域网接口,为企业分支机构提供了集成化的本地及远程接入

1.各类路由协议实验

2.ISDN 实验

3. 异步连接实验

4. FRAME RELAY实验

　
4 RTR2503 1 Ethernet, 2 Synchronous Serial, 1 ISDN BRI S/T
6 RTR2514 2 Ethernet
2 Sync Serial
2 RTR2521 1 Token Ring, 2 Synchronous Serial, 2 Async Serial, 1 ISDN BRI S/T
2 RTR2513 1 Ethernet, 1 Token Ring, 2 Synchronous Serial
2 RTR2509 1 Ethernet, 2 Synchronous Serial, 1 SCSI for 1 octal cable 8 Asyn Serial
2 RTR1720 1 Fast Ethernet, 2 WAN Slot Cisco 1700系列模块化访问路由器为中小型企业和小型分支机构提供灵活、安全的访问解决方案
Cisco 1720支持传统的数据访问应用以及目前和未来的新广域网服务，包括VPN和宽带技术

1.各类路由实验
1 Wireless AP1242-AG 802.11a/b/g
　		 Cisco Aironet 1200系列接入点为安全的、可管理的、可靠的无线局域网（WLAN）树立了企业级标准，同时它还可以为向未来的高速无线LAN技术进行移植提供一条平稳的途径，从而提供了投资保护

　

 1.无线局域网实验
　
5 Wireless PI21AG

　


【中国思科培训网】- 思科(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 %>