Recomendado: Separação de código e página em ASP Para evitar dificuldades de manutenção causadas pela mistura de programas ASP e código HTML, este artigo apresenta um método para usar modelos para separar programas e páginas para facilitar a programação. Ao usar asp para criar um site, muitas vezes há uma situação em que o código do programa e o código HTML são misturados em um arquivo ASP. Há muitas desvantagens em fazer isso: 1. Sem mencionar a programação, você precisa
Função: Gere o número de telefone na página para o formato da imagem.
<%
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) & 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) e Chrb (0) e Chrb (0) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
vcolordata (1) = Chrb (205) e Chrb (237) e 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) = 1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vnumberData (2) = 111111111110001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vNumberData (3) = 111111111110001111111011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vNumberData (4) = 111111111111111111101111111111111111111111111111111111111110000111111111111
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) e Chrb (77) e Chrb (((Strlen*8*10*3+54) Mod 256)) & Chrb (((Strlen*8*10*3+54)/ 256) Mod 256) e Chrb (((((((Strlen*8*10*3+54)/ 256)/ (((((((((((((((((())) 1,adora) sãoorana))) 1ª) 1ª) 1ª posição & _
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 = 0591-26728373> No local onde o número de telefone deve ser exibido.
Fonte: Muziwu Autor: Dnawo
Compartilhar: ASP Tutorial: Dicas para o ASP gerar pseudo-parâmetros Dois dias atrás, eu estava trabalhando em uma versão no local do mecanismo de pesquisa corporativo e descobri que alguns sites podem vincular-se ao conteúdo do site. . Eu olhei estranhamente e descobri que estava ligado de acordo com as regras de numeração automática do ID do banco de dados ~~ fiz a seguinte coisa no meu tempo livre, esperando que seja útil para todos nos futuros programas ASP! % '' // gerar número aleatório de dígitos especificados '' // você também pode usar o GUID