Este programa coloca los números del contador en la base de datos ACCESS, pero puede utilizar cualquier otra fuente de datos ODBC que desee. Este programa lee la información del contador de la URL Aquí está:
< IMG src="id=MYTEST&seq=default&cells =7" >.
Parámetros
id es
la designación de la página web del cliente (es decir, el nombre de usuario). Cada vez que utilice una nueva ID, se insertará un nuevo registro en la base de datos. Si la ID existe originalmente, su recuento aumentará en 1. Si no desea que el cliente active automáticamente una identificación y necesita registrarse, asigna el valor de "inserción automática" a False
seq
. Se utiliza para seleccionar el estilo de la imagen del contador. El nombre de la imagen que se muestra en el cliente es .gif. El valor predeterminado es "defalut.gif", y este "defalut.gif" debe colocarse en las
celdas
del directorio de trabajo actual. El número de dígitos que se muestran en el conteo. resultado, el valor predeterminado es 5 dígitos (este valor lo establece en el programa (también se puede ajustar) ¿Cómo ejecutar este programa? Copie este programa en el lugar que desee en el servidor.
Cree una fuente de datos "Webcounter". Debe haber una tabla llamada "principal" en esta fuente de datos La siguiente es la tabla Campos en:
< table border="1" cellpadding="3" cellspace="1" >.
<tr>
< th >Campo< /th >
< th >Tipo< /th >
< th >Indexado< /th >
< th >Medios< /th >
< /tr >
<tr>
< td >identificación< /td >
< td >Número automático</ td >
<td>Sí</td>
< td >Para tus necesidades< /td >
< /tr >
<tr>
< td >identificación< /td >
< td >Texto</ /td >
<td>Sí</td>
<td>Nombre de usuario</td>
< /tr >
<tr>
< td >recuento< /td >
< td >Número</ td >
< td >No< /td >
< td >Contando Números</td>
< /tr >
< /tabla >
Si es necesario, asigne permisos a la base de datos
y cree un directorio para almacenar gráficos GIF. En este directorio, se debe colocar al menos un grupo de gráficos de default.gif. Otorgue permisos a este archivo cuando corresponda.
Coloque algunos gráficos numéricos en este directorio que sean divisibles por 10.
< table width="100%" border="1" cellpacing="1" cellpadding="2" >
<tr>
< td bgcolor="#ccffff" >Archivo < b >counter.asp</b > </ /td >
< /tr >
<tr>
< td bgcolor="#ffffcc" >< pre >
<%
Respuesta.ContentType="imagen/gif"
Respuesta.Expira=0
'El directorio donde se colocan las barras GIF termina en .
workdir="c:gifbars"
'Establezca esto en Falso si desea desactivar la inserción automática
'nuevos registros de contador en la base de datos sobre cada visita con características únicas
'cadena de identificación
auto_insert=Verdadero
id=Recortar(Request.QueryString("id"))
secuencia=Recortar(Request.QueryString("secuencia"))
si seq="" entonces seq="predeterminado"
celdas=Recortar(Request.QueryString("celdas"))
si celdas="" entonces celdas=5 si no celdas=celdas*1
establecer conexión=Server.CreateObject("ADODB.Connection")
conexión.Abrir "Contador web"
sql="seleccione recuento,identificación de principal donde id='" & id & "'"
establecer rs=conn.Ejecutar(sql)
si no es rs.EOF entonces
cuenta=rs("cuenta")+1
ident=rs("identificador")
rs.cerrar()
conn.Execute("actualizar el conjunto principal count=count+1 donde ident=" & ident)
conexión.cerrar()
Mostrar números()
demás
rs.cerrar()
si auto_insert=True y id< >"" entonces
conn.Execute("insertar en los valores principales (id,count) ('" & id & "',1)")
contar=1
Mostrar números()
terminar si
conexión.cerrar()
finalizar si
Sub ShowNumbers()
establecer g=CreateObject("shotgraph.image")
nombre de archivo = directorio de trabajo y secuencia y ".gif"
si g.GetFileDimensions(nombre de archivo,xsize,ysize,pal)< >1 entonces salga de Sub
xdígito=xtamaño10
g.CreateImage xdigit*celdas,ysize,UBound(pal)+1
g.InitClipboard tamaño x, tamaño y
g.SelectClipboard Verdadero
para i=0 a UBound(pal)
g.SetColor i,pal(i,0),pal(i,1),pal(i,2)
próximo
g.ReadImage nombre de archivo, amigo, 0,0
para i=1 a celdas
k=GetDigit(recuento,celdas-i)
g.Copiar (i-1)*xdigit,0,xdigit,ysize,k*xdigit,0,"SRCCOPY"
próximo
Respuesta.BinaryWrite g.GifImage(-1,1,"")
Fin de
la subfunción GetDigit (número, posición)
número1=número(10^posición)
tmp=número110
ObtenerDigit=número1-tmp*10
Función final
%>
<xmp>
< /pre >
</ /td >
< /tr >
< /table >
< hr >< /span >< /td >
< /tr >
<tr>
< td ancho="50%" > </ /td >
< td ancho="50%" >< br >< /td >
< /tr >
<tr>
< td colspan=2 align="derecha" >
< img border="0" src="images/bbstitle.gif" >< a id="hlkAddMsg" href="/AddMsg.aspx?id=234" style="color:red" >Deja un comentario</a >
< img border="0" src="images/mail.gif" >< a id="hlkMailTo" href="/MailTo.aspx?id=234" >Enviar esta página por correo</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;" >Guardar esta página< /a >
< img border="0" src="images/ask.gif" >< a href="bbs/index.asp" >Tienes preguntas</a>
</ /td >
< /tr >
<trbgcolor="#97B9FF" >
< td width="50%" >< b >< font color="#FFFFFF" >Artículos relacionados</font >< /b >< /td >
< td width="50%" >< b >< font color="#FFFFFF" >Comentarios relacionados</font >< /b >< /td >
< /tr >
<tr>
< td ancho="50%" valign="arriba" >
</ /td >
< td ancho="50%" valign="arriba" >
</ /td >
< /tr >
<tr>
< td ancho="50%" >
</ /td >
< td width="50%" align="right" >< img border="0" src="images/more.gif" >< a id="hlkRela" >< /a >< /td >
< /tr >
< /tabla >
</ /td >
< /tr >
< /tabla >
</ /td >
< /tr >
< /tabla >
< /cuerpo >
< /html >