| VB 源码 | VC 源码 | ASP源码 | JSP源码 | PHP源码 | CGI源码 | FLASH源码 | 素材模板 | C 源程序 | 站长工具 | 站长教程 |

ASP技术

ASP技术
PHP技术
JSP技术
VB技术
.NET技术

本类阅读TOP10

·ASP如何获取真实IP地址
·Asp中五种连接数据库的方法
·解密ASP源代码
·ASP编程技巧大全[1]
·快速打造留言本教程[1]
·ASP中也能解压缩rar文件
·浅谈如何建立三层体系结构的ASP应用程序(2)
·用ASP发送邮件
·浅谈如何建立三层体系结构的ASP应用程序(1)
·使ACCESS数据库保持同步

站内搜索

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


相关文章
  • 雅虎推出搜索子品牌 一搜网今天亮相
  • Google搜索技巧
  • ASP中使用组件搜索[1]
  • ASP中使用组件搜索[2]
  • ASP编写完整的IP所在地搜索类(一
  • ASP编写完整的IP所在地搜索类(三)
  • ASP编写完整的一个IP所在地搜索类
  • 相关软件

  • 一个数据库搜索  
  • 小巧而功能强大的搜索引擎  
  • SFE 网站内容搜索脚本  
  • 很好的搜索站台程式  
  • 网虫搜索引擎  
  • 搜索引擎脚本  
  • 搜索服务器运行服务  
  • 搜索并替换文件中指定的字串  
  • 以文本文件为基础的PHP搜索引擎源代码  
  • web搜索程序,用到了MySQL,PHP  

  • 下载首页关于我们广告服务联系方式常见问题隐私声明法律条款本站声明下载帮助发布软件站点地图谷歌卫星地图