Validering af Domain navn!

hehe det er da vist et skjult spørgsmål efter en whois!! Check på http://www.activeserverpages.dk og søg efter et whois script. der kan du se i kilden hvordan!

Whois har jeg ikke noget problemmer med! Den virker fint, alt Jeg vil gerne vide er validere en domain navn med nævnte regler, før jeg køre den i Whois database, kan du se, her er der ingen skjult spørgsmål i...

*sss* men i din whois checker du jo oxi for hvad der står.. kan du så ikke bare checke 2 gange? første check ser på om der står andet end dine kriterier og giver fejl i så fald. dernæst checker den så om domænet er ledigt..

yup der er meningen! men kender du nogen link, hvor jeg kan finde nødvendige streng kommandoer??? til VBS...

eller nogen kan klar det? sådan et script løbet af ingen tid? :-)

Kan du bruge denne her: http://www.thewebmasters.net/php/Validator.phtml

Lojmann>> Tak for linket! men Jeg vil gerne bruge Vbscript i min ASP side...

Du kan bruge regular expressions. Jeg har noget kode liggende på arb. jeg kan sende i morgen, men så hut jeg hvisker er det:

Tjek længden med

If (Len(strDomain) > 63) Then [gør_noget_ved fejlen]

Benyt også regular expression\'et

objRe.Pattern = \"^[a-zA-Z0-9]+(([a-zA-Z0-9]|

• )*[a-zA-Z0-9])[.](com|net|org)$\"
  

Og lav en

If NOT objRe.Test(strDomain) Then [gør_noget_ved_fejlen]


Men jeg kan lige sende noget i morgen ellers...

ok! Tak.. Jeg venter på din mail imorgen!

mens jeg prøver at kode lidt selv !

Nej, nej, nej....

Han skal da bruge et JavaScript !

Det tjekker form-feltet hvor domænenavnet er indtastet INDEN brugeren sender det afsted !


/DouBle-T

P.S
JavaScript er ikke min stærke side

Svar...:o)

Den behøver ikke være en client side script!
derfor VBS er ok!

De ville da være det nemmeste !

Og hurtigste !!!


/DouBle-T

morph:
Afhængigt af hvad han skal bruge det til vil server side validering nok være nødvendigt alligevel. Javascript kan nemt omgås, og så sidder han med invalide data...

Leander:
Det er da smart, hvis hans server er belastet af meget trafik !
Her kan han endelig få noget af det serveren kunne lave over på klienten !

ja, det er måske rigtig! men den her tilfælde, vil jeg gerne have den på server side! :)

<%Option Explicit

Dim objRe
Dim strDomain
Dim strPattern

strDomain = Request.QueryString(\"domain\")

Set objRe = New RegExp

strPattern = strPattern & \"^[a-zA-Z0-9]+\"        \' Skal starte med et eller flere alfanumeriske karakterer (US)
strPattern = strPattern & \"((

• |[a-zA-Z0-9])*)*\"    \' Herefter en eller flere [bindestreger efterfulgt af et eller flere alfanumeriske karakterer (US)
  

strPattern = strPattern & \"[.](com|net|org)$\"        \' Til sidst et punktum, 2-3 bogstaver (US) og slut på linie

objRe.Pattern = strPattern
objRe.IgnoreCase = True
objRe.Global = True

If objRe.Test(strDomain) = FALSE Then
  Response.Write \"UGYLDIGT domæne navn\"
Else
  Response.Write \"GYLDIGT domæne navn\"
End If

Set objRe = Nothing
%>

Erstat selv strDomain med hvad du vil teste og evt. en anden aktion når domænet er gyldigt/ugyldigt.

den ser rigtig ud, Jeg checker den når jeg kommer hjem!

Damn - jeg glemte længden :-)

<%Option Explicit

Dim objRe
Dim strDomain
Dim strPattern

strDomain = Request.QueryString(\"domain\")

Set objRe = New RegExp

strPattern = strPattern & \"^[a-zA-Z0-9]+\"        \' Skal starte med et eller flere alfanumeriske karakterer (US)
strPattern = strPattern & \"((

• |[a-zA-Z0-9])*)*\"    \' Herefter en eller flere [bindestreger efterfulgt af et eller flere alfanumeriske karakterer (US)
  

strPattern = strPattern & \"[.](com|net|org)$\"        \' Til sidst et punktum, 2-3 bogstaver (US) og slut på linie

objRe.Pattern = strPattern
objRe.IgnoreCase = True
objRe.Global = True

If (objRe.Test(strDomain) = FALSE) OR (Len(strDomain) > 63) Then
  Response.Write \"UGYLDIGT domæne navn\"
Else
  Response.Write \"GYLDIGT domæne navn\"
End If

Set objRe = Nothing
%>

Leander>> godt! endnu et spørgsmål, hvordan sætte jeg to streng sammen
feks.
streng1=\"lala\"
streng2=\"haha\"
streng3=streng1+streng3
streng3=\"lalahaha\" ?????
fik du spørgsmålet?

Ja, du mener vel:

streng3=streng1+streng2 <- 2

Du benytter & (concatenation) oprerator\'en

Streng1 = \"LaLa\"
Streng2 = \"HaHa\"
Streng3 = Streng1 & Streng2

Streng3 vil nu være \"LaLaHaHa\".

Du _kan_ godt benytte + operatoren, men den kan give ustabile resultater - så brug &

Den kan også benyttes på tal.

Streng1 = \"LaLa\" & 3

Streng1 er nu \"LaLa3\"

ok tak for svaret! Jeg vil prøve det.

yak, afvist dit svar! hvorden giver jeg point?, kan du ikke svar mig igen! sorry!

Plok

her får du det 100 point!

thanks. :-9

yak jeg får problem!

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a0400\'

En sætning var ventet

/checktest.asp, linje 50

Option Explicit
^

Underligt... Option Explicit betyder at alle variabler explicit skal dimensioneres. Du kan godt fjerne den, uden at det får bivirkninger på scriptets funktionalitet, men det burde virke.

Jeg testede det på NT Srv. 4.0/IIS4. Strange.

Prøv at ændre scriptet til:

<%Option Explicit%>

<% ...[resten af scriptet]

Du har helt ret Leander, Option Explicit, skal ALTID stå i toppen af scriptet.