<!--#include file="../conn/conn_other.asp"-->
<%
	Dim IP_address,IP_rs,CIP,IP_province,IP_city,rs,IP_py										'如果是SQL Server数据库，此项留空
	ip_address=Request.ServerVariables("REMOTE_ADDR")						'获取客户端IP地址
	
	Function GetRegion()
		If Request.Cookies("sonrun")("IP_province")&""<>"" And Request.Cookies("sonrun")("IP_city")&""<>"" And Request.Cookies("sonrun")("IP_py")&""<>""  Then
			IP_province=Request.Cookies("sonrun")("IP_province")
			IP_city=Request.Cookies("sonrun")("IP_city")
			IP_py=Request.Cookies("sonrun")("IP_py")
		Else
			Call SelectData()
			Response.Cookies("sonrun")("IP_province")=IP_province
			Response.Cookies("sonrun")("IP_city")=IP_city
			Response.Cookies("sonrun")("IP_py")=IP_py
			Response.Cookies("sonrun").Expires=Date+1
		End If
	End Function
	
	Function IP2Num(IP)	'将IP转换为数字格式
		Dim IPArr   
		IPArr=Split(IP,".")
		IP2Num=Int(IPArr(0))*256*256*256+Int(IPArr(1))*256*256+Int(IPArr(2))*256+Int(IPArr(3))
	End	Function
	
	Function SelectData()
		If ip_address<>"" Then
			CIP=IP2Num(ip_address)
			Set IP_rs=IP_conn.Execute("select top 1 city,province from ip_address where "&CIP&">=ip1 and "&CIP&"<=ip2 order by id desc")
			If IP_rs.Eof Then
				IP_province="北京"
				IP_city="北京"
				IP_py="bj"
			Else
				IP_province=IP_rs(1)
				IP_city=IP_rs(0)
				Set rs=IP_conn.Execute("select pinyin from ip_city where city='"&IP_city&"'")
				IP_py=rs(0)
				rs.Close
				Set rs=Nothing
			End if
			IP_rs.Close
			Set IP_rs=Nothing
			IP_conn.Close
			Set IP_conn=Nothing
		Else
			IP_province="北京"
			IP_city="北京"
		End If
	End Function
%>