ip.asp

嘉缘人才6.0精简 ,很好用的人才系统

<%
Dim IPDatabase,IPConn, IPConnStr
IPDatabase = "database/AddressIp.mdb"      'ACCESS数据库的文件名

On Error Resume Next
IPConnStr = "DBQ=" + Server.MapPath(Add_Root_Dir(IPDatabase)) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
IPConnStr = "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath(Add_Root_Dir(IPDatabase))
Set IPConn = Server.CreateObject("Adodb.Connection")
    IPConn.open IPConnStr
    If Err Then
        Err.Clear
        Set IPConn = Nothing
    End If
Function IPhideoneAddress(Str)
On Error Resume Next
'IPhideoneAddress=Str
If IsNull(Str) Or Str="" Then Exit Function

Dim IPStr,ClngStr,IPRs,IPSql
	IPStr=Split(Str, ".")
	IPhideoneAddress=IPStr(0)&"."&IPStr(1)&"."&IPStr(2)&".*"
	ClngStr=CLngIP(Str)
	Set IPRs= Server.CreateObject("ADODB.RecordSet")
	IPSql="Select * From Address Where (StarIP="&ClngStr&" or StarIP<"&ClngStr&") and (EndIP="&ClngStr&" or EndIP>"&ClngStr&")"
	IPRs.open IPSql,IPConn,1,1
	If not IPRs.eof then
	IPhideoneAddress=IPhideoneAddress&" "&IPRs("Country")&IPRs("City")
	End If
	IPRs.close
	Set IPRs=Nothing
End Function

Function IPAddress(Str)
On Error Resume Next
If IsNull(Str) Or Str="" Then Exit Function
IPAddress=Str
Dim IPStr,ClngStr,IPRs,IPSql
	'IPStr=Split(Str, ".")
	'IPAddress=IPStr(0)&"."&IPStr(1)&"."&IPStr(2)&".*"
	ClngStr=CLngIP(Str)
	Set IPRs= Server.CreateObject("ADODB.RecordSet")
	IPSql="Select * From Address Where (StarIP="&ClngStr&" or StarIP<"&ClngStr&") and (EndIP="&ClngStr&" or EndIP>"&ClngStr&")"
	IPRs.open IPSql,IPConn,1,1
	If not IPRs.eof then
	IPAddress=IPAddress&" "&IPRs("Country")&IPRs("City")
	End If
	IPRs.close
	Set IPRs=Nothing
End Function
%>