look.asp

asp开发 asp开发 asp开发 asp开发

<%
Function cacuIp(sIP)
	On Error Resume Next
	srIp = 0
	aIp = Split(sIP,".")
	If UBound(aIP) <> 3 Then
		cacuIP = 0
		Exit Function
	End If
	For i = 0 To 3
		srIp = srIp + (CInt(aIP(i)) * (256^(3 - i)))
	Next
	cacuIp = srIp - 1
	If Err Then cacuIp = 0
End Function 
'直接取IP地址
'sIp = Request.ServerVariables("REMOTE_ADDR") 
If Request("IP") <> "" Then
	Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &_
		Server.Mappath("IPaddress.mdb")

	iIp = cacuIp(Request("IP"))
	strSQL = "SELECT country,city FROM dv_address WHERE ip1<=" &_
		iIp & " AND ip2>=" & iIp
	Set rsCnt = conn.Execute ( strSQL )
	If rsCnt.Eof Then
		sPlace = "[其它]"
	Else
		sPlace = rsCnt(0) & " " & rsCnt(1)
	End If
	Set rsCnt = Nothing
	Response.Write "你的IP所在地为：" & sPlace
End If
%>
<FORM NAME="FORM" ACTION="look.asp" METHOD="POST">
	<INPUT TYPE="TEXT" NAME="IP" VALUE="<%=Request("IP")%>" ><BR>
	<INPUT TYPE="SUBMIT" NAME="SUBMIT" VALUE="计算">
</FORM>