Recommandé: séparation du code et de la page dans ASP Afin d'éviter les difficultés de maintenance causées par le mélange de programmes ASP et de code HTML, cet article présente une méthode pour utiliser des modèles pour séparer les programmes et les pages pour faciliter la programmation. Lorsque vous utilisez ASP pour créer un site, il y a souvent une situation où le code de programme et le code HTML sont mélangés dans un fichier ASP. Il y a beaucoup d'inconvénients à faire ceci: 1. Sans parler de la programmation, vous devez
Fonction: Générez le numéro de téléphone sur la page au format d'image.
<%
Appelez Com_CreatValidCode (request.Querystring (Tel))
Public sub com_creatvalidcode (ptel)
'-----------------------------------------------------------------------------------------------------------------------------
Response.expires = 0
Réponse.addheader pragma, sans cache
Réponse.Addheader Cache-Ctrol, sans cache
Response.ContentType = Image / BMP
Randomiser
Dim i, ii, iii, rndcolor, strlen, sql, rs
Const codes = 5 '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Const str = 0123456789-
strlen = len (ptel)
rndcolor = chrb (cint (rnd * 255)) & chrb (cint (rnd * 255)) & chrb (cint (rnd * 255))
'-----------------------------------------------------------------------------------------------------------------------------
Dim Vcolordata (1)
'VColordata (0) = chrb (0) & chrb (0) & chrb (0)' ------ Blue 0, vert 0, rouge 0 (noir)
'VColordata (1) = Chrb (255) & Chrb (255) & Chrb (255) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'VColordata (0) = Chrb (197) & Chrb (106) & Chrb (49)' --- Blue 0, vert 0, rouge 0 (noir)
'VColordata (1) = Chrb (238) & Chrb (210) & Chrb (193)' ------- Blue 250, vert 236, rouge 211 (bleu clair)
vColordata (0) = chrb (0) & chrb (0) & chrb (0) '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
VColordata (1) = Chrb (205) & Chrb (237) & Chrb (245) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------
Randomiser
Dim Vcode ()
Redim vcode (strlen-1)
Pour i = 0 à strlen-1
vCode (i) = instr (1, str, mid (ptel, i + 1,1), 1) -1
Suivant
'-----------------------------------------------------------------------------------------------------------------------------
DIM VNUMBERDATA (11)
'Verdana Font
vnumberdata (0) = 11111111100011111111111111111111111111111111111111111111111111111
vnumberdata (1) = 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
VNumberdata (2) = 11111111110001111111111111111111111111111111111111111111111111111111111111111111
VNumberdata (3) = 111111111100011111111111111111111111111111111111111111111111111111111
VNumberdata (4) = 1111111111111111111111111111111111111111111111111100001111111111
VNumberdata (5) = 111111110000011111111111111000011111111111111111111111111111111111111111
VNumberdata (6) = 11111111110001111111111100011111111111111111111111111111111111111111111
VNumberdata (7) = 11111111100000111111111111111111111111111111111111111111111111111111111
VNumberdata (8) = 1111111111000111111111111111110001111111111111111111111111111111
VNumberdata (9) = 11111111110001111111111111111111111111111110001111111111111
vnumberdata (10) = 1111111111111111111111111111111110000011111111111111111111111111111
vnumberdata (11) = 111111111111111111111111111111111111111111111111111111111111111111
'-----------------------------------------------------------------------------------------------------------------------------
Réponse.binarywrite chrb (66) & chrb (77) & chrb (((strlen * 8 * 10 * 3 + 54) mod 256)) & chrb (((strlen * 8 * 10 * 3 + 54) / 256) mod 256) & chrb (((((strlen * 8 * 10 * 3 + 54) / 256) / 256) mod 256) & chrb (0) & chrb (0) & _
Chrb (0) & chrb (0) & chrb (54) & chrb (0) & chrb (0) & chrb (0) & chrb (40) & chrb (0) & _
Chrb (0) & chrb (0) & chrb (strlen * 8) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (10) & chrb (0) & _
Chrb (0) & chrb (0) & chrb (1) & chrb (0)
'-----------------------------------------------------------------------------------------------------------------------------
Réponse.binarywrite chrb (24) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & _
Chrb ((strlen * 8 * 10 * 3) mod 256) & chrb (((strlen * 8 * 10 * 3) / 256) mod 256) & chrb ((((strlen * 8 * 10 * 3) / 256) / 256) mod 256) & chrb (((((strlen * 8 * 10 * 3) / 256) / 256) mod 256) & _
Chrb (196) & chrb (14) & chrb (0) & chrb (0) & chrb (196) & chrb (14) & chrb (0) & chrb (0) & _
Chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0)
Pour i = 9 à 0 étape -1 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Pour ii = 0 à strlen-1 '--------- après tous les mots
Pour iii = 1 à 8 '-----------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Si rnd * 99 + 1 <codds alors '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Réponse.binarywrite rndcolor
Autre
Response.BinaryWrite Vcolordata (Mid (vNumberData (vCode (II)), i * 8 + iii, 1))
Terminer si
Suivant
Suivant
Suivant
Sub-Sub
%>
Enregistrez le code ci-dessus en tant qu'img.asp et insérez <img src = img.asp? Tel = 0591-26728373> à l'emplacement où le numéro de téléphone doit être affiché.
Source: Muziwu Auteur: DNAWO
Partager: Tutoriel ASP: Conseils pour ASP pour générer des pseudo-paramètres Il y a deux jours, je travaillais sur une version en site du moteur de recherche d'entreprise et j'ai constaté que certains sites peuvent être liés au contenu du site. . Je l'ai regardé étrangement et j'ai constaté qu'il était lié en fonction des règles de numérotation automatique de l'identification de la base de données ~~ J'ai fait la chose suivante pendant mon temps libre, en espérant que cela sera utile à tout le monde dans le futur programmes ASP! % '' // générer un nombre aléatoire de chiffres spécifiés '' // Vous pouvez également utiliser GUID