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
%>