Hacer un contador de script ASP usando el componente Grapshot

Autor：Eve Cole Fecha de actualización：2025-05-09 16:16:01

Recomendado: Diseñe el módulo de inicio de sesión para los usuarios de ASP
Script de verificación de inicio de sesión del usuario, chkpwd.asp El siguiente es el contenido referenciado: % '========= Script de verificación de inicio de sesión de usuario =====' Si el objeto aprobado aún no está definido, se define como falso, lo que indica que no hay que no hay

Este programa coloca el número del contador en la base de datos de acceso y, por supuesto, también puede usar otras fuentes de datos de ODBC que desee. Este programa lee la información de recuento de la URL. Como sigue:

parámetro

identificación

Peugeot (es decir, nombre de usuario) de la página web del cliente. Cada vez que use una nueva ID, se insertará un nuevo registro en la base de datos. Si esta identificación existe, su recuento se incrementará en 1. Si no desea que el cliente inicie automáticamente una ID y necesita registrarse, entonces asignará el valor insertado automáticamente a FALSE.

sesco

Opcional. Se utiliza para seleccionar el estilo de la imagen del mostrador. 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 el directorio de trabajo actual!

células

Opcional. El número de bits que se muestran en el resultado del recuento son 5 bits (puede ajustar este valor en el programa) cómo ejecutar este programa

Copie este programa en el que lo desee en el servidor.

Cree una fuente web de fuente de datos. Debe haber un nombre de tabla en esta fuente de datos principal, y los siguientes son los campos en esta tabla:

El siguiente es el contenido citado:

<tr>

<th> campo </th>

<th> escriba </th>

<th> indexado </th>

<th> medios </th>

</tr>

<tr>

<TD> Ident </td>

<TD> Autonumber </td>

<TD> para sus necesidades </td>

</tr>

<tr>

<TD> Nombre de usuario </td>

</tr>

<tr>

<td> cuenta </td>

<TD> Número </td>

<TD> Números de conteo </td>

</tr>

</table>

Asigne un permiso a la base de datos si es necesario

Cree un directorio que almacene gráficos GIF y coloque al menos un grupo de gráficos predeterminado.gif en este directorio. Dé permisos a este archivo según corresponda.

Coloque algunos gráficos digitales en este directorio que puedan ser divisibles por 10.

El siguiente es el contenido citado:

<tr>

<td bgcolor =#ccffff> archivo <b> contador.asp </b> </td>

</tr>

<tr>

< %

Respuesta.ContentType = Image/GIF

Respuesta.expires = 0

'El directorio donde se colocan las barras GIF. Termina con /

workdir = c:/gifbars/

'Establezca esto en falso si desea deshabilitar la insertación automática

'Nuevos registros de contadores a la base de datos en cada éxito con un único

'Cadena de identificación

auto_insert = verdadero

id = trim (request.QueryString (id))

SEQ = TRIM (request.QueryString (SEQ))

Si seq = entonces seq = predeterminado

celdas = TRIM (request.Querysting (células))

if celdas = entonces celdas = 5 más células = células*1

Establecer conn = server.createObject (ADODB.Connection)

Conn.open Webcounter

sql = seleccionar recuento, identificar desde main donde id = '& id &'

establecer rs = conn.execute (SQL)

Si no es RS.EOF entonces

count = RS (Count) 1

ident = rs (ident)

rs.close ()

conn.execute (actualización del conjunto principal del conjunto = recuento 1 donde identidad = e identidad)

conn.close ()

ShowsMubers ()

demás

rs.close ()

Si auto_insert = true e id <> entonces

conn.execute (insertar en los valores principales (id, count) ('& id &', 1))

recuento = 1

ShowsMubers ()

final si

conn.close ()

final si

Sub Showsumbers ()

establecer g = createObject (shotgraph.image)

FileName = WorkDir & seq & .gif

Si g.getFileDimensions (nombre de archivo, xsize, ysize, pal) <> 1 entonces salga sub

xdigit = xsize/10

G. CREATEIMAGE XDIGIT*Células, YSize, Ubound (PAL) 1

g.initclipboard xSize, ysize

G.Selectclipboard verdadero

para i = 0 a Ubound (pal)

G.SetColor I, Pal (i, 0), Pal (i, 1), Pal (i, 2)

G.ReadImage Nombre de archivo, PAL, 0,0

para i = 1 a las células

k = getDigit (Count, Cells-i)

G.Copy (I-1)*XDigit, 0, XDigit, YSize, K*XDigit, 0, SrcCopy

Response.BinaryWrite G.GifiMage (-1,1,)

Final

Función getDigit (número, posición)

número1 = número/(10^posición)

tmp = número1/10

GetDigit = número1-tmp*10

Función final

<xmp>

</pre>

</td>

</tr>

</table>

</tr>

<tr>

</tr>

<tr>

<img border = 0 src = images/bbstitle.gif> <a id = hlkaddmsg href =/addmsg.aspx? id = 234 estilo = color: rojo> deje un comentario </a>

<img border = 0 src = images/mail.gif> <a id = hlkmailto href =/mailto.aspx? id = 234> Envíe esta página </a>

<img border = 0 src = images /print.gif> <a href = javaScript: window.print ()> Imprima esta página </a>

<img border = 0 src = images/perfil.gif> <a href = javaScript: void (null) onClick = if (! document.execCommand ('saveas', 'show.aspx', 1) return false; > Guarde esta página </a>

<img border = 0 src = images/ask.gif> <a href = bbs/index.asp> tiene preguntas </a>

</td>

</tr>

<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>

</td>

</tr>

<tr>

</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

</table>

</body>

< /html>

Compartir: una breve discusión sobre el principio del programa de adquisición de ASP
Los pasos principales del programa de recopilación son los siguientes: 1. Obtenga el contenido de la página 2 recopilada. Extraiga todos los datos del código de adquisición 1. Obtenga el contenido de la página recopilada que conozco actualmente sobre los métodos de ASP comúnmente utilizados para obtener la página recopilada: 1.