19. oktober 2004 - 18:42Der er
11 kommentarer og 1 løsning
Multi kode generator?
Hej Alle!
Nu har jeg siddet og kløjset med mit problem i over 1½ minut :)
Jeg har et side, hvor hvor indtaster:
- Navn - Antal
Jeg vil nu genere X (bestemmes af Antal) antal koder, og lagre dem én efter én i min database. Med andre ord 1 kode pr. record.
Men før hver kode bliver lagt i databasen skal hver kode kontrolles, om der findes en dublikat. Hvis der gør skal det ikke bruges.
Hvis et kodeord ikke eksisterer i databasen skal det lægges ind. Hvis der i feltet Antal er blevet indtastet 10 skal der så ligges 10 koder + Feltet navn (Hvilket er det samme altid) ind.
Min database: database.mdb Min tabel: Validering Mit kodefelt: FeltV Mit navnefelt: Forhandler
Er der ikke nogle, der har et script, der gør det, eller en konkret ide til det i kodeform? :)
<% ' HER GENERERER VI EN KODE PÅ 20 KARAKTERER ' *************************************************
Function lavPassword(antal) tilladtkarakter = "1234567890" str = "" randomize for i = 1 to antal index = Int(rnd * len(tilladtkarakter))+1 str = str & Mid(tilladtkarakter,index,1) next lavPassword = str end function
KODEN = lavPassword(20)
' HER FINDER VI UD AF, OM DET EKSISTERER? ' ***************************************
Response.Buffer = True
Set Con = Server.CreateObject("ADODB.Connection") DBPath = "DBQ=" & server.mappath("../../database/database.mdb") Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
SQL = "Select * From Validering WHERE FeltV = '" & KODEN & "'" Set Record = Con.Execute(Sql)
KodeOK = False
Do Until KodeOk
If Record.BOF And Record.EOF Then
kodeOK = true
End If
Loop
Con.Close Set Con = Nothing
' HVIS KODEN IKKE EKSISTERER? ' ***************************
<% ' HER GENERERER VI EN KODE PÅ 20 KARAKTERER ' *************************************************
Function lavPassword(antal) tilladtkarakter = "1234567890" str = "" randomize for i = 1 to antal index = Int(rnd * len(tilladtkarakter))+1 str = str & Mid(tilladtkarakter,index,1) next lavPassword = str end function
KODEN = lavPassword(20)
' HER FINDER VI UD AF, OM DET EKSISTERER? ' ***************************************
Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/database.mdb") Conn.Open DSN SQL = "Select * From Validering WHERE FeltV = '" & KODEN & "'" Set Record = Con.Execute(Sql)
KodeOK = False
Do Until KodeOk
If Record.BOF And Record.EOF Then
kodeOK = true
End If
Loop
Con.Close Set Con = Nothing
' HVIS KODEN IKKE EKSISTERER? ' ***************************
<% ' HER GENERERER VI EN KODE PÅ 20 KARAKTERER ' *************************************************
Function lavPassword(antal) tilladtkarakter = "1234567890" str = "" randomize for i = 1 to antal index = Int(rnd * len(tilladtkarakter))+1 str = str & Mid(tilladtkarakter,index,1) next lavPassword = str end function
Set Con = Server.CreateObject("ADODB.Connection") DBPath = "DBQ=" & server.mappath("../../database/database.mdb") Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
antal = int(Request.From("antal")) navn = Request.Form("navn")
do while antal>0 KODEN = lavPassword(20)
' HER FINDER VI UD AF, OM DET EKSISTERER? ' ***************************************
SQL = "Select * From Validering WHERE FeltV = '" & KODEN & "'" Set Record = Con.Execute(Sql) if Record.EOF then SQL = "insert into Validering (navn, FeltV) values ('" & navn & "', '" & KODEN & "')" Con.Execute(sql) antal=antal-1 end if loop
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
