<%
	Application("CN_ConnectionString") = "DSN=project_sony;UID=sa;PWD=aswsdbs9"
	Application("CN_ConnectionTimeout") = 15
	Application("CN_CommandTimeout") = 30
	Application("CN_CursorLocation") = 3
	Application("CN_RuntimeUserName") = "sa"
	Application("CN_RuntimePassword") = "aswsdbs9"

Response.Expires = 0

vpage=Request.ServerVariables("HTTP_REFERER")
if right(vpage,1)="/" then vpage=left(vpage,len(vpage)-1)

vpage = replace(vpage, "http://61.152.250.136/testing/", "")
vpage = replace(vpage, "http://www.trio-design.com/testing/", "")
vpage = replace(vpage, "http://trio-design.com/testing/", "")

if vpage = "" Then
vpage = "Other"
End if


'vcome=Request("referer")
'if right(vcome,1)="/" then vcome=left(vcome,len(vcome)-1)

strChNo=vpage

'strChNo=Request.ServerVariables("SCRIPT_NAME")
vip=Request.ServerVariables("Remote_Addr")
thesoft=Request.ServerVariables("HTTP_USER_AGENT")
' 浏览器
if instr(thesoft,"NetCaptor") then
	vsoft="NetCaptor"
elseif instr(thesoft,"MSIE 6") then
	vsoft="MSIE 6.x"
elseif instr(thesoft,"MSIE 5") then
	vsoft="MSIE 5.x"
elseif instr(thesoft,"MSIE 4") then
	vsoft="MSIE 4.x"
elseif instr(thesoft,"Netscape") then
	vsoft="Netscape"
elseif instr(thesoft,"Opera") then
	vsoft="Opera"
else
	vsoft="Other"
end if
' 操作系统
if instr(thesoft,"Windows NT 5.0") then
	vOS="Win 2000"
elseif instr(thesoft,"Windows NT 5.1") then
	vOs="Win XP"
elseif instr(thesoft,"Windows NT") then
	vOs="Win NT"
elseif instr(thesoft,"Windows 9") then
	vOs="Win 9x"
elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then
	vOs="类Unix"
elseif instr(thesoft,"Mac") then
	vOs="Mac"
else
	vOs="Other"
end if
'On Error Resume Next

CreateDBcn=true

Set Conn=server.CreateObject("adodb.Connection")
Conn.Open Application("CN_ConnectionString"),Application("CN_RuntimeUserName"),Application("CN_RuntimePassword")
'Conn.execute "insert cmcc_travel_count (ChannelName, LogCount, ip, agent) values('" & strChNo & "','" & Cint("1") & "','" & vip & "','" & vsoft & "')"
Conn.execute "insert cmcc_bzb_count (pName, vcount, vip, vsoft, vos) values('" & strChNo & "','" & Cint("1") & "','" & vip & "','" & vsoft & "'" & ", '" & vOs & "')"
'Response.write("insert cmcc_travel_count (chNo, vcount, vip, vsoft, vos) values('" & strChNo & "','" & Cint("1") & "','" & vip & "','" & vsoft & "'" & ", '" & vOs & "')")

Conn.close
Set Conn=nothing

Response.Write "document.write(" & chr(34) & "" & chr(34) & ")"

%>