Asp读取调用纯真IP数据库
作者:admin 日期:2013-09-23
- <%
- '文件名:ip.asp 与QQwry.dat放在一个文件夹下面
- '使用:在要用到的查询ip的asp页面中最前面加入<!--#include file = "ip.asp"-->
- '然后可以用address(getIP())获得请求的地理位置
- '=========================================================
- ' IP物理定位搜索类 Version 3.0.0
- ' QQWry.DAT 利用程序 修改自互联网流传代码
- ' 本类在ASP环境中使用纯真版QQWry.dat通过完美测试
- ' 如果您的服务器环境不支持ADodb.Stream,将无法使用此程序
- ' 推荐使用纯真数据库,更新也方便
- ' ========================================================
- ' ============================================
- ' 返回IP信息
- ' 如address("127.0.0.1")
- ' 返回值为:"本机地址 CZ88.NET"
- ' ============================================
- Function address(sip)
- Dim Wry, IPType
- Set Wry = New TQQWry
- IPType = Wry.QQWry(sip)
- address=""&Wry.Country & " " & Wry.LocalStr &""
- End Function
- '获得请求的实际IP地址
- Function getIP()
- Dim strIPAddr
- If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
- strIPAddr = Request.ServerVariables("REMOTE_ADDR")
- ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
- strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
- ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
- strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
- Else
- strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
- End If
- getIP = Trim(Mid(strIPAddr, 1, 30))
- End Function
- Function Look_Ip(IP)
- Dim Wry, IPType, QQWryVersion, IpCounter
- ' 设置类对象
- Set Wry = New TQQWry
- ' 开始搜索,并返回搜索结果
- ' 您可以根据 QQWry(IP) 返回值来判断该IP地址在数据库中是否存在,如果不存在可以执行其他的一些操作
- ' 比如您自建一个数据库作为追捕等,这里我就不详细说明了
- IPType = Wry.QQWry(IP)
- ' Country:国家地区字段
- ' LocalStr:省市及其他信息字段
- Look_Ip = Wry.Country & " " & Wry.LocalStr
- End Function
- ' ============================================
- ' 返回IP信息 JS调用
- ' ============================================
- Function GetIpInfoAv(IP, sType)
- Dim Wry, IPType
- Set Wry = New TQQWry
- IPType = Wry.QQWry(IP)
- Select Case sType
- Case 1 GetIpInfoAv = "document.write(""" & IP & """);"
- Case 2 GetIpInfoAv = "document.write(""" & Wry.Country & """);"
- Case 3 GetIpInfoAv = "document.write(""" & Wry.LocalStr & """);"
- Case Else GetIpInfoAv = "document.write(""您来自:" & IP & " 所在区域:" & Wry.Country & " " & Wry.LocalStr & """);"
- End Select
- End Function
- ' ============================================
- ' 返回QQWry信息
- ' ============================================
- Function WryInfo()
- Dim Wry, IPType, QQWry(1)
- ' 设置类对象
- Set Wry = New TQQWry
- IPType = Wry.QQWry("255.255.255.255")
- ' 读取数据库版本信息
- QQWry(0) = Wry.Country & " " & Wry.LocalStr
- ' 读取数据库IP地址数目
- QQWry(1) = Wry.RecordCount + 1
- WryInfo = QQWry
- End Function
- ' ============================================
- ' 爱雪儿IP物理定位搜索类
- ' ============================================
- Class TQQWry
- ' ============================================
- ' 变量声名
- ' ============================================
- Dim Country, LocalStr, Buf, OffSet
- Private StartIP, EndIP, CountryFlag
- Public QQWryFile
- Public FirstStartIP, LastStartIP, RecordCount
- Private Stream, EndIPOff
- ' ============================================
- ' 类模块初始化
- ' ============================================
- Private Sub Class_Initialize
- Country = ""
- LocalStr = ""
- StartIP = 0
- EndIP = 0
- CountryFlag = 0
- FirstStartIP = 0
- LastStartIP = 0
- EndIPOff = 0
- QQWryFile = Server.MapPath("QQWry.dat") 'QQ IP库路径,要转换成物理路径
- End Sub
- ' ============================================
- ' IP地址转换成整数
- ' ============================================
- Function IPToInt(IP)
- Dim IPArray, i
- IPArray = Split(IP, ".", -1)
- FOr i = 0 to 3
- If Not IsNumeric(IPArray(i)) Then IPArray(i) = 0
- If CInt(IPArray(i)) < 0 Then IPArray(i) = Abs(CInt(IPArray(i)))
- If CInt(IPArray(i)) > 255 Then IPArray(i) = 255
- Next
- IPToInt = (CInt(IPArray(0))*256*256*256) + (CInt(IPArray(1))*256*256) + (CInt(IPArray(2))*256) + CInt(IPArray(3))
- End Function
- ' ============================================
- ' 整数逆转IP地址
- ' ============================================
- Function IntToIP(IntValue)
- p4 = IntValue - Fix(IntValue/256)*256
- IntValue = (IntValue-p4)/256
- p3 = IntValue - Fix(IntValue/256)*256
- IntValue = (IntValue-p3)/256
- p2 = IntValue - Fix(IntValue/256)*256
- IntValue = (IntValue - p2)/256
- p1 = IntValue
- IntToIP = Cstr(p1) & "." & Cstr(p2) & "." & Cstr(p3) & "." & Cstr(p4)
- End Function
- ' ============================================
- ' 获取开始IP位置
- ' ============================================
- Private Function GetStartIP(RecNo)
- OffSet = FirstStartIP + RecNo * 7
- Stream.Position = OffSet
- Buf = Stream.Read(7)
- EndIPOff = AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1))*256) + (AscB(MidB(Buf, 7, 1))*256*256)
- StartIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
- GetStartIP = StartIP
- End Function
- ' ============================================
- ' 获取结束IP位置
- ' ============================================
- Private Function GetEndIP()
- Stream.Position = EndIPOff
- Buf = Stream.Read(5)
- EndIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
- CountryFlag = AscB(MidB(Buf, 5, 1))
- GetEndIP = EndIP
- End Function
- ' ============================================
- ' 获取地域信息,包含国家和和省市
- ' ============================================
- Private Sub GetCountry(IP)
- If (CountryFlag = 1 Or CountryFlag = 2) Then
- Country = GetFlagStr(EndIPOff + 4)
- If CountryFlag = 1 Then
- LocalStr = GetFlagStr(Stream.Position)
- ' 以下用来获取数据库版本信息
- If IP >= IPToInt("255.255.255.0") And IP <= IPToInt("255.255.255.255") Then
- LocalStr = GetFlagStr(EndIPOff + 21)
- Country = GetFlagStr(EndIPOff + 12)
- End If
- Else
- LocalStr = GetFlagStr(EndIPOff + 8)
- End If
- Else
- Country = GetFlagStr(EndIPOff + 4)
- LocalStr = GetFlagStr(Stream.Position)
- End If
- ' 过滤数据库中的无用信息
- Country = Trim(Country)
- LocalStr = Trim(LocalStr)
- If InStr(Country, "CZ88.NET") Then Country = "114XP.CN"
- If InStr(LocalStr, "CZ88.NET") Then LocalStr = "114XP.CN"
- End Sub
- ' ============================================
- ' 获取IP地址标识符
- ' ============================================
- Private Function GetFlagStr(OffSet)
- Dim Flag
- Flag = 0
- Do While (True)
- Stream.Position = OffSet
- Flag = AscB(Stream.Read(1))
- If(Flag = 1 Or Flag = 2 ) Then
- Buf = Stream.Read(3)
- If (Flag = 2 ) Then
- CountryFlag = 2
- EndIPOff = OffSet - 4
- End If
- OffSet = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256)
- Else
- Exit Do
- End If
- Loop
- If (OffSet < 12 ) Then
- GetFlagStr = ""
- Else
- Stream.Position = OffSet
- GetFlagStr = GetStr()
- End If
- End Function
- ' ============================================
- ' 获取字串信息
- ' ============================================
- Private Function GetStr()
- Dim c
- GetStr = ""
- Do While (True)
- c = AscB(Stream.Read(1))
- If (c = 0) Then Exit Do
- '如果是双字节,就进行高字节在结合低字节合成一个字符
- If c > 127 Then
- If Stream.EOS Then Exit Do
- GetStr = GetStr & Chr(AscW(ChrB(AscB(Stream.Read(1))) & ChrB(C)))
- Else
- GetStr = GetStr & Chr(c)
- End If
- Loop
- End Function
- ' ============================================
- ' 核心函数,执行IP搜索
- ' ============================================
- Public Function QQWry(DotIP)
- Dim IP, nRet
- Dim RangB, RangE, RecNo
- IP = IPToInt (DotIP)
- Set Stream = CreateObject("ADodb.Stream")
- Stream.Mode = 3
- Stream.Type = 1
- Stream.Open
- Stream.LoadFromFile QQWryFile
- Stream.Position = 0
- Buf = Stream.Read(8)
- FirstStartIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
- LastStartIP = AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1))*256) + (AscB(MidB(Buf, 7, 1))*256*256) + (AscB(MidB(Buf, 8, 1))*256*256*256)
- RecordCount = Int((LastStartIP - FirstStartIP)/7)
- ' 在数据库中找不到任何IP地址
- If (RecordCount <= 1) Then
- Country = "未知"
- QQWry = 2
- Exit Function
- End If
- RangB = 0
- RangE = RecordCount
- Do While (RangB < (RangE - 1))
- RecNo = Int((RangB + RangE)/2)
- Call GetStartIP (RecNo)
- If (IP = StartIP) Then
- RangB = RecNo
- Exit Do
- End If
- If (IP > StartIP) Then
- RangB = RecNo
- Else
- RangE = RecNo
- End If
- Loop
- Call GetStartIP(RangB)
- Call GetEndIP()
- If (StartIP <= IP) And ( EndIP >= IP) Then
- ' 没有找到
- nRet = 0
- Else
- ' 正常
- nRet = 3
- End If
- Call GetCountry(IP)
- QQWry = nRet
- End Function
- ' ============================================
- ' 类终结
- ' ============================================
- Private Sub Class_Terminate
- On ErrOr Resume Next
- Stream.Close
- If Err Then Err.Clear
- Set Stream = Nothing
- End Sub
- End Class
- %>
Asp截取中文字符
作者:admin 日期:2013-09-21
- Function GetStringLength(txt,length)
- dim i
- i=1
- y=0
- txt=trim(txt)
- for i=1 to len(txt)
- j=mid(txt,i,1)
- if asc(j)>=0 and asc(j)<=127 then '汉字外的其他符号,如:!@#,数字,大小写英文字母
- y=y+0.5
- else '汉字
- y=y+1
- end if
- if -int(-y) >= length then '截取长度
- txt = left(txt,i)
- exit for
- end if
- next
- GetStringLength=txt
- End Function
PHP生成唯一字符串的方法,产生唯一码的方法分析
作者:admin 日期:2013-09-19
1. 自己写代码产生随机的数字和字母组合,每产生1个去数据库查询该随机码是否已存在,如果已存在,则重新产生,直到不重复为止。
优点:没发现有啥优点。
缺点:产生速度慢,还要查询数据库,当数据量大的时候,可能重复的机率会比较高,要查询多次数据库.
2. guid,该方法应该是用的比较多的。
优点:使用简单方便,不用自己编写额外的代码
缺点:占用数据库空间相对较大,特别是根据guid查询速度比较慢(毕竟是字符串)。
3. 主键+随机码的方式,我们产生的随机码保存到数据库肯定会有个主键,用该主键+随机字符来组合。产生步骤:
1) 先从id生成器中获取id,比如是155.
2)填充成固定位数(比如8位)的字符串(不够位数的左边填0,超过位数直接使用该数字),得到:00000155
3)在每个数字后面随机插入1个字母或其它非数字符号,得到:0A0F0R0Y0H1K5L5M
这样就可以得到1个随机的唯一的邀请码了。
优点:使用也比较简单,不用查询数据库。最大的优点是查询的时候,可以根据邀请码直接得到主键id,
然后根据id去数据库查询(速度很快),再比较查询出来的邀请码和用户提交的邀请码是否一致。
缺点:需要使用id产生器,如果主键是数据库自增长的就不太好用(需要先插入数据库获取id,再更新邀请码)。
4. 有时候产品经理说,我要求邀请码都是数字的。把方法3变通下就可以实现唯一的纯数字随机码了。
1) 获取id: 155
2) 转换成8进制:233
3) 转为字符串,并在后面加'9'字符:2339
4)在后面随机产生若干个随机数字字符:2003967524987
转为8进制后就不会出现9这个字符,然后在后面加个'9',这样就能确定唯一性。最后在后面产生一些随机数字就可以。
优缺点同方法3
vb键盘常量
作者:admin 日期:2013-09-06
可在代码中的任何地方用下列常数代替实际值:
常数 值 描述
vbKeyLButton 0x1 鼠标左键
vbKeyRButton 0x2 鼠标右键
vbKeyCancel 0x3 CANCEL 键
vbKeyMButton 0x4 鼠标中键
vbKeyBack 0x8 BACKSPACE 键
vbKeyTab 0x9 TAB 键
vbKeyClear 0xC CLEAR 键
vbKeyReturn 0xD ENTER 键
vbKeyShift 0x10 SHIFT 键
vbKeyControl 0x11 CTRL 键
vbKeyMenu 0x12 MENU 键
vbKeyPause 0x13 PAUSE 键
vbKeyCapital 0x14 CAPS LOCK 键
vbKeyEscape 0x1B ESC 键
vbKeySpace 0x20 SPACEBAR 键
vbKeyPageUp 0x21 PAGE UP 键
vbKeyPageDown 0x22 PAGE DOWN 键
vbKeyEnd 0x23 END 键
vbKeyHome 0x24 HOME 键
vbKeyLeft 0x25 LEFT ARROW 键
vbKeyUp 0x26 UP ARROW 键
vbKeyRight 0x27 RIGHT ARROW 键
vbKeyDown 0x28 DOWN ARROW 键
vbKeySelect 0x29 Select 键
vbKeyPrint 0x2A PRINT SCREEN 键
vbKeyExecute 0x2B EXECUTE 键
vbKeySnapshot 0x2C SNAPSHOT 键
vbKeyInsert 0x2D Insert 键
vbKeyDelete 0x2E Delete 键
vbKeyHelp 0x2F HELP 键
vbKeyNumlock 0x90 NUM LOCK 键
A 至 Z 键与 A 杴 Z 字母的 ASCII 码相同:
常数 值 描述
vbKeyA 65 A 键
vbKeyB 66 B 键
vbKeyC 67 C 键
vbKeyD 68 D 键
vbKeyE 69 E 键
vbKeyF 70 F 键
vbKeyG 71 G 键
vbKeyH 72 H 键
vbKeyI 73 I 键
vbKeyJ 74 J 键
vbKeyK 75 K 键
vbKeyL 76 L 键
vbKeyM 77 M 键
vbKeyN 78 N 键
vbKeyO 79 O 键
vbKeyP 80 P 键
vbKeyQ 81 Q 键
vbKeyR 82 R 键
vbKeyS 83 S 键
vbKeyT 84 T 键
vbKeyU 85 U 键
vbKeyV 86 V 键
vbKeyW 87 W 键
vbKeyX 88 X 键
vbKeyY 89 Y 键
vbKeyZ 90 Z 键
0 至 9 键与数字 0 杴 9 的 ASCII 码相同:
Php版的google pr值查询接口
作者:admin 日期:2013-09-02
PR(全称PageRank)是Google衡量一个网站的重要标准之一,从而影响Google搜索结果排名。Google官方提供了查询PR的API,如本站PR值:
http://toolbarqueries.google.com.hk/tbr?client=navclient-auto&features=Rank:&q=info:phpddt.com&ch=8fabc62ea
Google PR值查询原理及其简单,只要获取如上接口返回的值处理下就OK了:
- <?php
- /*
- *功能:对URL进行编码
- *参数说明:$web_url 网站URL,不包含"http://"
- */
- function HashURL($url)
- {
- $SEED = "Mining PageRank is AGAINST GOOGLE’S TERMS OF SERVICE. Yes, I’m talking to you, scammer.";
- $Result = 0x01020345;
- for ($i=0; $i<strlen($url); $i++)
- {
- $Result ^= ord($SEED{$i%87}) ^ ord($url{$i});
- $Result = (($Result >> 23) & 0x1FF) | $Result << 9;
- }
- return sprintf("8%x", $Result);
- }
- /*
- *功能:根据google提供的pr查询接口获取pagerank
- *参数说明:$domain 网站域名,不包含"http://"
- */
- function pagerank($domain)
- {
- $StartURL = "http://toolbarqueries.google.com/tbr?client=navclient-auto&features=Rank:&q=info:";
- $GoogleURL = $StartURL.$domain. '&ch='.HashURL($domain);
- echo $GoogleURL.'<br>';
- $fcontents = file_get_contents("$GoogleURL");
- $pagerank = substr($fcontents,9);
- if (!$pagerank) return "0";else return $pagerank;
- }
- echo pagerank("phpddt.com");
- ?>
值得注意的是该接口需要获取一个ch的值,已有HashURL()解决,但是该代码传到服务器Linux 64上出现了int overflow溢出问题,可用如下代码解决:
- function trunkbitForce32bit($n) {
- if (PHP_INT_SIZE <= 4) {
- settype($n, 'float');
- if ($n < 0)
- $n += 4294967296;
- return $n;
- }
- else
- {
- $clearbit = '';
- for ($i = 0; $i < PHP_INT_SIZE - 4; $i++) {
- $clearbit .= '00';
- }
- for ($i = 0; $i < 4; $i++) {
- $clearbit .= 'ff';
- }
- return ($n & hexdec($clearbit));
- }
- }
广告位