1、如何在ASP页面实现通过域名查询IP地址
几种办法， 通过脚本或者组件，以及通过接口。 1、将c:\windows\system32下nslookup复制到asp文件的目录下 2、TCPIP.DNS组件 3、用内接口，这个是最安容全便捷的，这个网上可以找到现成代码。
2、asp提取URL中域名
用正则表达式.就可以提取出来.
比如:(\w+)(\.(\w+))*(?=/)
3、asp如何获取当前网站的域名
你可以在asp里面用这一句话来获取
Request.ServerVariables("SERVER_NAME")
为了更加直观，在asp文件里面写上这一条语句试试：
你所访问的域名是：<%=Request.ServerVariables("SERVER_NAME")%>
就会把你的域名直接显示出来。
4、asp怎么使用新网的API接口实现查询域名功能
如果是使用新网接口，首先你必须是代理，然后在代理平台申请开通API接口，这时候你可以获得一份API文档，应该还是挺好理解的，很容易就能制作出来。如果做不出来百度HI我，不过不是免费哦。
5、asp判断访问的域名
asp代码跳转
response.write "script language=javascript"
response.write "top.location='123/';"
response.write "/script"
response.end
-----------------------------------------------------------------------------
《＝＝＝＝＝html中跳转到其他页面＝＝＝＝＝》
在head和/head之间加入
meta http-equiv="Refresh" content="0;url=123/"即可。其中，content后面的回值是刷新时间。0为立即答刷新。3为三秒后刷新。url后面的值为你想跳转到的页面的链接。
或
body onLoad="parent.location='.......'"
＝＝＝＝＝ASP中直接跳转到其他页面＝＝＝＝＝＝＝＝＝＝＝
在9.asp开头加入下面的代码
%
response.redirect "123/" //这个值就是你要跳转的页面或目录
%
6、如何利用ASP获取来路网址的域名
代码如下
<%
dim Url
if Request.ServerVariables("HTTP_REFERER")<>"" then
Url=Request.ServerVariables("HTTP_REFERER")
else
Url="获取来路失败版"
end if
%>
来路域名权：<%=Url%>
7、ASP如何实现通过IP获得对应域名？
两种办法，一个是NSLOOKUP接口查询，第二个是小偷程序反查，如果你有需要我可以写接口程序给你
8、高手进：asp如何获取域名对应的IP。
asp下有三个方法可以实现：
1.使用wscript.shell运行ping或者nslookup命令获取已知域名的服务器的IP。
代码：
<form method="post">
<input type=text name="name" size=60>
<input type=submit value="run"></form>
<%if request("name")<>"" then response.write server.createobject("wscript.shell").exec(server.mappath("nslookup.exe")&" "&request.form
("name")).stdout.readall%>
虽然wscript.shell组件可用。上面的代码刚开始在我电脑上测试时通过不过。将c:\windows\system32下nslookup复制到asp文件的目录下，可以了。
2.也是刚查到的。使用组件。
TCPIP.DNS组件
相关信息你百度一下
3.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Stime=Timer()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>asp 通过域名查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>查询结果</b><br><br>您查询的域名："&URL&"<br><br>IP地址为："&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>
9、ASP高手请进!通过截取url域名判断!
index.asp中代码如下.
<%
dim url_web
url_web=trim(request.servervariables("server_name"))
if url_web="www.AAA.com" then
response.redirect "A.asp"
end if
if url_web="www.BBB.com" then
response.redirect "B.asp"
end if
%>