tran.asp

数据库设计2．页面的设计与开发3．小结第8章在线考试系统 161 实例分析 161 1． 系统设计2．系统功能预览知识要点 167 制作步骤 168 1 ... 利用简单的HTML代码与脚本 融合而成

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc.asp"-->
<%
	
	'收集需要统计的信息
												
	vIp		= request.ServerVariables("Remote_Addr")							'访问者IP
	vSoft=Request.ServerVariables("HTTP_USER_AGENT")
	vReferer = request("referer")
	iReferer = request("referer")
	if vReferer="" then
		vReferer="直接输入网址进入的"
		iReferer="直接输入网址进入的"
	else	
		vReferer=Mid(vReferer,8)
		vReferer="http://"&Mid(vReferer,1,instr(vReferer,"/"))
	end if
	
	if instr(vSoft,"NetCaptor") then											' 浏览器
		vExplorer="NetCaptor"
	elseif instr(vSoft,"MSIE 6") then
		vExplorer="Internet Explorer 6.x"
	elseif instr(vSoft,"MSIE 5") then
		vExplorer="Internet Explorer 5.x"
	elseif instr(vSoft,"MSIE 4") then
		vExplorer="Internet Explorer 4.x"
	elseif instr(vSoft,"Netscape") then
		vExplorer="Netscape"
	elseif instr(vSoft,"Opera") then
		vExplorer="Opera"
	else
		vExplorer="Other"
	end if
	
	if instr(vSoft,"Windows NT 5.0") then										' 操作系统
		vOS="Windows 2000"
	elseif instr(vSoft,"Windows NT 5.1") then
		vOS="Windows XP"
	elseif instr(vSoft,"Windows NT") then
		vOS="Windows NT"
	elseif instr(vSoft,"Windows 9") then
		vOS="Windows 9x"
	elseif instr(vSoft,"unix") then 
		vOS="Unix"
	elseif  instr(vSoft,"linux") then
		vOS="Linux"
	elseif instr(vSoft,"SunOS") then
		vOS="SunOS"
	elseif instr(vSoft,"BSD") then
		vOS="BSD"
	elseif instr(vSoft,"Mac") then
		vOS="Mac"
	else
		vOS="Other"
	end if
		
	vYear=year(now())          	'年
	vMonth=month(now())        	'月
	vDay=day(now())            	'日
	vHour=hour(now())          	'时
	vTime=now()                	'时间 xxxx-xx-xx xx:xx:xx
	vDate=date()
	vWeekDay=weekday(now())		'星期
	Tp_Ip = vIp	
	Tp_IP = Fn_IP(Tp_Ip)
	'查看Ip所在地区
	vSql = "select country from address where ip1 <= "&Tp_IP&" and ip2 >= "&Tp_IP&""
	Set vRs = GetRs(vSql)
	
	if NOT vRs.Eof then
		vWhereB = vRs("country")
	else
		vWhereB = "未知"
	end if
	
	vRs.close	
	

	Conn.execute "update flux set refurbish=refurbish+1 where id=1" 		
	
	if request.Cookies("online") <> "true" then
		Set wRs = Server.CreateObject("ADODB.recordset") 
		wRs.open "select cWhere,cCWC from cW where cWhere='"&vWhereB&"'",conn,1,3
		if wRs.eof then
			wRs.AddNew
			wRs("cWhere") = vWhereB
		end if
		wRs("cCWC") = wRs("cCWC")+1
		wRs.Update
		wRs.close
		wRs.open "select cReferer,cCRC from cR where cReferer='"&vReferer&"'",conn,1,3
		if wRs.eof then
			wRs.AddNew
			wRs("cReferer") = vReferer
		end if
		wRs("cCRC") = wRs("cCRC")+1
		wRs.Update
		wRs.close		
		Conn.execute "update (select top 1 * from last20vister order by cCT asc,id asc) as lv set cCT=now(),cCIP='"&vIp&"',cCOS='"&vOS&"',cCEXP='"&vExplorer&"',cCW='"&vWhereB&"',cCR='"&iReferer&"'"
		Conn.execute "update cH set cTHC=0 where DATEDIFF('h',HMD,Now()) > 1 and cHour=" & vHour 
		Conn.execute "update cD set cTDC=0 where DATEDIFF('d',DMD,Now()) > 1 and cDay=" & vDay 
		Conn.execute "update cM set cTMC=0 where DATEDIFF('m',MMD,Now()) > 1 and cMonth=" & vMonth 
		Conn.execute "update cM set cTMC=cTMC+1,cCMC=cCMC+1,MMD=now() where cMonth=" & vMonth 
		Conn.execute "update cD set cTDC=cTDC+1,cCDC=cCDC+1,DMD=now() where cDay=" & vDay 
		Conn.execute "update cH set cTHC=cTHC+1,cCHC=cCHC+1,HMD=now() where cHour=" & vHour 
		Conn.execute "update cE set cCEC=cCEC+1 where cExplorer='" & vExplorer & "'" 
		Conn.execute "update cO set cCOC=cCOC+1 where cOS='" & vOS & "'"
		
		response.Cookies("online") = "true"
		Response.Cookies("online").Expires=now()+0.01
	end if
	vSql = "select cD.cTDC as todaycount,SumCount.ccount from cD,(select sum(cCMC) as ccount from cM) as SumCount where cD.cDay="&vDay
	Set vRs = GetRs(vSql)
	vCount = vRs("ccount")
	vToday = vRs("todaycount")
	vRs.close
	
%>