国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP調(diào)用純真IP庫實(shí)例_ASP教程

2024-05-04 11:04:24
字體:
供稿:網(wǎng)友

推薦:ASP實(shí)例:ASP實(shí)現(xiàn)空間的最近訪客
由于工作關(guān)系,在做一個(gè)用戶空間。要用到空間的最近訪客,見ASP代碼: % username=request.QueryString(username) '地欄中的username,就是自己的用戶名了 if trim(request.Cookies(user_name)) Then '首頁要判斷該訪問是否登陸,只有登陸的訪問才能記

做項(xiàng)目的時(shí)候遇到了ASP調(diào)用純真IP庫的問題,現(xiàn)在說一下解決方法
<%
' ============================================
' 返回IP信息 Disp_IPAddressData(IP,0)
' ============================================
Function Look_Ip(IP)
Dim Wry, IPType, QQWryVersion, IpCounter
' 設(shè)置類對(duì)象
Set Wry = New TQQWry
' 開始搜索,并返回搜索結(jié)果
' 您可以根據(jù) QQWry(IP) 返回值來判斷該IP地址在數(shù)據(jù)庫中是否存在,如果不存在可以執(zhí)行其他的一些操作
' 比如您自建一個(gè)數(shù)據(jù)庫作為追捕等,這里我就不詳細(xì)說明了
IPType = Wry.QQWry(IP)
' Country:國家地區(qū)字段
' LocalStr:省市及其他信息字段
Look_Ip =Wry.Country & "" & Wry.LocalStr
'''''Look_Ip = Wry.Country & ""
End Function
' ============================================
' 返回IP信息 JS調(diào)用
' ============================================
Function Disp_IPAddressData(IP, sType)
Dim Wry, IPType
Set Wry = New TQQWry
IPType = Wry.QQWry(IP)

Select Case sType
Case 1 Disp_IPAddressData = IP
Case 2 Disp_IPAddressData = Wry.Country
Case 3 Disp_IPAddressData = Wry.LocalStr
'Case Else Disp_IPAddressData = Wry.Country & "" & Wry.LocalStr
Case Else Disp_IPAddressData = Wry.Country
End Select
End Function
' ============================================
' 返回QQWry信息
' ============================================
Function WryInfo()
Dim Wry, IPType, QQWry_tem(0), QQWry_tem1(1)
' 設(shè)置類對(duì)象
Set Wry = New TQQWry
IPType = Wry.QQWry("255.255.255.254")
' 讀取數(shù)據(jù)庫版本信息
QQWry_tem(0) = Wry.Country & " " & Wry.LocalStr
' 讀取數(shù)據(jù)庫IP地址數(shù)目
QQWry_tem1(1) = Wry.RecordCount + 1
WryInfo = QQWry_tem(0)& " " & QQWry_tem1(1)
End Function

分享:

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 宁波市| 和政县| 塘沽区| 卢龙县| 海伦市| 清涧县| 封开县| 报价| 大悟县| 乌鲁木齐县| 松江区| 晋宁县| 郸城县| 馆陶县| 金塔县| 新闻| 清苑县| 禄丰县| 南充市| 揭西县| 巴东县| 赤峰市| 来安县| 黔东| 南部县| 金秀| 阳朔县| 漠河县| 泽库县| 文安县| 石家庄市| 讷河市| 信阳市| 潜江市| 余庆县| 红安县| 元江| 湖口县| 横山县| 卓尼县| 新宾|