问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

解释下以下代码

发布网友 发布时间: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)-&gt;length = 0;(L)-&gt;MaxSize = ms;} 这样也是可以的,主要是看你的类里面的成员怎么定义了。

JAVA问题。麻烦帮我解释一下下面的代码,谢谢!

您好,提问者: 首先,这是在JSP中写的代码:&lt;%String query="select*from book"; //sql语句,查询book表所有内容Statement s=db.getConnection().createStatement(); //连接数据的方法调用。 ResultSet rs=s.executeQuery(query); //执行sql语句,返回查询的sql集合while(rs.next()) //遍历sql...

以下代码中为恒权码 解释代码 解释代码的软件 对代码进行解释的软件 g代码编程实例及解释 汇编语言代码解释 代码名词解释 代码解释器 数控编程代码及解释
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
狗狗为什么会得胰腺炎症呢 鸡蛋去壳后用了点蛋清做面膜,然后把剩下的拿碗放冰箱里,第2天还可以煮... ...月3 日上午十一点二十分男孩姓李改名李柏涛好吗? 前列腺小囊肿是否严重 前列腺囊肿治疗费用 海信电视有哪些型号 老年痴呆的三个阶段 案件移交到检察院后的流程是怎样的 合肥新站拆迁纠纷律师哪个排名高? 炸鸡粉(炸鸡粉怎么用才能使鸡肉更好吃) ein是什么意思 IR是证代吗 请问飞机上的IRS和INS导航的区别 T恤衫上的字母p后面有一个埃菲尔铁塔的图案后面irs... irs摊销法则是什么 英文日期年月缩写 cpb identification number 和 irs是一样吗 市场饱和度是个什么概念?? irs交易的index啥意思 税收第二篇:什么人更容易被美国国税局(IRS)查税 铁四项中的IRS是什么 股票中IRS曲线是什么 IRS是什么意思,IRS信号有什么用? IRS(Internal Revenue Service)是什么意思啊?? irs是什么意思 股市里irs是什么意思 什么是地震IRS数据 iphone输入的时候怎样把光标左移动,而不删除字符?除了用手指在文字上点,那样很麻烦,而且不好用 早上空腹吃香蕉对身体有好处吗? 早餐吃香蕉有什么好处? TO+IRS.R3是什么意思 汽车常规保养项目一般都有哪些? 汽车保养一般有哪些项目? 汽车保养包括什么? 汽车保养项目一般有哪些? 汽车保养主要有哪些方面? 汽车保养基本项目有什么? 汽车保养包括哪些? 汽车保养都保养哪些项目? 车子做保养一般是哪些方面 一般汽车都需要做哪些保养项目? 汽车保养需要做哪些项目? 基础保养包含哪些? 车辆保养内容都有哪些? 什么叫汽车基础保养 汽车保养项目有哪些是必须的?机油每次都要换吗? 车辆保养内容有哪些,周期怎么看? 羊肚怎么洗才干净 羊肚怎么清理最干净 怎么快速清洗羊肚?