Recommandé: comment implémenter la compression RAR et la décompression du code source dans ASP ASP implémente la compression RAR et la décompression du code source, et peut être fait avec un seul fichier. ASP comprime les répertoires ou les fichiers, décompressez les fichiers RAR, supprime des fichiers spécifiques et d'autres fonctions. Ce code source est pratique pour tout le monde pour développer le secondaire et le partager. Ce qui suit est Winrar.asp Code:
Fonction: Utilisez le programme ASP pour générer un format d'image pour les numéros de téléphone de la page.
Ce qui suit est un extrait cité:
Ce qui suit est le contenu cité:
<%
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 Codds = 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) = 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
VNumberdata (2) = 11111111110001111111111111111111111111111111111111111111111111111111111111111111
VNumberdata (3) = 111111111100011111111111111111111111111111111111111111111111111111111
VNumberdata (4) = 111111111111111111111111111111111111111111111111111111100001111111111111
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 sous IMG.asp et insérez <img src = img.asp? Tel = 010-000000> à l'emplacement où le numéro de téléphone doit être affiché.
Partage: ASP implémente les opérations d'addition et de soustraction au format de date de déclaration SQL J'ai rencontré un problème au travail aujourd'hui, et j'avais besoin de me demander par le temps, mais les résultats de la requête ont été affichés de manière incorrecte. Par exemple, pour découvrir les membres inscrits sur le site Web entre 2007-10-12 et 2007-10-31, après avoir sélectionné la date, cliquez sur "Query & R