Recomendado: como implementar a compressão rar e a descompressão do código -fonte no ASP O ASP implementa a compactação e a descompressão do código -fonte e podem ser feitas com apenas um arquivo. O ASP comprime diretórios ou arquivos, descompõe arquivos RAR, exclui arquivos específicos e outras funções. Esse código -fonte é conveniente para que todos se desenvolvam secundários e o compartilhem. A seguir, o código Winrar.asp:
Função: use o programa ASP para gerar formato de imagem para números de telefone na página.
A seguir, é apresentado um trecho citado:
A seguir, o conteúdo citado:
<%
Ligue para o com_creatValidCode (request.QueryString (tel))
Public Sub com_creatValidCode (PTEL)
'-----------------------------------------------------------------------------------------------------------------------------------
Response.Expires = 0
Response.AddHeader Pragma, sem cache
Response.AddHeader Cache-Ctrol, sem cache
Response.ContentType = Image/BMP
Randomizar
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) e Chrb (0) e Chrb (0)' ----- Blue 0, verde 0, vermelho 0 (preto)
'vcolordata (1) = Chrb (255) e Chrb (255) e Chrb (255)' ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'vcolordata (0) = Chrb (197) e Chrb (106) e Chrb (49)' --- Blue 0, Green 0, Red 0 (preto)
'vcolordata (1) = Chrb (238) e Chrb (210) e Chrb (193)' ------- Blue 250, Green 236, vermelho 211 (azul claro)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
vcolordata (1) = Chrb (205) e Chrb (237) & Chrb (245) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------------
Randomizar
Dim vcode ()
Redim Vcode (Strlen-1)
Para i = 0 para strlen-1
vcode (i) = instrum (1, str, mid (ptel, i 1,1), 1) -1
Próximo
'-----------------------------------------------------------------------------------------------------------------------------------
Dim vNumberData (11)
Fonte de Verdana
vNumberData (0) = 1111111111100011111011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vNumberData (1) = 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vnumberData (2) = 111111111110001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vNumberData (3) = 111111111110001111111011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vNumberData (4) = 1111111111111111111011111111111111111111111111111111111111111111100001111111111
vNumberData (5) = 111111111000001111111111111111111111111111111111111111111111111111111111111111111
vNumberData (6) = 111111111110001111111111111111111111111111111111111111111111111111111111111111111
vNumberData (7) = 11111111100000111011011111111111111111111111111111111111111111111111111111111111111
vNumberData (8) = 11111111111000111110111111111111111111111111111111111111111111111111111
vNumberData (9) = 1111111111100011111111111111111111111111111111111110001111111111111111
vNumberData (10) = 111111111111111111111111111111111111111111111111111111111111111111111111111111
vNumberData (11) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111
'-----------------------------------------------------------------------------------------------------------------------------------
Response.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) e Chrb (54) e Chrb (0) e Chrb (0) e Chrb (0) & Chrb (40) & Chrb (0) & _
Chrb (0) e Chrb (0) e Chrb (Strlen*8) & Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (10) e Chrb (0) & _
Chrb (0) e Chrb (0) e Chrb (1) e Chrb (0)
'-----------------------------------------------------------------------------------------------------------------------------------
Response.BinaryWrite Chrb (24) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e 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) e Chrb (0) e Chrb (0) e Chrb (196) e Chrb (14) & Chrb (0) & Chrb (0) & _
Chrb (0) & Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0)
Para i = 9 a 0 etapa -1 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Para ii = 0 a strlen-1 '--------- depois de todas as palavras
Para iii = 1 a 8 '---------------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Se rnd * 99 1 <codds então '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Response.BinaryWrite rndColor
Outro
Response.BinaryWrite vcolordata (MID (VNumberData (vcode (ii)), i * 8 iii, 1))
Final se
Próximo
Próximo
Próximo
Final sub
%>
Salve o código acima como img.asp e insira <img src = img.asp? Tel = 010-000000> No local onde o número de telefone deve ser exibido.
Compartilhar: ASP implementa operações de adição e subtração no formato de data da instrução SQL Encontrei um problema no trabalho hoje e precisava consultar o tempo, mas os resultados da consulta foram exibidos incorretamente. Por exemplo, para descobrir os membros registrados no site entre 2007-10-12 e 2007-10-31, depois de selecionar a data, clique em "Query & r