<% dim conn1,strconn dim totalHit,weekHit,dayHit Set conn1 = Server.CreateObject("ADODB.Connection") '创建 Connection Object对象连接数据库 strconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("inc/count.mdb") '定义将要被打开的Access数据库字符串 conn1.Open Strconn '打开数据库 addCount() '通过自定义函数addCount让计数器在每一次页面刷新的时候进行累加计数 getCount() '通过自定义函数getCount获取数据库中新的计数 function addCount() dim rs,sql Set rs= Server.CreateObject("ADODB.Recordset") '创建数据库记录集对象 sql="select totalHit from power" '用sql查询数据库指定的记录 rs.open sql,conn1,1,3 '打开记录集进行查询操作 rs("totalHit")=rs("totalHit")+1 '/总访问量累加 'if DateDiff("d",rs("lastWeekDt"),now)>7 then 'rs("weekHit")=1 'else 'rs("weekHit")=rs("weekHit")+1 'end if '条件判断当周记录字段中lastWeekDt与当前时间作比较超过一周时周访问量自动恢复为1，并记录当前日期到周记录字段中 ,否则就进行累加操作 'if DateDiff("d",rs("lastDt"),now)>1 then 'rs("dayHit")=1 'else 'rs("dayHit")=rs("dayHit")+1 'end if '条件判断当日记录字段中lastDt与当前时间作比较超过一天时日访问量自动恢复为1，并记录当前日期到日记录字段中,否则就进行累加操作 'rs("lastDt")=now() '即时记录当前时间为最后登入页面时间 rs.update '更新数据库记录 rs.close set rs=nothing '关闭数据库记录集对象 end function function getCount() dim rs,sql Set rs= Server.CreateObject("ADODB.Recordset") '创建数据库记录集对象 sql="select * from power" '用sql查询数据库指定的记录 rs.open sql,conn1,1,1 '打开记录集进行查询操作 totalHit=rs("totalHit") weekHit=rs("weekHit") dayHit=rs("dayHit") '分别把数据库中总访问量（totalHit）周访问量（weekHit）日访问量（dayHit）数据存放在变量totalHit、weekHit、dayHit当中 rs.close set rs=nothing '关闭数据库记录集对象 end function %>

80plus官方网站－－－－>>
	1>.有奖问答：答对所有题目将有机会享受半价购买相应电源：   1.酷冷高阶电源：RealPowerPro、UCP系列，质保期为( )年？ A.3       B.4      C.5   2.综合转换效率达( )才可通过80PLUS银牌认证？          A.87%     B.88%    C.90%   3.UCP900W输出峰值可达( )？                            A.900W    B.1050W  C.1080W   4.( )在台北国际电脑展中一举获得"Tom’s Hardware"最具创意产品奖？     A.UCP系列          B.RealPowerPro        C.Extreme Power     5.消耗完400W前提下,UCP700W一年（8小时/天、5天/周）可以为用户节省( )人民币？提示：请参考上面的实例     A.490元          B.563元        C.325元   6.个人信息:姓名 ，联系电话： ，E-mail:                           截止日期：2008年9月26号 ----------------------------------------------------------------------------------------------------------  2>.半价体验：限量20位、仅限于官方淘宝店购买.(08.9.26号止)                参与答题之用户，凭借确认邮件编号，经在线测试PC需求之电源型号，至酷冷官方淘宝店可以成交价之半价购买 此颗指定电源，并可享受一个月不满意无条件退货之特殊服务。----->马上测试
官方淘宝店   80PLUS简介   精品形象店查询   酷冷论坛 COPY RIGHT 2008 CoolerMaster(酷冷至尊）Co.,Ltd. All rights reserved.人气：<%=totalHit%>

<% conn1.close set conn1=nothing '关闭数据库连接 %>