Recomendado: Funciones ASP comunes: Lastday () Program code % 'Function: determine whether a value exists in an array'Source: http://www.cncms.com/asp.asp Function InArray(sValue, aArray) Dim x InArray = False For Each x In aArray If x = sValue Then InArray = True Exit For End If Next End Function % Program code % 'Function: determine a
<%
En el currículum de error siguiente
D_EXSIT privado
Recuperación de duificación
Dominio atenuante
Dim tomado
Función getURL (URL)
Establecer recuperación = servidor.createObject (microsoft.xmlhttp)
Con recuperación
.
.Enviar
GetURL = .Responsetext
Terminar con
Establecer recuperación = nada
Función final
Dominio = reemplazar (request.form (dominio), www.,) Y. & Request.form (ext)
if domain = .com o request.form (dominio) = entonces
Response.write (<Script> Alert ('Mira lo que olvidó completar?
respuesta.
final si
'TAKEHTML = getUrl (http://www.internic.net/cgi/whois?whois_nic=&domain&&type=domain)
TAKEHTML = getURL (http://www.china-channel.com/checkdomain.asp?action=whois&domain= y dominio)
d_exsit = 1
Si instrer (tomado, no hay entradas)> 1 entonces
Respuesta. El dominio de escritura y algo salió mal, ¡por favor regrese! <br> <br>
demás
Si instrer (Takhtml, sin coincidencia)> 1 entonces %>
Felicitaciones, el nombre de dominio que desea registrar aún no está registrado <p> <a href =#>
Haga clic aquí para comenzar a registrar su nombre de dominio </a> </p> </font>
< % else %>
<font color = rojo> <br> lo siento </font> ¡El nombre de dominio que desea registrar ya está registrado! <p> </p> Vuelva a intentarlo con un nombre de dominio </font>
<Form Method = Post Action = Search.asp name = checkdomain id = form1>
www. <input type = text name = domain id = text1>
<select name = ext id = select1>
<opción valor = com seleccionado> .com </opción>
<opción valor = net> .net </opción>
<opción valor = org> .org </ppection>
<opción valor = com.cn> .com.cn </opción>
<opción valor = net.cn> .net.cn </opción>
<opción valor = org.cn> .org.cn </opción>
<opción valor = cc> .cc </ppection>
<opción valor = tv> .tv </ppection>
<opción valor = biz> .biz </ppection>
<opción valor = info> .info </ppection>
</select>
<input type = Subt name = Subt Value = Query ID = Subt1 OnClick = return Submitchecken ();>
</form> Los siguientes son la información de registro detallada para este nombre de dominio <br> </font>
<Able> <tr> <td> <pre> < % = dowith () %> </pre> </td> </tr> </table> </font>
<% final si
final si
Función dowith ()
Dim lstrurl
Dim Pagebefore
Dim pagado
Tempcontent Dim
Dim Pagestart
Dim Pageend
temperatura oscura
PAGAFTER = <PRE>
PageBore = </pre>
tempContent = TAKEHTML
Si d_exsit <> 0 entonces
PAGESTART = INSTR (1, TEMPCONTENT, PAGEAFTER, 1)
Si pageStart = 0 entonces
dowith = <font color = rojo> Error inesperado 2! </font>
d_exsit = 3
Función de salida
Demás
pagStart = PAGESTART + LEN (PAGEAFTER) + 1
PAGEEND = INSTR (PAGESTART, TEMPCONTENT, PAGEFORE, 1)
If pageend = 0 entonces
Dowith = <font color = rojo> ¡error inesperado! </font>
d_exsit = 3
Función de salida
Demás
Pageend = Pageend - PAGESTART 'Obtenga la longitud del contenido
tempContent = Mid (TempContent, PagStart, Pageend)
Final si
Final si
Establecer pageegexp = nuevo regexp
pageegexp.global = verdadero
pageegexp.pattern = <[^>]*>
tempContent = pageegexp.replace (tempContent,)
Establecer pageegexp = nada
dowith = tempcontent
Final si
Función final
%>
Compartir: Funciones comunes de ASP: CheckBoxScript () Código del programa % 'Función: se usa para verificar qué valores de la casilla de verificación especificada' Fuente: http://www.cncms.com/asp.asp Función CheckBoxScript (Byval Formelement, Byval ElementValue) CheckBoxScript = script iPT IPT = javaScript type = text/javaScript vbcRlf string.prototype. Checkbo