Este programa coloca os números do contador no banco de dados ACCESS, mas você pode usar qualquer outra fonte de dados ODBC que desejar. Este programa lê as informações do contador da URL:
< IMG src="id=MYTEST&seq=default&cells =7" >.
Parâmetros
id é
a designação da página web do cliente (ou seja, o nome do usuário). Cada vez que você usar um novo ID, um novo registro será inserido no banco de dados. Se o ID existir originalmente, sua contagem aumentará em 1. Se você não quiser que o cliente ative automaticamente um ID e precise se cadastrar, então atribuir o valor de "inserção automática" para False
é
usado para selecionar o estilo da imagem do contador. o nome da imagem exibida no cliente é .gif. O valor padrão é "defalut.gif", e este "defalut.gif" deve ser colocado no diretório de trabalho atual
é
opcional. resultado, o padrão é 5 dígitos (este valor você definiu no programa (também pode ser ajustado) Como executar este programa? Copie este programa para o local desejado no servidor.
Crie uma fonte de dados "Webcounter". Deve haver uma tabela chamada "main" nesta fonte de dados A seguir está a tabela Campos em:
< table border="1" cellpadding="3" cellpacing="1" >.
<tr>
< th >Campo< /th >
< th >Tipo< /th >
< th >Indexado< /th >
< th >Meios< /th >
< /tr>
<tr>
<td >identidade< /td >
< td >Numeração automática</ 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 >contagem< /td >
< td >Número</ td >
<td >Não< /td >
< td >Contando Números</td>
< /tr>
< /tabela>
Se necessário, atribua permissões ao banco de dados
e crie um diretório para armazenar gráficos GIF. Neste diretório, pelo menos um grupo de gráficos de default.gif deve ser colocado. Conceda permissões a este arquivo quando apropriado.
Coloque alguns gráficos numéricos neste diretório que sejam divisíveis por 10.
< table width="100%" border="1" cellpacing="1" cellpadding="2" >
<tr>
< td bgcolor="#ccffff" >Arquivo < b >counter.asp</b > </ /td >
< /tr>
<tr>
< td bgcolor="#ffffcc" >< pré >
<%
Response.ContentType="imagem/gif"
Resposta.Expira=0
'O diretório onde as barras GIF são colocadas termina com .
workdir="c:gifbars"
'Defina como False se quiser desabilitar a inserção automática
'novos registros de contador no banco de dados em cada hit com exclusivo
'cadeia de identificação
auto_insert = Verdadeiro
id=Trim(Request.QueryString("id"))
seq=Trim(Request.QueryString("seq"))
if seq="" então seq="padrão"
células=Trim(Request.QueryString("células"))
if células="" então células=5 senão células=células*1
definir conn=Server.CreateObject("ADODB.Connection")
conexão.Abrir "Webcounter"
sql="selecione contagem,ident do principal onde id='" & id & "'"
definir rs=conn.Execute(sql)
se não rs.EOF então
contagem=rs("contagem")+1
ident=rs("ident")
rs.fechar()
conn.Execute("atualizar contagem do conjunto principal = contagem + 1 onde ident = "& ident)
conexão.close()
MostrarNúmeros()
outro
rs.fechar()
se auto_insert=True e id< >"" então
conn.Execute("inserir nos valores principais (id, contagem) ('" & id & "',1)")
contagem=1
MostrarNúmeros()
terminar se
conexão.close()
fim se
Sub ShowNumbers()
definir g=CreateObject("shotgraph.image")
nome do arquivo=workdir & seq & ".gif"
se g.GetFileDimensions(filename,xsize,ysize,pal)< >1 então saia do Sub
xdígito=xtamanho10
g.CreateImage xdigit*cells,ysize,UBound(pal)+1
g.InitClipboard xsize,ysize
g.SelectClipboard Verdadeiro
para i=0 para UBound(pal)
g.SetColor i,amigo(i,0),amigo(i,1),amigo(i,2)
próximo
g.Nome do arquivo ReadImage, amigo, 0,0
para i = 1 para células
k = GetDigit (contagem, células-i)
g.Cópia (i-1)*xdígito,0,xdígito,ysize,k*xdígito,0,"SRCCOPY"
próximo
Response.BinaryWrite g.GifImage(-1,1,"")
End Sub
Function GetDigit (número, posição)
número1=número(10^posição)
tmp=número110
GetDigit=número1-tmp*10
Função Final
%>
<xmp>
</pré>
</ /td >
< /tr>
< /table >
< hr >< /span >< /td >
< /tr>
<tr>
<td largura="50%" > </ /td >
<td largura="50%" >< br >< /td >
< /tr>
<tr>
<td colspan=2 alinhar="direita" >
< img border="0" src="images/bbstitle.gif" >< a id="hlkAddMsg" href="/AddMsg.aspx?id=234" style="color:red" >Deixe um comentário</a >
< img border="0" src="images/mail.gif" >< a id="hlkMailTo" href="/MailTo.aspx?id=234" >Enviar esta página por correio</a>
< img border="0" src="images/print.gif" >< a href="javascript:window.print()" >Imprimir esta página</a>
< img border="0" src="images/profile.gif" >< a href="javascript:void(null)" onclick="if(!document.execCommand('SaveAs','show.aspx',1 )) return false;" >Salvar esta página</a >
< img border="0" src="images/ask.gif" >< a href="bbs/index.asp" >Você tem dúvidas</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 largura="50%" valign="topo" >
</ /td >
< td width="50%" valign="top" >
</ /td >
< /tr>
<tr>
< td largura = "50%" >
</ /td >
<td width="50%" align="right" >< img border="0" src="images/more.gif" >< a id="hlkRela" >< /a >< /td >
< /tr>
< /tabela>
</ /td >
< /tr>
< /tabela>
</ /td >
< /tr>
< /tabela>
</corpo>
</html>