解释下以下代码
发布网友
发布时间:2022-04-20 22:58
我来回答
共2个回答
热心网友
时间:2023-10-03 12:36
先获取用户IP地址.
用:Request.ServerVariables("REMOTE_ADDR")
得到用户ip地址.
然后跟据IP查询IP数据库.
这是一个跟据IP查地址的函数,里面包含连接IP数据,你跟据自己的情况,改一下IP数据库地址就可以用.
Public Function LookAdd(Sip)
Dim Str1,Str2,Str3,Str4
Dim Num
Dim Irs
If IsNumeric(Left(sip,2)) Then
If Sip="127.0.0.1" Then sip="192.168.0.1"
Str1=Left(Sip,InStr(Sip,".")-1)
Sip=Mid(Sip,InStr(Sip,".")+1)
Str2=Left(Sip,InStr(Sip,".")-1)
Sip=Mid(Sip,InStr(Sip,".")+1)
Str3=Left(Sip,InStr(Sip,".")-1)
Str4=Mid(Sip,InStr(Sip,".")+1)
If IsNumeric(Str1)=0 Or isNumeric(Str2)=0 Or isNumeric(Str3)=0 Or isNumeric(Str4)=0 Then
Else
num=CInt(Str1)*256*256*256+CInt(Str2)*256*256+CInt(Str3)*256+CInt(Str4)-1
Dim adb,aConnStr,AConn
adb = "IPDATA/ipaddress.mdb"
aConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(adb)
Set AConn = Server.CreateObject("ADODB.Connection")
aConn.Open aConnStr
sql="select country,city from dv_address where ip1 <="&num&" and ip2 >="&num
Set irs=AConn.Execute(sql)
If irs.eof And irs.bof Then
LookAdd="数据库无记录"
Else
Do While Not irs.eof
LookAdd=LookAdd & Irs(0) & Irs(1)
Irs.MoveNext
Loop
End If
Irs.Close
Set Irs=nothing
Set AConn=Nothing
End If
End If
End Function
热心网友
时间:2023-10-03 12:36
上面是一个函数, LookAdd(sip)
首先这个函数把得到的IP地址信息:即sip参数,通过分析分解,得到ip段,
然后通过查询数据库中的ip,查询到相应的地址 .
使用步骤:
确定你的ip数据库地址,修改函数中下面的部分:
adb = "IPDATA/ipaddress.mdb"
比如你的ip数据库在程序目录下 data目录中,名字为ip.mdb,你可以这样改:
adb = "data/ip.mdb"
这样就可以使用了! 不过补充一下,应该还有其他的函数来配合的,比如显示函数,或绑定函数,你仅提供这一个函数,无法帮你修改完全。
解释以下代码的含义,代码很简单
Private Type WIN32_FIND_DATA 私有 类型 32位Windows操作系统_搜索_数据 (下面有些变量名称的含义我也不太清楚,别怪我)dwFileAttributes As Long 定义变量文件属性组(只读/存档/隐藏)为长整型 ftCreationTime As FILETIME 定义变量创建时间为文件时间型(这种变量类型真是稀奇古怪。)ftLastAccessTime...
解释以下MATLAB代码?
这段MATLAB代码似乎是用来在摄像头中实时检测人脸的。让我来帮你解释一下各个部分的作用:clc:清除命令行上的所有输出。clear all:删除所有变量。close all:关闭所有图窗。web = webcam():创建一个webcam对象。pic =web.snapshot:使用webcam对象捕获一张图像。detface=vision.CascadeObjectDetector(...
下面JavaScript代码我不大看懂,请你详细解释一下是怎么计算的?阶乘我...
1!=1 2!=1×2=1!×2 3!=1×2×3=2!×3 4!=1×2×3×4=3!×4 n!=1×2×3...×(n-2)×(n-1)×n=(n-1)×n 利用递归函数求阶乘就是利用了公式n!=(n-1)!×n。要求n的阶乘,先求(n-1)的阶乘,再乘以n就行了。当n小于等于1时,直接返回1的阶乘1,当n大于1时,计...
解释一下以下Java代码?
result初始值0 每次循环都在变 , p_pow初始值1 每次循环也都在变 s[] 数组根据循环次数 i 在变,m每次循环是不变的 result的值=(上次循环结束result的值+ 数组 s [第i次循环] 的char值 - 'a' +1(这个a用int类型表示其实就是96)×上次循环结束p_pow的值)对m取余数。%就是取...
谁能帮我解释一下下面代码每一行的意思??非常感谢!~
我补充两句:1.var config= 'menubar=no,toolbar=no,location=no, 'var config表示定义一个变量,变量名为config;“=”右边就是对这个变量进行赋值;2.由于赋值的字符换比较长,就分行进行赋值,"+="的意思是"增量赋值",就是在原来的基础上 再增加。
谁能解释下面简单的电脑病毒代码?
我帮你"翻译"一下代码的意思。这是一段vbs代码:直到(除非)1等于2,否则就一直弹出一个写有"烦死你"的窗口,因为1永远不等于2,所以不断的弹窗。这是VB的一个简单编程,但是代码却不怀好意。这段代码的意思是说,当双击运行这个程序的时候,执行以下代码:直到(除非)1等于2,否则隐藏这个软件的...
解释一下,下面一段程序,每句代码的含义,以及输出结果。
int main( ){ int p1; //定义变量 p1 while((p1=fork())==-1); // 执行p1 = fork(), 并判断 p1 是否等于-1:如果不等于-1,继续执行 p1 = fork();// fork 是LINUX 下的函数,作用是将当前进程的变量,数据复制一份到另一个进程执行。如果fork成功,返回进程的id,否则返...
求高手解释以下代码的含义,谢谢
margin-top 属性设置元素的上外边距 margin-bottom 属性设置元素的下外边距 class 属性规定元素的类名 ...还是自己到 w3school 学吧 参考资料:http://www.w3school.com.cn/html/index.asp
帮我解释一下下面这段代码。用c++实现顺序表。。
首先,*L表示的是一个指针,**L表示L是指针的指针,按这样来理解的话就没有错。若换成 void List::init( List *L, int ms)//初始化顺序表 { L = (List *)malloc(sizeof(List));(L)->length = 0;(L)->MaxSize = ms;} 这样也是可以的,主要是看你的类里面的成员怎么定义了。
JAVA问题。麻烦帮我解释一下下面的代码,谢谢!
您好,提问者: 首先,这是在JSP中写的代码:<%String query="select*from book"; //sql语句,查询book表所有内容Statement s=db.getConnection().createStatement(); //连接数据的方法调用。 ResultSet rs=s.executeQuery(query); //执行sql语句,返回查询的sql集合while(rs.next()) //遍历sql...