Funktion: Generieren Sie die Telefonnummer auf der Seite zum Bildformat.
Die Codekopie lautet wie folgt:
<%
Callcom_creatvalidcode (request.queryString ("tel"))
Publicsubcom_creatvalidcode (PTEL)
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Response.expires = 0
Response.addHeader "Pragma", "No-Cache"
Response.addHeader "Cache-Ctrol", "No-Cache"
Antwort.ContentType = "Bild/BMP"
Randomisieren
Dimi, II, III, Rndcolor, Strlen, SQL, Rs
ConstcOdds=5'---------------------------------------------------------------------------------------------------------------------
Conststr = "0123456789-"
strlen = len (ptel)
rndcolor = chrb (cint (rnd*255)) & chrb (cint (rnd*255)) & chrb (cint (rnd*255)))
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dimvcolordata (1)
'vcolordata (0) = chrb (0) & chrb (0) & chrb (0)' ----- blau 0, grün 0, rot 0 (schwarz)
'vColorData(1)=ChrB(255)&ChrB(255)&ChrB(255)'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'vcolordata (0) = chrb (197) & chrb (106) & chrb (49)' ----- blau 0, grün 0, rot 0 (schwarz)
'Vcolordata (1) = CHRB (238) & CHRB (210) & CHRB (193)' -------- Blue 250, Green 236, Red 211 (hellblau)
vcolordata (0) = chrb (0) & chrb (0) & chrb (0) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
vcolordata (1) = chrb (205) & chrb (237) & chrb (245) '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Randomisieren
Dimvcode ()
redimvcode (strlen-1)
Fei = 0ToStrlen-1
vcode (i) = instr (1, str, Mid (ptel, i+1,1), 1) -1
Nächste
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
DimvnumberData (11)
'Verdanafont
vnumberData (0) = "1111111111110001111111111111111111111111111111111111111111111111"