Recomendado: entusiastas dinâmicos da web: Função de funções ASP HTML O código HTML de filtragem ASP é o seguinte conteúdo referenciado: function Removerhtml (strhtml) dim objregexp, correspondência, corresponde a definir objregexp = new regexp obj
Um exemplo de produção estatística que pode numerar visitantes, número de visitas, IP e tempo
Eu tomo a biblioteca de acesso como exemplo. De fato, se você usar a biblioteca do SQL Server, basta alterar as instruções da biblioteca de links. A estrutura da biblioteca é a seguinte
Nome do arquivo da biblioteca: cont.asp foi originalmente cont.mdb, mas após a compilação, a extensão foi alterada para ASP para impedir que a biblioteca seja baixada.
Nome da tabela: guia
Nome do campo Tipo de dados Descrição
Identificar automaticamente o número do visitante
O texto IP é usado para gravar o IP do visitante
DAT1 Data Hora é usada para gravar o último visitante visitante
A data da data é usada para gravar o horário em que o visitante visita pela primeira vez
Número CS, tipo inteiro é usado para gravar visitas aos visitantes
O programa é muito simples, com apenas dois arquivos. O DispCont.asp é usado para exibir resultados estatísticos, e o contpage.asp é usado para exibir informações estatísticas.
Vamos primeiro olhar para as estatísticas do Contpage.asp, o código é o seguinte:
| A seguir, o conteúdo citado: <% Definir Conn = Server.CreateObject (Adodb.Connection) Connstr = dbq = server.mappath (cont.asp); defaultDir =; driver = {Microsoft Access Driver (*.mdb)}; Conn.Open Connstr '' *** A instrução acima é usada para se conectar à biblioteca e cont.asp é o nome do arquivo da biblioteca. Keren = request.cookies (Keren) '' Leia cookies, o nome dos cookies é: Keren, haha. . A coisa fedida sobre a literatura e de Ayu é que ele só sabe usar Pinyin. Se Keren = então '' julgue se os cookies estão vazios. Se estiverem vazios, devem ser novos amigos, caso contrário, são velhos amigos. sql = selecione * na guia onde id = -1 set rs = server.createObject (adodb.recordset) Rs.Open SQL, Conn, 1, 3 Rs.addnew '' Se for um novo visitante, adicione um novo registro na biblioteca. rs (cs) = 1 '' Nota O número de visitas é 1 rs (ip) = request.Servervariables (remote_addr) '' Diga -me o IP, rs (dat) = agora '' diga a data e hora atuais, rs (dat1) = data '' Diga a data atual e a data a ser usada para a primeira visita no futuro. Response.cookies (Keren) = rs (id) '' Escreva um cookie e o conteúdo é o mesmo que o ID. Response.Cookies (Keren) .Expires = Data 365 '' Defina a data válida dos cookies a partir de agora, 365 dias, caso contrário, o exposto acima é a maneira de lidar com novos amigos. O que devo fazer com velhos amigos? Veja o seguinte: sql = selecione * na guia onde id = & keren '' vá à biblioteca para encontrar os registros de nossos velhos amigos set rs = server.createObject (adodb.recordset) Rs.Open SQL, Conn, 1, 3 rs (cs) = rs (cs) 1 '' ok, encontrado, adicione 1 visitas rs (ip) = request.Servervariables (remote_addr) '' Veja o que é seu IP e anote -o. rs (dat) = agora '' diga -me a hora atual, ou seja, a hora da última visita, Response.Cookies (Keren) = RS (ID) '' Então escreva cookies. Não sei se essa frase é redundante, então não tentei. Response.Cookies (Keren) .Expires = Data 365 '' Defina o tempo de expiração dos cookies para que eu não o reconheça se chegar um ano. final se Rs.Update '' Eu gravei tudo o que devo lembrar, atualize a biblioteca. rs.close '' feche o objeto RecordSet. Definir Conn = Nothing '' Libere Conn, ainda acho que a conexão deve ser ligada e desativada o mais rápido possível. Eu acho que é o mais indesejável colocá -lo em sessão. 4 %> |
Ok, o registro está feito, há mais de vinte linhas de código, um programa pequeno muito simples. Depois que o programa for escrito, como ele pode ser colocado na página? É muito simples. Basta encontrar um local na página inicial e adicionar esta linha de código: <img src = contpage.asp width = 0 altura = 0>.
O próximo passo é exibir o registro.
Nome do arquivo: dispcont.asp, consulte o código:
| A seguir, o conteúdo citado: <% Definir Conn = Server.CreateObject (Adodb.Connection) Connstr = dbq = server.mappath (cont.asp); defaultDir =; driver = {Microsoft Access Driver (*.mdb)}; Conn.Open Connstr '' *** A instrução acima é usada para se conectar à biblioteca e cont.asp é o nome do arquivo da biblioteca. Page3 = Solicitação (PAG) Se Page3 = então Page3 = Sessão (Contpag) '' Número de páginas, página atual Se Page3 = então Page3 = 1 PA = solicitação (PA) Se PA = então PA = sessão (contpa) '' Número de exibição por página Se PA = então PA = 15 '' por padrão, 15 itens são exibidos por página e podem ser alterados à vontade sessão (contpag) = página3 sessão (contpa) = PA páginas = pa '' número de exibição por página ***************** O programa acima é usado para implementar a função de paginação SQL = Selecione * FROM ORDEM DE TAB POR -DAT, -ID Dim Rs Set rs = server.createObject (adodb.recordset) Rs.Open SQL, Conn, 1,1 CSI = 0 CS1 = 0 CS100 = 0 csdat1 = 0 Faça enquanto não é Rs.eof CSI = CSI RS (CS) Se rs (cs) = 1 então cs1 = cs1 1 Se rs (cs)> = 100 então CS100 1 Se DateValue (rs (dat)) = data então csdat1 = csdat1 1 final se rs.movenext laço ZS = Rs.RecordCount '' ************************************************ 8 O seguinte programa é usado para exibição de paginação %> <head> <tits> Estatísticas online </ititure> </head> <estilo de corpo = font-size: 9pt bgcolor =#d8edf8> Há um total de registros <%Response.Write ZS%> e agora a página <%Response.Write Page3%> exibe cada página: [<a href = discont.asp? href = Dispcont.asp? [<a href = dispcont.asp> refresh] <div alinhe = esquerda> <Tabela Border = 0 CellPadding = 0 Style = Font-Size: 9pt> <tr> <td> Número da página </td> <%página2 = 1 para i = 1 a zs páginas de passo Se página3 = cstr (página2) então %> <td> [<%Response.Write Page2%>] </td> < % else %> <td> <a href = dispcont.asp? pag = <%Response.Write Page2%>> [<%Response.Write Page2%>] </td> <% final se Page2 = Page2 1 próximo sn = páginas * (página3-1) '' Número do registro atual = número de exibição por página * Número de páginas - número de exibição por página se sn> zs então sn = 0 rs.move sn, 1 '' ********************************** O parágrafo acima é usado para paginar %> </tr> </tabela> </div> <tabela estilo = font-size: 9pt width = 100% borderColorlight =#000000 borda = 1 borderColordark =#fffff bgcolor =#a4d1e8 cellpacing = 0 cellpadding = 3> <tr> <td> número </td> <td> Última visita à página inicial </td> <td> Última visita a ip </td> <td> número da página inicial </td> <td> número da primeira data de visita </td> </tr> <% para i = 1 para páginas Response.write </tr> Response.write <td> & rs (id) & </td> Response.write <td> & rs (dat) & </td> Response.write <td> & rs (ip) & </td> Response.write <td> & rs (cs) & </td> Response.write <td> & rs (dat1) & </td> Response.write </tr> rs.movenext Se rs.eof, então saia para próximo rs.close %> <tr> <td> Total <%= zs%> </td> <td> O número de visitas é mais de 100 vezes <%= cs100%> </td> <td> O número de visitas é 1: <%= cs1%> </td> <Td> Número total de visitas é <%= csi%> <%= csdat1%> </td> </tr> </tabela> |
'' ****************************** O acima é o visor completo da página. Todos eles estão disponíveis. Nenhum registro nem situação é considerada.
Compartilhar: Jogo Tetris escrito em ASP A seguir, é apresentado o conteúdo referenciado: <%se não solicitar.QueryString (ven) = t Then%> <html> <head> <meta nome