Tää pirulainen jumittaa mun servon...
bongaakos joku tuolta ilmiselvää bugia?
entä saiskos joku sen jopa toimimaan?
Eli subia kutsutaan sitten kun on tutkittu että onko domain vapaa, ja nyt sitten tarkistetaan että sopiiko se meille, eli vastaako niitä TLD -tyyppejä jotka me hyväksymme. oma TLD -listamme on erillisessä txt-filessä ylläpidon helpotukseksi (ja koodaajan kauhuksi). :D
Sub ValidateDomain
‘alustan muuttujat ja teen tuosta yhestä jo valmiiksi arrayn
Dim vStrDomain,vStrDomReverse,vDomCount,SerCreObjFSO,DomPicker,vDomainCheck,x
Dim aPosDomain
aPosDomain = Array()
‘tarkistettava domain tulee querystringillä
vStrDomain = Request.QueryString("domain")
‘käännän sen ympäri vertailun helpottamiseksi
vStrDomReverse = strReverse(vStrDomain)
vDomCount = CInt(0)
‘ lasken kuinka monta riviä on domainlistfilessä, johon on listatu kaikki sallitut domainit omille riveilleen
Set SerCreObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set DomPicker = SerCreObjFSO.OpenTextFile(Server.MapPath("domainlist.txt"),1)
Do While DomPicker.AtEndOfStream = False
vDomCount = vDomCount 1
Loop
Set DomPicker = Nothing
Set SerCreObjFSO = Nothing
‘teen arrayn jossa on yhtä monta alkiota kuin filessä rivejä
vDomCount = vDomCount - 1
ReDim aPosDomain(vDomCount)
vDomCount = CInt(0)
‘lätkin datan filestä juuri tehtyyn taulukkomuuttujaan…
Set SerCreObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set DomPicker = SerCreObjFSO.OpenTextFile(Server.MapPath("domainlist.txt"),1)
Do While DomPicker.AtEndOfStream = False
aPosDomain(vDomCount) = DomPicker.ReadLine
vDomCount = vDomCount 1
Loop
Set DomPicker = Nothing
Set SerCreObjFSO = Nothing
vDomCount = vDomCount - 1
DomainCheck = False
Sitten vaan vertaan ne perkeleet keskenään peräpäästä alkaen…
For x = 0 To vDomCount
vLenDom = Len(strReverse(aPosDomain(x)))
If Mid(vStrDomReverse,1,vLenDom) = strReverse(aPosDomain(x)) Then
vDomainCheck = True
End If
Next
If vDomainCheck = False Then
Response.Write "Invalid Domain"
End If
End Sub
vaikka uskonkin että aika hiljasta on, niin piti silti kuitenkin kysyä... kthxbye 8)
Propellihatuille VBScript-pähkinä (domainin tarkistus)
8
740
Vastaukset
- se sama
vika kommentti näköjään jostain syystä ilman lainausta...
muutenkin tuo koodi nyt tuli tuohon vähän miten sattui näköjään, mutta koittakaa saada selvä... - miten olisi
Do While DomPicker.AtEndOfStream = False
vDomCount = vDomCount 1
Loop
mikä tässä pysäyttää laskemisen?- I Am AtEndOfStream
Nih, eikös tuossa loopissa se AtEndOfStream ole aina false....varmaan servon processorin kuorma kohtuu suuri kun ajat tota :)
- alkuper.
se pysäyttää sen laskemisen, että txt-filessä loppuu rivit :)
(testattu, ja toimiva)
http://www.w3schools.com/asp/showasp.asp?filename=demo_readlines
Kiitos molmemille vastaamaan vaivautuneille, sain koodin toimimaan :)
ekaan luuppiin kun tekee haamumuuttujan johon joka rivin arvo tallennetaan niin se toimii.
Do While DomPicker.AtEndOfStream True
vNull = DomPicker.ReadLine
vDomCount = vDomCount 1
Loop- TarjaHalonen
Juh, siis ihan tiedoksi että miksi se "haamumuuttuja" tarvitaan. Auttaa ehkä myöhemmin kun käsittelet tiedostoja...
jos looppaat tiedstoa läpi tyyliin
While EndOfFile True
Do stuff
End While
Niin oletuksena siis tuo endoffile on ikuisesti false, koska tiedoston pointteri (kohta josta tiedostoa luetaan) on aina tiedoston alussa, koska se ei itsekseen liiku mihinkään. Ja tuo EndOfFile testaa ainoastaan pointterin sijaintia, ei muuta.
Erilaiset tiedotston lukemiseen tarkoitetut methodit kuten ReadLine kuitenkin siirtävät sen pontterin aina tietyn määrän merkkejä eteenpäin, jolloin se pointteri ennen pitkää tulee tiedoston loppuun ja saa aikaiseksi sen, että EndOfFile saa arvon true.
Elikkäs periaatteessa ei tarvittaisi edes tuota haamumuuttujaa, riittää kun laitat sen metodin kutsun siihen... esim.
Do While DomPicker.AtEndOfStream True
DomPicker.ReadLine
vDomCount = vDomCount 1
Loop
- p7h
http://www.seattlerobotics.org/guide/servos.html
Niin ja nimi on sama suomeksi. Ihan tiedoksi...- ulalla...
ja mitenhän toi liittyi aiheeseen?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Purra sössi kaiken 2 vuodessa, itkee nyt Marinin perään
Nyt on taas sama vanha itkuvirsi, kun ei omat taidot riittänee. Kaikki on taas muiden syytä. No miten sen "Tunnin juna"1499747Ikuiset kaipaajat
Miksette vaan mene sen kaipauksen kohteen luokse ja puhu sille suoraan? Mitä järkeä on kaipailla jotain puolituttua vuo1696149Eli persujen rääkyminen Marinin hallituksen velanotosta oli sitä itseään
"Valtiovarainministeriön mukaan Marinin hallitus lisäsi valtion pysyviä menoja 3 miljardia eikä 11 miljardia euroa." El335497Nyt se on selvitetty: Sanna Marinin hallitus lisäsi menoja 41 miljardilla
”vasemmistohallitus oli katastrofaalisen huono”, sanoo kokoomus. Sanna Marinin (sd.) hallituksen tekemät menolisäykset1725451MTV3 - Auerin poika todistaa videolla, miten Anneli pahoinpiteli lapsia!
Kello 10.04 – Ainakin kerran viikossa se löi. Löi muitakin sisaruksia, mutta ei isosiskoa. Nuorinta siskoa en ole nähny64482Orpon hallitus runnoi Tunnin junan ilman tarvetta
Näinkö valtiontaloutta hoidetaan? Siis asiantuntijoidenkin aikoja sitten kannattamattomaksi laskema Tunnin juna tehdään594453Riikka ottaa miljardi euroa EU:n yhteisvelkaa Suomelle
Niin kääntyi irvipersun takki taas, vaikka vaalilupauksissa oli ettei yhteisvelkaa Suomi enää koskaan ota. No nyt otti m883541Lindtman ylivoimainen suosikki pääministeriksi
Lindtmania kannattaa pääministeriksi peräti 50 prosenttia useampi kuin toiseksi suosituinta Kaikkosta. https://www.ilta783499En tiedä ymmärrätkö
Kuinka paljon merkitset mulle. Näet minut minuna etkä silti käännä selkääsi. Tökit jatkuvasti kepillä jäätä ja menit ehk102991Sanna Marin - Maailman paras talousasiantuntija?
PersKeKoa pukkaa? https://www.hs.fi/politiikka/art-2000011636623.html1282950