<% if session("count")="" then sqltext="update [syswork] set querycount=querycount+1 where code=101" cn.execute(sqltext) rs.Open "webcount",cn,3,3 rs.AddNew rs("countip")=Request.ServerVariables("REMOTE_ADDR") rs("countdate")=now() rs.Update rs.Close session("count")=1 end if %>

<%if mid(menu,1,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> <%if mid(menu,2,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> <%if mid(menu,3,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> <%if mid(menu,4,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> <%if mid(menu,5,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> <%if mid(menu,6,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> <%if mid(menu,7,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> <%if mid(menu,8,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> <%if mid(menu,9,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> <%if mid(menu,10,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> <%if mid(menu,11,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> <%if mid(menu,12,1)="1" then fontcolor="#ffcc00" else fontcolor="#ffffff" end if %> 首页 最新动态 教育动态 自学考试 成人高考 日语专区 计算机 英语 历史试题 短期培训 学员服务 在线论坛

新闻中心	学习园地	文学博览	资料下载	个人日记	在线留言	跳蚤市场	网站建设	考试书店
娱乐中心	摄影中心	图片中心	音乐点歌	精彩电影	网络电视	电子地图	许愿哟哟	天气预报