|
| 网站首页 | 中心简介 | 新闻动态 | 图片浏览 | 专家介绍 | 知识园区 | 精彩视频 | 情趣测试 | 情感驿站 | 在线留言 | 站内下载 | 本站论坛 |
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |
版权声明 | 关于我们 | 网站管理 | 会员注册 | 超级搜索 | 网站帮助 备 建站时间：2006-11-11 技术支持：03级教育技术班 志元 Copyright © 2006-2007 大学生性与生殖健康教育咨询服务中心。站长：王红枫 徐明 |
|
| <% function todays() dim tmprs tmprs=conn.execute("Select Count(bookID) from shop_books Where year(adddate)=year(date()) and month(adddate)=month(date()) and day(adddate)=day(date())") todays=tmprs(0) set tmprs=nothing if isnull(todays) then todays=0 end function %> <% if session("over")="" then jsqtoday=1 if application("dntime")<=cint(hour(time())) then conn.execute("update dept set jsqtoday=jsqtoday+1") tmprs=conn.execute("Select jsqtoday from dept") jsqtoday=tmprs(0) else conn.execute("update dept set jsqtoday=1") tmprs=conn.execute("Select jsqtoday from dept") jsqtoday=tmprs(0) end if application("dntime")=cint(hour(time())) set tmprs=nothing conn.execute("update dept set jsq=jsq+1") tmprs=conn.execute("Select jsq from dept") jsq=tmprs(0) set tmprs=nothing session("over")=true else jsqtoday=1 tmprs=conn.execute("Select jsqtoday from dept") jsqtoday=tmprs(0) tmprs=conn.execute("Select jsq from dept") jsq=tmprs(0) set tmprs=nothing end if %> ○- 今日访问：113 ○- 访问总数：217485 | |
