当前页面位置: » 丰搜网 » 文档中心 » 详细内容
asp教程 - asp编写完整的ip所在地搜索类（二） -
'##################################################################
public connectionstring
public ipaddress
private dbconn '连接对象，模块级声明
'────────────────────────────────
' 类初始化
private sub class_initialize()
' 这里建立的是通过“数据转换--方法一”生成的mdb 库文件
connectionstring="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("wry.mdb")
ipaddress = getclientip()
set dbconn = openconnection()
end sub
'────────────────────────────────
' 类注销
private sub class_terminate()
connectionstring = null
ipaddress = null
dbconn.close
set dbconn = nothing
end sub
'────────────────────────────────
' 建立一个连接
private function openconnection()
dim tmpconn
set tmpconn=server.createobject("adodb.connection")
tmpconn.open connectionstring
set openconnection=tmpconn
set tmpconn=nothing
end function
'────────────────────────────────
' 执行一个sql命令，并返回一个数据集对象
private function sqlexecute(strsql)
dim rs
set rs=dbconn.execute(strsql)
set sqlexecute = rs
set rs=nothing
end function
'────────────────────────────────
'ip 效验
public function valid_ip(byval ip)
dim i
dim dot_count
dim test_octet
dim byte_check
ip = trim(ip)
' 确认ip长度
if len(ip) < &h08 then
valid_ip = false
'显示错误提示
exit function
end if
i = &h01
dot_count = &h00
for i = 1 to len(ip)
if mid(ip, i, &h01) = "." then
' 增加点的记数值
' 并且设置text_octet 值为空
dot_count = dot_count + &h01
test_octet = ""
if i = len(ip) then
' 如果点在结尾则ip效验失败
valid_ip = false
' 显示错误提示
exit function
end if
else
test_octet = test_octet & mid(ip, i, &h01)
' 使用错误屏蔽来检查数据段值的正确性
on error resume next
' 进行强制类型转换
' 如果转换失败就可通过检查err是否为真来确认
byte_check = cbyte(test_octet)
if (err) then
' 强制类型转换产生错误
' 所取段值的数据不为数值
' 或所取段值的数据长度大于&hff
' 则类型不为byte类型
' ip 地址的正确性为假
valid_ip = false
exit function
end if
end if
next
