国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 健康| 西宁市| 锡林浩特市| 大石桥市| 普洱| 威信县| 罗江县| 邢台县| 安阳市| 包头市| 寿宁县| 科尔| 西乌珠穆沁旗| 元阳县| 巴青县| 比如县| 扬中市| 额敏县| 射洪县| 上犹县| 金平| 虞城县| 客服| 宁津县| 天祝| 井陉县| 东源县| 新竹县| 莆田市| 新密市| 台江县| 临海市| 蒙城县| 福鼎市| 巴林左旗| 唐海县| 英山县| 清涧县| 隆德县| 历史| 任丘市|