asp根据域名取得ip（根据域名查询ip地址 解析）

本篇文章给大家谈谈asp根据域名取得ip，以及根据域名查询ip地址 解析对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

文章目录列表：

• 1、asp 根据域名查IP
• 2、如何在ASP页面实现通过域名查询IP地址
• 3、asp获取真实IP地址的代码是什么？

asp 根据域名查IP

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%

%Stime=Timer()%

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312" /

titleasp 通过域名查IP/title

/head

body

form id="form1" name="form1" method="post" action=""

table width="528" border="0" align="center" cellpadding="0" cellspacing="0"

tr

td height="27" align="right" /td

td align="center"asp 通过域名查IP/td

td /td

/tr

tr

td width="96" height="21" align="right"域名:/td

td width="288" align="center"

input name="URL" type="text" id="URL" value="%=Trim(Request.Form("URL"))%" size="35" /

input name="Search" type="hidden" id="Search" value="True" //td

td width="144"

input type="submit" name="Submit" value="查询" //td

/tr

/table

/form

尺滚table width="528" border="0" align="center" cellpadding="0" cellspacing="0"

tr

td width="64" /td

td width="464"

%

Search=Trim(Request.Form("Search"))

If Search="True" Then

URL=Trim(Request.Form("URL"))

Set objWShell=CreateObject("WScript.Shell")

Set objCmd=objWShell.Exec("ping "url)

StrPResult=objCmd.StdOut.Readall()

Set objCmd=nothing

Set objWShell=nothing

On Error Resume Next

IP=strCut(StrPResult,"[","]",2)

If Err Then

Err.Clear

IP="b此IP未知或域名陵余余不可用！/b"

End if

Response.Write("b查询结果/bbrbr您查询的域名："URL"毁瞎brbrIP地址为："IP"br")

'Response.Write("p"Replace(StrPResult,vbCrLf,"br"))'输出详细内容

EndTime=Timer()

Response.Write("br查询时间共用："FormatNumber((EndTime-STime),3,-1)"/b 秒")

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 = "p align='center'没有找到需要的内容。/p"

Err.Clear

Exit Function

Else

strCut = Mid(strHtml,S1,S2-S1)

End If

End Function

%

/td

/tr

/table

/body

/html

些答案可行

如何在ASP页面实现通过域名查询IP地址

几种办法， 通过脚本或者组缓举祥件，以及通过接口扰搏。 1、将c:\windows\system32下nslookup复制到asp文件答锋的目录下 2、TCPIP.DNS组件 3、用接口，这个是最安全便捷的，这个网上可以找到现成代码。

asp获取真实IP地址的代码是什么？

汗,我也写多一点,给你一段功能更全面的代码,自己去试一试就知道了,决对自卜培己写的代码.Function RSV(Types)'ServerVariables常用

select case Types

case "Method"'提交方式

RSV=request.ServerVariables("Request_Method")

case "HOST"'服务器地址，取得域型拦唯名

RSV=request.ServerVariables("HTTP_HOST")

case "ComeUrl"'URL来源

RSV=request.ServerVariables("HTTP_REFERER")

case "IP"'发出请求的远程主机的IP地址

If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then

RSV = Request.ServerVariables("REMOTE_ADDR")

Else

RSV = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

End If

end select

end Function 调用只需要用%=RSV("IP"衡闷)%就行了,这里面还有其他功能,你看注解吧!

关于asp根据域名取得ip和根据域名查询ip地址 解析的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。