<%@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认证、CCNA培训课程介绍

CCNA培训课程名称：Interconnecting Cisco Network Devices (ICND) v2.0　互联Cisco网络设备V2.0

CCNA培训学员基础：非专业英语三级以上，一般电脑操作

CCNA培训学员对象：网络工程师、网络管理员、网络集成商。

ccna

CCNA

CCNA培训——CCNA认证介绍

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

CCNA培训——CCNA考试介绍

【CCNA考试】经历了多次的升级，从最早1998年起设立的CCNA考试640-407改为640-507（2000年8月起生效），2002年4月又更改为640-607，2003年9月份改为640-801，2007年11月份又改为现在的640-802.
　

　

CCNA课程
　
　　CCNA证书说明了你拥有一定的网络知识去提供服务给中小型企业。作为CCNA的专业人才将能够安装，调试和运作局域网(LAN)，广域网(WAN)，和拨号网络服务给小型网络(一般来说100个节点或更少).同时能够操作IP；IGRP；IPX；Serial；AppleTalk；Frame Relay；IP RIP；VLANs；RIP；Ethernet；Access List等网络协议。
　
参加CCNA培训必备条件
CCNA考试 & 推荐CCNA培训课程
考试
(考试号 640-802)
 Cisco Certified Network Associate Basics
Interconnecting Cisco Network Devices
CCNA 重新认证
CCNA认证证书的时效性是三年。要重新更新证书,必须通过目前的CCNA考试(如果通过的下一阶段CCNP的考试,CCNA认证证书会被自动更新)

　　CCNA培训课程：ICND （Interconnecting Cisco Network Devices）互联CISCO网络设备

预备知识

   CCNA学员必须具备基本的网络概念，并且接触过IP和IPX网络，最好具有实际网络工作经验。详细的预备知识包括对如下内容的基本了解： 基本的网络设备（例如集线器、网桥、路由器、交换机) 二进制和十六进制的运算及与十进制数字转换( 建议掌握 )
  OSI网络模型

课程介绍

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

课程内容   　　基础网络理论 ;
 OSI models、Standards、ProtocolRouting concepts;
 　　cisco设备操作;
 　　Device lnfrastucture、Operation command、Device maintaining;
 　　局域网的基础实现;
 　　广域网的构建;
 　　学习城域网的构建.理解WLAN和选择适合的WLAN管理工作：

描述无线介质 （IEEE WI-FI， ITU/FCC）

辨认和描述以下小型无线网络成分：（包括：SSID， BSS， ESS）

知道配置无线网络的基本参数，使可以连接正确的无线接入点

比较和区分无线安全方案，知道WPA1/2， WEP， OPEN 的特性

知道实现无线网络的常见问题（包括：信号干扰，错误的配置)

　

　
【CCNA市场需求】
  


绝大多数考生选择CCNA＋CCNP认证或CCIE直达认证，希望在激烈的市场竞争中领先一步，脱颖而出．

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 %>