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? :)
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% ' 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.
