<%@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教程

　
　

CCNA、CCNA培训、CCNA认证
　

ccna

CCNA

CCNP培训——CCNP认证介绍

【CCNP认证】表示通过认证的人员具有丰富的网络知识。获得CCNP认证的专业人员可以为具有100到500多个节点的大型企业网络安装、配置和运行LAN、WAN和拔号访问业务。

CCNP培训——CCNP考试介绍

参加【CCNP考试】前提是必须首先通过CCNA认证。CCNP考试从1998年设立以来经过多次更改，目前考取最新CCNP有两种途径：一是901+812+825+845，另外一种是892+825+845。

　

CCNP培训课程设置
CCNP认证(思科认证网络专业人员)表示通过认证的人员具有丰富的网络知识。获得CCNP认证的专业人员可以为具有100到500多个节点的大型企业网络安装、 配置和运行LAN、WAN和拔号访问业务。
　
CCNP 必备条件
必须先获取CCNA的证书
CCNP 考试 & 推荐CCNP培训课程(Register for Exams) ALERT
CCNP考试
642-901 BSCI
642-812 BCMSN
642-825 ISCW
642-845 ONT

推荐CCNP培训课程

Building Scalable Cisco Internetworks (BSCI)
Building Cisco Multilayer Switched Networks (BCMSN)
Implementing Secure Converged Wide Area Networks (ISCW)
Optimizing Converged Cisco Networks (ONT)

　　CCNP培训课程－ 构建可扩展的 Cisco 互联网络：BSCI

课程内容 实现EIGRP的运作
实现OSPF的多区域运作
描述集成的IS-IS路由协议
实现Cisco的IOS路由特性
实现企业级互联网服务提供商的BGP连接
实现组播路由转发
实现IPV6路由 

　　CCNP培训课程－ 构建Cisco的多层交换网络：BCMSN

课程内容 实现虚拟局域网
管理生成树协议在分层网络中的运行
实现VLAN间路由
实现网关冗余技术
描述和配置无线客户访问
描述和配置交换网络中的安全特性
配置语音技术

　　CCNP培训课程－ 实现广域网的安全聚合：ISCW

课程内容

实现基本的家庭电信接入服务
实现帧模式的多协议标签交换
实现站点到站点的IPSEC虚拟专网
描述网络安全策略
实现Cisco设备的硬件化安全
实现Cisco IOS 防火墙
描述和配置Cisco的入侵保护系统/入侵检测系统

　　CCNP培训课程－ 优化Cisco的网络聚合：ONT

课程内容

描述Cisco VOIP的实现
描述QOS的考虑
描述基于差别服务架构的QOS实现
实现自动化QOS
实现无线局域网的安全和管理

　

【哪些人需要获得CCNP认证】

  现在参加 CCNP 直达认证的主要有四类人员：

A. 大学生
面对激烈竞争，每个大学生都在为使自己在人才市场上脱颖而出而努力，多一张国际通行证无疑是为他们在就业及其他竞争中在同学中脱颖而出的法宝。

B. 欲转行网络业者
重新择业欲进入网络业，Cisco认证是互联网界具有极大声望的网络技能认证，获得Cisco认证无疑是入行网络业的敲门砖。

C. 出国留学移民者
在华人在欧美普遍不好找工作的情况下，Cisco认证是进入国外高薪行业IT业的法宝，而在国内学考Cisco认证，培训费、考试费都比国外便宜几倍，还避免了到国外参加培训计算机技术和语言的双重障碍

D. 网络专业技术人员
在中国，获得CCIE证书的工程师，平均年薪也不低于20万人民币，Cisco认证被恰当地称为"获得高技术，高薪水的头等舱船票"。

　


【中国思科培训网】应广大学员要求，推出【CCNP直达认证】，为大家提供了获得CCNP认证的捷径；全部课程从最基础的互联网络知识，逐步过渡到中高级技术，零基础即可学习；您无需具备CCNP证书，就可以参加我们CCNP培训计划，您可以在短期内晋升为Cisco资深网络专家！
　

CCNP、CCNP认证、CCNP培训报名：

培训考试报名电话:010-68345588
E-mail:service@ciscochina.com

CCIE培训报名

　


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