Recomendado: Funções ASP comuns: LastDay () Código do programa % 'Função: Determine se existe um valor em uma matriz: http://www.cncms.com/asp.asp função inarray (svalue, aarray) dim x inarray = false para cada x em aarray, se x = svalue então ilustra = exite true para final se o final final Função
<%
em erro de erro em seguida
Private d_exsit
Recuperação fraca
Domínio escuro
Dim TakenHtml
Função geturl (url)
Set recuperação = server.createObject (microsoft.xmlhttp)
Com recuperação
.Open get, url, falso ,,
.Enviar
GetUrl = .Responsetext
Termine com
Definir recuperação = nada
Função final
Domain = Substituir (request.form (domínio), www.,) &. & Request.form (ext)
se domain = .com ou request.form (domain) = então
Response.write (<cript> alert ('Veja o que você esqueceu de preencher? Você não preenche o nome de domínio?');
resposta.END
final se
'TakenHtml = geturl (http://www.internic.net/cgi/whois?whois_nic=&domain&type=domain)
TakenHtml = geturl (http://www.china-channel.com/checkdomain.asp?action=whois&domain= & Domain)
d_exsit = 1
Se Instr (TakenHtml, sem entradas)> 1 então
Response.Write Domain e algo deu errado, por favor retorne! <br> <br>
outro
Se Instr (TakenHtml, sem correspondência)> 1 então %>
Parabéns, o nome de domínio que você deseja registrar ainda não foi registrado <p> <a href =#>
Clique aqui para começar a registrar seu nome de domínio </a> </p> </font>
< % else %>
<font color = vermelho> <br> Desculpe </font> O nome do domínio que você deseja registrar já está registrado! <p> </p> Por favor, tente novamente com um nome de domínio </font>
<Form Method = Post Action = Search.asp Nome = CheckDomain ID = Form1>
www.
<select name = ext id = select1>
<opção value = com selected> .com </pption>
<opção valor = net> .net </pption>
<opção valor = org> .org </pption>
<opção value = com.cn> .com.cn </pption>
<opção value = net.cn> .net.cn </pption>
<opção value = org.cn> .org.cn </pption>
<opção valor = cc> .cc </pption>
<opção value = tv> .tv </pption>
<opção valor = biz> .biz </pption>
<opção valor = info> .info </pption>
</leclect>
<Tipo de entrada = Nome de envio = Valor de envio = ID da consulta = submet1 OnClick = Return submitchecken ();>
</morm> A seguir, são apresentadas as informações detalhadas de registro para este nome de domínio <br> </font>
<table> <tr> <td> <pre> < % = dowith () %> </pre> </td> </tr> </table> </font>
<% final se
final se
Função Dowith ()
Dim lstrurl
Dim PageBe antes
Dim PageAfter
Dim tempContent
Dim Pagestart
Dim PageEND
Temps fracos
PagAfordter = <pre>
PageBefore = </pre>
TempContent = TakenHtml
Se d_exsit <> 0 então
Pagestart = Instr (1, TempContent, Pagafter, 1)
Se pagestart = 0 então
Dowith = <font cor = vermelho> erro inesperado 2! </font>
d_exsit = 3
Função de saída
Outro
Pagestart = Pagestart + Len (PagAforster) + 1
PageEND = Instr (Pagestart, TempContent, PageBefore, 1)
Se PageEND = 0 então
Dowith = <font cor = vermelho> erro inesperado! </font>
d_exsit = 3
Função de saída
Outro
PageEND = PageEND - Pagestart 'Obtenha o comprimento do conteúdo
TempContent = MID (TempContent, Pagestart, PageEnd)
Final se
Final se
Definir pageRegexp = novo regexp
pageregexp.global = true
pageregexp.pattern = <[^>]*>
tempContent = PageRegexp.Replace (TempContent,)
Defina Pageregexp = nada
Dowith = TempContent
Final se
Função final
%>
Compartilhar: Funções comuns de ASP: CheckScript () Código do programa % 'Função: Usado para verificar quais valores da caixa de seleção especificados' Fonte: http://www.cncms.com/asp.asp Função Caixa de seleção (ByVal FormElement, ByVal ElementValue) Caixa de seleção = Script IPT Language = JavScript Type = Text/Javascript vBcrlf string.Protype. Checkbo