Recomendado: Comparação de várias maneiras de abrir um conjunto de registros Primeiro defina Conn.asp <% dim objconn dim strconn strconn = provider = microsoft.jet.oledb.4.0; fonte de dados = & ch (34) e servidor
chat.html
| A seguir, o conteúdo citado: <html> <Head> <title> chat </title> </head> <FrameSet linhas =*, 100> <quadro src = chatopinions.asp> <quadro src = chatForm.asp> </frameSet> </html> |
Chatopinions.asp
| A seguir, o conteúdo citado: <html> <head> <Meta http-equiv = refresh Content = 5; url = chatopinions.asp> </ad Head> <corpo bgcolor = ffffff> <Center> <borda da tabela = 0 largura = 350> <tr> <td width = 50> < % = Aplicação (a9) %> </td> <td width = 300> < % = aplicação (b9) %> </td> </tr> <tr> <td> < % = Aplicação (a8) %> </td> <td> < % = aplicação (b8) %> </td> </tr> <tr> <td> < % = Aplicação (a7) %> </td> <td> < % = aplicação (b7) %> </td> </tr> <tr> <td> < % = Aplicação (a6) %> </td> <td> < % = aplicação (b6) %> </td> </tr> <tr> <td> < % = Aplicação (a5) %> </td> <td> < % = aplicação (b5) %> </td> </tr> <tr> <td width = 50> < % = Aplicação (a4) %> </td> <td> < % = aplicação (b4) %> </td> </tr> <tr> <td> < % = Aplicação (a3) %> </td> <td> < % = aplicação (b3) %> </td> </tr> <tr> <td> < % = Aplicação (a2) %> </td> <td> < % = aplicação (b2) %> </td> </tr> <tr> <td> < % = Aplicação (a1) %> </td> <td> < % = aplicação (b1) %> </td> </tr> </ table> <borda da tabela = 0 largura = 350> <tr> <td align = direita> Obtenha seu bate -papo em <A REF = http: //www.submitside.com> submitside </a>: script grátis. </td> </tr> </ table> </central> </body> </html> ChatForm.asp <% Se request.form (opinião) = então Showform () outro se sessão (aa) = então NewUser () Vá em frente() outro Vá em frente() final se final se %> < %Sub ShowForm () %> <html> <corpo bgcolor = ffffff> <Center> <Form Method = Post Action = ChatForm.asp> <tabela borda = 0> <tr> <td> < % se sessão (aa) = então %> Escolha um nome ou apelido <Tipo de entrada = Nome do texto = Tamanho do nome = 20> <br> Digite sua opinião < % else %> < % = Sessão (aa) %> < % final se %> <Tipo de entrada = Tamanho do texto = 60 Nome = Valor da opinião = < % = request.form (Opinion) % >> <br> <Tipo de entrada = Submite Value = Enviar> </td> <tr> </table> </morm> </central> </body> </html> < % Final sub %> < %Sub -goahead () %> <% Bb = request.form (opinião) Bb = server.htmlencode (bb) Application.lock Aplicação (B1) = Aplicação (B2) APLICAÇÃO (B2) = APLICAÇÃO (B3) Aplicação (B3) = Aplicação (B4) APLICAÇÃO (B4) = APLICAÇÃO (B5) Aplicação (B5) = Aplicação (B6) Aplicação (B6) = Aplicação (B7) Aplicação (B7) = Aplicação (B8) APLICAÇÃO (B8) = APLICAÇÃO (B9) Aplicação (b9) = bb APLICAÇÃO (A1) = APLICAÇÃO (A2) APLICAÇÃO (A2) = APLICAÇÃO (A3) APLICAÇÃO (A3) = APLICAÇÃO (A4) APLICAÇÃO (A4) = APLICAÇÃO (A5) APLICAÇÃO (A5) = APLICAÇÃO (A6) APLICAÇÃO (A6) = APLICAÇÃO (A7) APLICAÇÃO (A7) = APLICAÇÃO (A8) APLICAÇÃO (A8) = APLICAÇÃO (A9) APLICAÇÃO (A9) = sessão (AA) Application.unlock %> <html> <Head> </head> <corpo bgcolor = ffffff> <Center> <Form Method = Post Action = ChatForm.asp> <tabela borda = 0> <tr> <td> < % = Sessão (aa) %> <Tipo de entrada = tamanho do texto = 60 Nome = Opinião> <br> <Tipo de entrada = submeter valor = submeter> </td> </tr> </ table> </morm> </central> </body> </html> < % Final sub %> < %Sub newuser () %> <% Aa = request.form (nome) Aa = server.htmlencode (aa) Sessão (aa) = aa %> < % Final sub %> |
Compartilhar: ASP usa o Google para implementar a função de tradução online Às vezes, eu quero fornecer suporte para várias linguagens para nossas páginas da web. . Lan.htm