Expertos: Cómo obtener la IP correspondiente al nombre de dominio en asp.

Hay tres métodos para lograr esto en asp:

1. Utilice wscript.shell para ejecutar el comando ping o nslookup para obtener la IP del servidor con un nombre de dominio conocido.

Código:

lt; formulario método="post"gt

lt; tipo de entrada=nombre de texto="nombre" tamaño=60gt; p>

lt; p>

lt; tipo de entrada=valor de envío="run"gt;lt;/formgt;if request("name")lt;gt; "" luego respuesta.escribir servidor .createobject("wscript.shell").exec(server.mappath("nslookup.exe")amp;" "amp;request.form

("nombre") ).stdout.readallgt;

Aunque el componente wscript.shell está disponible. El código anterior falló cuando lo probé por primera vez en mi computadora. Copie nslookup en c:\windows\system32 al directorio del archivo asp y funcionará.

2. También se acaba de encontrar. Utilice componentes.

Componente TCPIP.DNS

Busque en Baidu para obtener información relevante

3.

lt @LANGUAGE="VBSCRIPT" CODEPAGE= " 936"gt;

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

lt;titlegt;asp Verifique la IP a través del nombre de dominio;/titlegt

lt;/headgt;

lt;bodygt;

lt;form id="form1" nombre="form1" método="post" acción=""gt

lt; ancho de tabla="528" border="0" align="center" cellpadding="0" cellpacing="0"gt

lt;trgt; /p >

lt;td height="27" align="right"gt; lt;/tdgt

lt;td align="center"gt;asp Verifique la IP a través del nombre de dominiolt; /tdgt;

lt;

lt; ; td width="96" height="21" align="right"gt;Nombre de dominio:lt;/tdgt

lt;td width="288" align="center"gt; /p>

lt; nombre de entrada="URL" tipo="texto" id="URL" valor="lt;=Trim(Request.Form("URL"))gt;" gt;

lt; nombre de entrada="Buscar" tipo="oculto" id="Buscar" valor="Verdadero" /gt;lt;/tdgt; ancho="144 "gt;

lt; tipo de entrada="enviar" nombre="Enviar" valor="Consulta" /gt;lt;/tdgt; trgt;

lt;/tablegt;

lt;/formgt;

lt;ancho de tabla="528" border="0" align= "centro" cellpadding=" 0" cellpacing="0"gt;

lt;

lt; td width="64"gt; p>

lt ;td width="464"gt;

lt

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

Si Search="True " Entonces

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

Establecer

objWShell=CreateObject("WScript.Shell")

Establecer objCmd=objWShell.Exec("ping "amp;url)

StrPResult=objCmd.StdOut.Readall()

Establecer objCmd=nada

Establecer objWShell=nada

En caso de error, reanudar siguiente

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

Si Err Entonces

Err.Clear

IP="lt;bgt;¡Esta IP es desconocida o el nombre de dominio no está disponible!lt; /bgt; "

End if

Response.Write("lt;bgt;query resultlt;/bgt;lt;brgt;lt;brgt;El nombre de dominio que consulta: " amp;URLamp ;"lt;brgt;lt;brgt;La dirección IP es:"amp;IPamp;"lt;brgt;")

'Response.Write("lt;pgt;"amp; Reemplazar(StrPResult, vbCrLf, "lt; brgt; "))' Detalles de salida

EndTime=Timer()

Response.Write("lt; brgt; Tiempo de consulta *** Utilice: " amp; FormatNumber((EndTime-STime), 3, -1)amp; "lt;/bgt; segundos")

Fin

Función strCut(strContent, StartStr, EndStr , CutType)

Dim strHtml, S1, S2

strHtml = strContent

En caso de error Reanudar siguiente

Seleccionar caso CutType

Caso 1

S1 = InStr(strHtml, StartStr)

S2 = InStr(S1, strHtml, EndStr) Len(EndStr)

Caso 2

S1 = InStr(strHtml, StartStr) Len(StartStr)

S2 = InStr(S1, strHtml, EndStr)

Fin Seleccionar

Si Err Entonces

strCute = "lt; p align='center'gt; No se encontró el contenido requerido. lt;/pgt;"

Err.Clear

Función de salida

Else

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

Finalizar si

Finalizar función

gt;

lt;/tdgt

lt; /trgt;

lt;/tablegt;

lt;/bodygt;/p>

lt;/htmlgt;