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; p>
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;
p>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;