Recomendado: projete o módulo de login para usuários do ASP Script de verificação de login do usuário, chkpwd.asp a seguir é o conteúdo referenciado: % '========== Script de verificação de login do usuário ======' se o objeto passado ainda não estiver definido, ele é definido como falso, indicando que não houver não
Este programa coloca o número do contador no banco de dados de acesso e, é claro, você também pode usar outras fontes de dados do ODBC desejadas. Este programa lê as informações de contagem do URL. Do seguinte modo:
<Img src = id = mytest & seq = padrão & células = 7>
parâmetro
eu ia
Peugeot (ou seja, nome de usuário) da página da web do cliente. Toda vez que você usa um novo ID, um novo registro será inserido no banco de dados. Se esse ID existir, sua contagem será aumentada em 1. Se você não deseja que o cliente inicie automaticamente um ID e precisará se registrar, atribuirá o valor automaticamente inserido ao FALSE.
Seq
Opcional. Usado para selecionar o estilo da imagem do contador. O nome da imagem exibido no cliente é .gif. O valor padrão é defalut.gif, e esse defalut.gif deve ser colocado no diretório de trabalho atual!
células
Opcional. O número de bits exibidos no resultado da contagem é de 5 bits (você pode ajustar esse valor no programa) Como executar este programa
Copie este programa para onde você o deseja no servidor.
Crie uma webcounter da fonte de dados. Deve haver um nome de tabela nessa fonte de dados principal, e a seguir estão os campos nesta tabela:
A seguir, o conteúdo citado:
<borda da tabela = 1 CellPadding = 3 Cellpacing = 1>
<tr>
<th> campo </th>
<th> tipo </th>
<th> indexado </th>
<th> significa </th>
</tr>
<tr>
<Td> identificador </td>
<Td> AutoNumber </td>
<Td> Sim </td>
<Td> Para suas necessidades </td>
</tr>
<tr>
<td> id </td>
<td> texto </td>
<Td> Sim </td>
<td> nome de usuário </td>
</tr>
<tr>
<td> count </td>
<Td> Número </td>
<Td> Não </td>
<Td> Contando números </td>
</tr>
< /tabela>
Atribua uma permissão ao banco de dados, se necessário
Crie um diretório que armazena gráficos GIF e coloque pelo menos um grupo gráfico padrão.gif neste diretório. Dê permissões a este arquivo conforme apropriado.
Coloque alguns gráficos digitais neste diretório que podem ser divisíveis em 10.
A seguir, o conteúdo citado:
<largura da tabela = 100% de borda = 1 espaço de células = 1 CellPadding = 2>
<tr>
<td bgcolor =#ccffff> arquivo <b> contador.asp </b> </td>
</tr>
<tr>
<td bgcolor =#ffffcc> <pre>
< %
Response.ContentType = Image/GIF
Response.Expires = 0
'O diretório onde as barras GIF são colocadas. Termina com /
workdir = c:/gifbars/
'Defina isso como falso se você quiser desativar a inserção automática
'Novos registros de contador para o banco de dados em todos os acréscimos com exclusivo
'Id String
auto_insert = true
ID = Trim (request.QueryString (ID))
SEQ = TRIM (request.QueryString (SEQ))
se seq = então seq = padrão
Células = Trim (request.QueryString (células))
se células = então células = 5 else células = células*1
Definir Conn = Server.CreateObject (Adodb.Connection)
Conn.Open webcounter
sql = selecione contagem, identificador de main onde id = '& id &'
Definir rs = Conn.Execute (SQL)
se não Rs.eof então
contagem = rs (contagem) 1
Ident = rs (ident)
rs.close ()
Conn.Execute (Atualização do conjunto principal contagem = contagem 1 onde identidade = e identidade)
Conn.Close ()
Mostrousumbers ()
outro
rs.close ()
se auto_insert = true e id <> então
Conn.Execute (inserir em valores principais (id, contagem) ('& id &', 1))
contagem = 1
Mostrousumbers ()
final se
Conn.Close ()
final se
Sub Shallumbers ()
set g = createObject (shotpraph.image)
nome do arquivo = workdir & seq & .gif
Se G.GetFiledImensions (nome do arquivo, xsize, ysize, pal) <> 1 então saia submarino
xdigit = xsize/10
G.CreateImage Xdigit*Células, YSize, Ubound (PAL) 1
G.initclipboard xsize, ysize
G.SELECTCLIPBOARD TRUE
para i = 0 para ubound (PAL)
G.setColor I, Pal (i, 0), Pal (i, 1), Pal (i, 2)
próximo
G.ReadImage Filename, PAL, 0,0
para i = 1 para células
k = getDigit (contagem, células-i)
G.copy (i-1)*xdigit, 0, xdigit, ysize, k*xdigit, 0, srccopy
próximo
Response.BinaryWrite G.GIFIMAGE (-1,1,)
Final sub
Função getDigit (número, posição)
número1 = número/(10^posição)
tmp = número 1/10
GetDigit = número1-tmp*10
Função final
%>
<xmp>
</pre>
</td>
</tr>
< /tabela>
<Hr> </span> </td>
</tr>
<tr>
<td width = 50%> </td>
<td width = 50%> <br> </td>
</tr>
<tr>
<td colspan = 2 align = direita>
<borda img = 0 src = imagens/bbstitle.gif> <a id = hlkaddmsg href =/addmsg.aspx? id = 234 style = cor: vermelho> deixe um comentário </a>
<borda img = 0 src = imagens/mail
<borda img = 0 src = imagens /print.gif> <a href = javascript: window.print ()> imprima esta página < /a>
<borda img = 0 src = imagens/perfil.gif> <a href = javascript: void (null) onclick = if (! > Salve esta página </a>
<borda img = 0 src = imagens/ask.gif> <a href = bbs/index.asp> você tem perguntas </a>
</td>
</tr>
<tr bgcolor =#97b9ff>
<td width = 50%> <b> <font color =#ffffff> artigos relacionados </font> </b> </td>
<td width = 50%> <b> <font color =#ffffff> Comentários relacionados </font> </b> </td>
</tr>
<tr>
<td width = 50% valign = top>
</td>
<td width = 50% valign = top>
</td>
</tr>
<tr>
<td width = 50%>
</td>
<td width = 50% align = direita> <borda img = 0 src = imagens /mais.gif> <a id = hlkrela> < /a> </td>
</tr>
< /tabela>
</td>
</tr>
< /tabela>
</td>
</tr>
< /tabela>
< /body>
</html>
Compartilhar: Uma breve discussão sobre o princípio do programa de aquisição da ASP As etapas principais do programa de coleta são as seguintes: 1. Obtenha o conteúdo da página 2 coletada. Extraia todos os dados do código de aquisição 1. Obtenha o conteúdo da página coletada que conheço atualmente sobre os métodos comumente usados para obter a página coletada: 1.