---

Hej.

Jeg er ved at lave min egen postkortservice, inde fra mit fotoalbum.
Det virker også fint, jeg får min mail og klikker på medsendte link og
kan se postkortet. Men....

Jeg kører fortløbende nr. på de medsendte postkort og hvis man f.eks
får følgende mail:

http://www.patricia-brinch.dk/pickup/pickup.asp?msg=295 (virker ikke,
kun et eksempel)

og ændrer 295 til et vilkårligt tal før, så kan man læse andres
postkort.

Kan i give mig et godt fif til, hvordan jeg laver et unikt nr. som
ikke lige er til at finde ud af?


Mvh. Brian

---

Function getPassword(ByVal intLength)
If intLength < 0 Then intLength = 8
Dim strChars, i, strPass, intRnd
strChars = "1abc2def3ghi4skl5mno6pqr7stu8vwx9yz"

For i = 1 To intLength
Randomize
intRnd = CInt(Rnd() * (Len(strChars)-1)) + 1
strPass = strPass & Mid(strChars, intRnd, 1)
Next

getPassword = strPass
End Function


strKode = getPassword(20)


se i din database om strKode findes. Hvis strKode kald getPassword(20) og
test igen indtil strKode ikke findes. Derefter skriver du til database og
sender mail afsted med den relavante link som f.eks.
www.dinhjemmeside.dk/se_postkort2.asp?kode=dxid93kcc86cntbrat8i

mvh

A



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.435 / Virus Database: 244 - Release Date: 30-12-2002

---

On Mon, 27 Jan 2003 21:30:59 +0100, "Annette" <annette_k@hotmail.com>
wrote:

>se i din database om strKode findes. Hvis strKode kald getPassword(20) og
>test igen indtil strKode ikke findes. Derefter skriver du til database og
>sender mail afsted med den relavante link som f.eks.
>www.dinhjemmeside.dk/se_postkort2.asp?kode=dxid93kcc86cntbrat8i

Mange mange tak. Bliver afprøvet meget snart.

Mvh. Brian

---

Brian B. Christensen skrev:

> Kan i give mig et godt fif til, hvordan jeg laver et unikt nr.
> som ikke lige er til at finde ud af?

Bruger du en database til at gemme postkortene i kan du i Access
benytte vilkårlig autonummerering (giver tilfældige heltal som fx
749756936) og i MSSQL benytte uniqueidentifierfunktionen NEWID()
som leverer værdier som '7ACBE582-BD1F-4DE0-BF1C-52F88EA43432'


Ellers kan du e tråden "spørgsmål til debat" fra 9. januar i år -
trådstart: <news:3e1da7e1$0$212$edfadb0f@dread16.news.tele.dk>
(Googlelink:
<http://groups.google.com/groups?hl=da&lr=&ie=UTF-8&oe=UTF-8&threadm=3e1da7e1%240%24212%24edfadb0f%40dread16.news.tele.dk&rnum=1&prev=/groups%3Fhl%3Dda%26lr%3D%26ie%3DUTF-8%26oe%3DUTF-8%26selm%3D3e1da7e1%25240%2524212%2524edfadb0f%2540dread16.news.tele.dk> )

- her er blandt andet forklaret hvordan man kan få asp til at
generere et guid.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html