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

　
　

 
CISCO(思科)培训、CCNA培训、CCNP培训、CCIE培训权威机构

【Cisco(思科)认证】是互联网界有最高声望的网络技能认证，是各大IT企业招聘员工的优先选择条件；其拥有者在全球各地享有相关学业免学分的待遇； 在北美一些国家可以作为外来移民技术评估标准。其中CCIE更是互联网界的权威标志。

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

Cisco认证 -- CCIE认证

 Cisco认证 -- CCNP认证

 Cisco认证 -- CCNA认证


思科Cisco系统公司（Cisco Systems Inc.）是全球领先的互联网解决方案供应商。其解决方案是世界各地成千上万公司、大学、企业和政府部门建立网间网的基础，用户遍及电信、金融、服务、零售等行业，以及政府和教育机构。自1986年思科第一台路由器面市以来，有他们提供网络互联解决方案，创造了快捷有效的信息交换途径，降低了用户开销，提供了工作效率。

cisco认证

 思科认证

Cisco认证可确保高标准的专业技术水平。获得任何级别的Cisco认证均意味着加入得到业界认可和尊敬的熟练网络专业人士的行列。
　
CISCO认证是互联网界的权威认证，其中尤以CCIE认证受到广泛推崇。

Cisco认证 - CCIE简介
Cisco CCIE全称Cisco Certified Internetwork Expert - Cisco认证互连网络专家。
CCIE(Cisco Certified Internetwork Expert )是Cisco认证体系中的最高水平认证在IT界，CCIE被普遍认可为网络技术领域内的尖端人才。
CISCO CCIE
CCIE考试

参加CCIE考试前并不需要获得Cisco的其他证书，但必须通过笔试后（也就是常说的CCIE writer）才能参加Cisco试验室操作考试（CCIE lab）。
CCIE的考试分笔试和实验两部分，笔试称为Qualification exam,即资格考试，顾名思义，必须通过了笔试部分的考试，才能参加实验部分的考试. 目前中国只能考Routing & Switching的实验.

截止到2002年9月30日，全球共8578名CCIE,这里不包括那些inactive的。其中中国大陆共554名。 国内IE数量在338位。

大家可以从这个网址查阅最新ccie数量。

  □ 查看CCIE直达认证－课程与服务。

  □ 如有其他问题，请进入在线咨询台

　
CISCO认证(CCNP)

Cisco认证 - CCNP简介
Cisco CCNP认证(思科认证网络专业人员)表示通过认证的人员具有丰富的网络知识。
获得CCNP认证的专业人员可以为具有100到500多个节点的大型企业网络安装、
配置和运行LAN、WAN和拔号访问业务。他们可以使用的协议包括（但不
限于）IP, IGRP, IPX, Async Routing, AppleTalk,
Extended Access Lists Route, IP RIP,Redistribution, RIP,
Route Summarization,OSPF, VLSM, BGP, Serial, Frame Relay,ISDN,
ISL, X.25, DDR,PSTN, PPP, VLAN, Ethernet, Access Lists, 802.10,
FDDI, Transparent 和Translational Bridging.

Cisco认证 - CCNP考试

考取Cisco认证重点地CCNP认证的前提是必须首先通过CCNA认证．CCNP考试提纲经过多次更改，目前考取最新CCNP有两种途径： 一是901+604+605+606 另外一种是841+606.

  □ 查看CCNP直达认证－课程与服务。

  □ 如有其他问题，请进入在线咨询台

　
CISCO认证(CCNA)

Cisco认证 - CCNA简介
Cisco CCNA(Cisco Certified Network Associate)是Cisco售后工程师认证体系的入门认证
也是Cisco认证中级别最低的技术认证；
通过CCNA，可证明你已掌握网络的基本知识，并能初步安装、配置和操作
Cisco路由器、交换机及简单的LAN和WAN。

Cisco认证 - CCNA考试

CCNA近期大幅度更新考试系统，与以往每三年例行更新系统不同的是，此次考试内容将会做出较大调整。CCNA考试将把原来属于CCNP（思科认证资深网络工程师）的一部分内容增加进来。这其中，除了去掉原来不适用的部分课程以外，最重要的是将原来CCNP要求的内容，如OSPF（一种路由协议）、EIGRP（一种路由协议）、VLSM（可变长度的子网掩码）以及NAT（网络地址翻译）等加入到CCNA的学习和认证要求中。
思科认为，本次课程内容及考试内容作如此大变动主要有两方面的原因：
外部原因 － 目前IT业对CCNA人才提出了更高的要求，此举可以提高思科学员的市场竞争力；
内部原因 － 面对试题外泄的问题，考试提供者要不定时更新题库。

  □ 查看CCNA直达认证－课程与服务。

  □ 如有其他问题，请进入在线咨询台
　

　
  


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