1樓：匿名使用者
原始碼已通過hi傳，不建議你在自己**上使用，影響**速度。
asp 查詢ip段的sql**
2樓：網友
告訴你個方法哈。
不需要你說那個麻煩。
不過你的分給的有點少了。
可以轉換為乙個數字。
function ip2long(ip)
ip = split(ip,".")
if(not isnumeric(join(ip,"")) or ubound(ip)<>3)then exit function
ip2long=ip(3)+256*ip(2)+256*256*ip(1)+256*256*256*ip(0)
end function
函式名：long2ip(longs)
引數longs:數值型，如2064370443
function long2ip(longs)
if (longs<0 or longs>4294967295)then exit function
ip=""for i=3 to 0 step -1
ip=ip & int(longs/(256^i))
longs=longs - int(longs/256^i)*(256^i)
if(i>0)then ip=ip&"."
nextlong2ip=ip
end function
現在你要設計兩個欄位 乙個起始的 乙個結束的。
然後 你寫sql的時候 只要把你要查的ip轉未整數 比一下大寫就可以了！
asp** 顯示ip和 地理位置的 怎麼寫？？
3樓：匿名使用者
顯示ip的話直接用'remote_addr'))來輸出ip位址。如果要顯示地理位置的話，你得找乙個ip資料庫，然後根據remote_addr返回的ip來判斷位置。
asp中怎樣獲取訪問者的ip位址？
4樓：育知同創教育
最簡單的用以下語句：
ip="remote_addr")
但這種方法對**伺服器上網的就不準了，故比較全面的是用下面的方法：
private function getip() //定義乙個獲取ip的函式。
dim stripaddr //定義ip位址變數。
檢測是否利用了**：http_x_forwarded_for，如果沒有直接用"remote_addr") 獲取。
if "http_x_forwarded_for") = "" or instr("http_x_forwarded_for"), "unknown") >0 then
stripaddr = "remote_addr") ;
如果使用了**http_x_forwarded_for，就從**串中擷取。
elseif instr("http_x_forwarded_for"), ",") >0 then
stripaddr = mid("http_x_forwarded_for"), 1, instr("http_x_forwarded_for"), ",")-1)
elseif instr("http_x_forwarded_for"), ";") >0 then
stripaddr = mid("http_x_forwarded_for"), 1, instr("http_x_forwarded_for"), ";")-1)
elsestripaddr = "http_x_forwarded_for")
end if
getip = trim(mid(stripaddr, 1, 30))
end function
ip=getip()
5樓：匿名使用者
<%dim ipip="remote_addr") %現在這個ip的變數就已經獲得訪問者的真實ip位址了，你要對ip位址什麼任何處理都可以了。
asp 根據網域名稱查ip
6樓：非魚共享
<%@language="vbscript" codepage="936"%>
stime=timer()%
search=trim("search"))
if search="true" then
url=trim("url"))
set objwshell=createobject("")
strpresult=
set objcmd=nothing
set objwshell=nothing
on error resume next
ip=strcut(strpresult,"[","]",2)
if err then
ip="此ip未知或網域名稱不可用！
end if
查詢結果
您查詢的網域名稱："&url&"
)'輸出詳細內容。
endtime=timer()
查詢時間共用秒")
end if
function strcut(strcontent,startstr,endstr,cuttype)
dim strhtml,s1,s2
strhtml = strcontent
on error resume next
select case cuttype
case 1
s1 = instr(strhtml,startstr)
s2 = instr(s1,strhtml,endstr)+len(endstr)
case 2
s1 = instr(strhtml,startstr)+len(startstr)
s2 = instr(s1,strhtml,endstr)
end select
if err then
strcute = "沒有找到需要的內容。
exit function
elsestrcut = mid(strhtml,s1,s2-s1)
end if
end function
些答案可行。
7樓：網友
asp下有兩個方法可以實現：
1.使用執行ping或者nslookup命令獲取已知網域名稱的伺服器的ip。**：
8樓：網友
走過，路過，沒有錯過。
也學習一下。
asp.net 如何根據ip查詢所在城市
9樓：網友
你這個是asp中的vbscript指令碼吧，這個function是放在伺服器上執行的，在某個。asp頁面中。
這個ip轉換的函式用的很多，他的功能就是把ip位址轉換成十進位的數值，用來方便資料庫查詢的。
因為如果ip是字元型，那是不好查詢的，所以就做了個轉換，這樣你就可以用這種方式查詢了：
select count(*)from lockip where ip1 <="&num&" and ip2 >="&num&"
但這個函式並不是直接用來查詢ip對應城市的，它應該是用來查詢某個ip是否在被鎖定的ip段範圍內的，不過你可以稍加修改，它就可以用來查詢城市了，因為這個ip表裡應該有城市欄位的，這樣改：
sql = "select city from [你的ip表] where ip1 <=" & num & " and ip2 >=" & num
dim city=""
set rs=
if rs <>null and > 0 then
city = rs(0)
end if
其中的city對應你表中的城市欄位。
10樓：網友
這個我也很想知道，ip一般都是分段安排的，每個城市都有自己的ip段，所以說這些東西應該是死的，就是不知道這些東西是怎麼規定的，網上查一查是否可以找到。
11樓：網友
////// 從讀取ip位址。
public static string getipaddress(string ip)
/ 獲取兩個字串之間的字元。
public static string getvalueand(string strstart, string strend, string text)
asp根據ip獲取所在的位址
12樓：網友
如<%ip=""
area = lockip(ip)
就可以得到此ip是區域網使用者。
用法很簡單，因為ip都是分段的，在2個數值之間，屬於乙個地區的，就是把 ip 轉化成 num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
得到乙個值，然後，在ip資料庫中檢索此ip屬於哪個區域。。。
function lockip(sip)
dim str1,str2,str3,str4
dim num
lockip=false
if isnumeric(left(sip,2)) then
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
elsenum=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
sql="select count(*)from lockip where ip1 <="&num&" and ip2 >="&num&""
set rs=
if rs(0)>0 then
lockip=true
end if
set rs=nothing
end if
end if
end function
是乙個函式，你可以專門拿做乙個檔案，在用到解析ip的地方，呼叫。。。
怎麼實現asp**如何獲取某個**的ip位址
13樓：網友
<%@language="vbscript" codepage="936"%>
stime=timer()%
search=trim("search"))
if search="true" then
url=trim("url"))
set objwshell=createobject("")
strpresult=
set objcmd=nothing
set objwshell=nothing
on error resume next
ip=strcut(strpresult,"[","]",2)
if err then
ip="此ip未知或網域名稱不可用！
end if
查詢結果
您查詢的網域名稱："&url&"
)'輸出詳細內容。
endtime=timer()
查詢時間共用秒")
end if
function strcut(strcontent,startstr,endstr,cuttype)
dim strhtml,s1,s2
strhtml = strcontent
on error resume next
select case cuttype
case 1
s1 = instr(strhtml,startstr)
s2 = instr(s1,strhtml,endstr)+len(endstr)
case 2
s1 = instr(strhtml,startstr)+len(startstr)
s2 = instr(s1,strhtml,endstr)
end select
if err then
strcute = "沒有找到需要的內容。
exit function
elsestrcut = mid(strhtml,s1,s2-s1)
end if
end function
革命根據地是什麼意思，根據地是什麼意思
一統肥城 革命根據地 在某些地區 如北嶽區 太行山 山東 有了革命的武裝 革命的政權 革命的群眾組織 革命的政黨 共產黨 而且前面的三種組織都在共產黨領導之下 這四種組織在一定地區能夠公開的合法的存在，各自執行自己的職權 如政權執行自己的法令 紀律 各種制度 這樣的地區，就叫做革命根據地。革命根據地...
鴿子是根據地球引力導航的嗎
憑冬菱 地球磁場，有人做過實驗在鴿子的腿部掛鋼圈，鴿子迷路了。 嘟嘟iu啊 是的。關於鴿子為什麼能從很遠的地方回到 家裡 的問題，有上千個答案對此進行解釋。乙隻比賽冠軍鴿子，可以在一天之內從400 600英里之外，回到家裡。而這一驚人的能力並不僅限於賽鴿或者家鴿，所有的鴿子都擁有返回棲息地的能力。牛...
如何查詢網絡卡實體地址ipconfig除外
第一種 附件執行 輸入cmd 確定後 在 再輸入ipconfig all 附件 命令提示符 就是cmd 輸入ipconfig all 第二種 網路上的芳鄰 右擊屬性 點選常規裡面的配置 這個就是你的網絡卡 高階 network address 右邊就能顯示十二個數字，那就是你的實體地址，而且可以更改 不知...