Recommandé: fonctions ASP communes: LastDay () Code de programme% 'Fonction: déterminer si une valeur existe dans un array'source: http://www.cncms.com/asp.asp Fonction inArray (svalue, aarray) dim x inArray = false pour chaque x dans le code du programme de x = svalue alors inArray = vrai
<%
sur l'erreur reprendre ensuite
Privé d_exsit
Rétrovision
Domaine DIM
Dim Takenhtml
Fonction geturl (URL)
SET RETRÉVAL = Server.CreateObject (Microsoft.xmlhttp)
Avec récupération
.Open Get, URL, faux ,,
.Envoyer
GetUrl = .ResponseText
Se terminer avec
Set Retrieval = Rien
Fonction finale
Domain = remplacer (request.form (domaine), www.,) &. & Request.form (ext)
si domain = .com ou request.form (domaine) = alors
Response.Write (<Script> alert ('Regardez ce que vous avez oublié de remplir? N'avez-vous pas rempli le nom de domaine?'); JavaScript: History.back (1) </cript>)
réponse.
terminer si
'TakenHtml = geturl (http://www.intern.net/cgi/whois?whois_nic=&domain&&type=domain)
TakenHtml = geturl (http://www.china-channel.com/checkdomain.asp?action=whois&domain= & domaine)
d_exsit = 1
Si instlin (TakenHtml, pas d'entrées)> 1 alors
Response.Write Domain & quelque chose s'est mal passé, veuillez revenir! <br> <br>
autre
Si instr (TakenHtml, pas de correspondance)> 1 puis%>
Félicitations, le nom de domaine que vous souhaitez enregistrer n'est pas encore enregistré <p> <a href = #>
Cliquez ici pour commencer à enregistrer votre nom de domaine </a> </p> </font>
<% else%>
<Font Color = Red> <br> Désolé </font> Le nom de domaine que vous souhaitez enregistrer est déjà enregistré! <p> </p> Veuillez réessayer avec un nom de domaine </font>
<formulaire méthode = post-action = search.asp name = checkDomain id = form1>
www. <entrée type = text name = domain id = text1>
<select name = ext id = select1>
<Valeur d'option = com sélectionné> .com </opoption>
<Valeur d'option = net> .net </ Option>
<Option Value = org> .org </opoption>
<Valeur d'option = com.cn> .com.cn </ option>
<Option Value = net.cn> .net.cn </ Option>
<Valeur d'option = org.cn> .org.cn </opoption>
<Valeur d'option = cc> .cc </ option>
<Option Value = TV> .tv </opoption>
<Option Value = Biz> .biz </ Option>
<Option Value = info> .info </opoption>
</lect>
<input type = soumed name = soumider value = query id = soume1 onclick = return subMitchecken ();>
</form> Voici les informations d'enregistrement détaillées pour ce nom de domaine <br> </font>
<Bile> <Tr> <Td> <pre> <% = Dowith ()%> </pre> </td> </tr> </ Table> </font>
<% fin si
terminer si
Fonction Dowith ()
Lstrurl dim
Dim PageAvant
Pain à la page
Tempantage faible
Pagiste
PAGE DIM
Temps faible
PAGNEFTER = <Pre>
PageBefore = </pre>
TempContent = TakenHtml
Si d_exsit <> 0 alors
PArestart = instant (1, tempantant, Pagefter, 1)
Si Pagestart = 0 alors
Dowith = <Font Color = Red> Erreur inattendue 2! </font>
d_exsit = 3
Fonction de sortie
Autre
pArestart = Pagestart + Len (Pagefter) + 1
Pageend = instant (Pagestart, TempContent, PageBefore, 1)
Si pageend = 0 alors
Dowith = <Font Color = Red> Erreur inattendue! </font>
d_exsit = 3
Fonction de sortie
Autre
Pageend = Pageend - Pagestart 'Obtenez la longueur du contenu
TempContent = Mid (TempContent, Pagestart, Pageend)
Terminer si
Terminer si
Définir PageRegexp = New Regexp
pageRegexp.global = true
pageRegexp.Pattern = <[^>] *>
TempContent = pageRegexp.replace (tempanttent,)
Définir PageRegexP = Rien
Dowith = tempantant
Terminer si
Fonction finale
%>
Partage: fonctions communes d'ASP: CheckboxScript () Code de programme% 'Fonction: Utilisé pour cocher les valeurs de la boîte à cocher spécifiée' Source: http://www.cncms.com/asp.asp Fonction CheckboxScript (ByVal Formement, Byval ElementValue) CheckboxScript = Script iPt Language = JavaScript Type = Text / Javascript vBcrlf String.prototype. Chèque