纯ASP(VBscript)写的全球IP地址搜索程序
2018-09-06 12:00
<%@LANGUAGE=VBSCRIPT CODEPAGE=936%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
</head>
<body>
<%
dim finishgetip,showip,allip
/////////////////////////////////////////////////////////
程序还不是很精简，以后再修改
本程序所用的数据库为-- “冯志宏”-- 所写的--“追捕”--软件中所带IP数据库和
“国华软件 Guohua Soft”的作者 --“冯国华”—所写的“全球IP地址分配表.chm”合二为一得到的
感谢“冯志宏”和“冯国华”提供的数据
数据库中还有不少的重复IP地址，希望有心人能将其删除，减小数据库
我的程序写的还很笨拙，希望大家能多提意见，多多交流，谢谢！
///////////////////////////////////////////////////////////
取得的客户端IP一般是202.11.25.1这种，而数据库中的IP格式为202.011.025.001,这就需要将取得的
客户端IP转换为与数据库中IP一样的格式
因为目前我们所用的IP是分为4段，每段3位，中间以“.”分隔
所以我的思路是将客户端IP以“.”符号分割为4段,即202/11/25/1
然后再分别核对每一段，如果是3位，则不变；如不足3位，为2位，该段前补1个0，为1，同理，则补2个0
得到格式化后的IP后，去掉IP的最后一段，即取包括“.”的前11位，与数据库中的startip字段的前11位相比较，查找相同的值
因为从数据库中可以看到，startip和endip的前三段都是一样的，而最后一段不过是内部子网地址，可以去掉
所以只要取startip或endip的任意一个字段的前11位与客户端IP的前11位相比较就可以查到正确的所在地
///////////////////////////////////////////////////////////////
function checkip_trueip()
取客户端真实IP
getclientip = Request.ServerVariables(HTTP_X_FORWARDED_FOR) 如果客户端用了代理服务器，则用Request.ServerVariables(REMOTE_ADDR)方法只能得到空值,则应该用ServerVariables(HTTP_X_FORWARDED_FOR)方法
If getclientip = Then
getclientip = Request.ServerVariables(REMOTE_ADDR)如果客户端没用代理，则Request.ServerVariables(HTTP_X_FORWARDED_FOR)得到是空值，应该用Request.ServerVariables(REMOTE_ADDR)方法
end if
checkip_trueip = getclientip
end function
/////////////////////////////////////////////////////////
function getaccess(小型网站之最爱)recordset(db,sql,mark,read)取得Recordset对象
set conn=getaccess(小型网站之最爱)conn(db)输入参数为db-数据库的相对路径，sql-SQL语句，mark,read为数据库读取方式，1,1为只读,1,3为读写
constr=Provider=microsoft.jet.oledb.4.0;data Source=Server.MapPath(db)
conn.open constr
set getaccess(小型网站之最爱)recordset=server.CreateObject(ADODB.Recordset)
getaccess(小型网站之最爱)recordset.open sql,conn,mark,read
End function
////////////////////////////////////////////////////////////
function getaccess(小型网站之最爱)conn(db)取得connection对象
set getaccess(小型网站之最爱)
constr=DRIVER={MICROSOFT access(小型网站之最爱) DRIVER (*.MDB)};DBQ=SERVER.MAPPATH(allcon/#bbsall.mdb)
constr=Provider=microsoft.jet.oledb.4.0;data Source=Server.MapPath(db)
getaccess(小型网站之最爱)conn.open constr
上一篇：asp动态页面防采集的新方法