Recomendado: Comparación de varias formas de abrir un conjunto de registros Primero defina Conn.asp <% Dim Objconn Dim Strconn strconn = Provider = Microsoft.Jet.OLEDB.4.0; Data Source = & chr (34) & Server
chat.html
| El siguiente es el contenido citado: <html> <Bead> <title> chat </title> </thead> <Frameset filas =*, 100> <Frame src = chatopinions.asp> <Frame src = chatForm.asp> </Frameset> </html> |
chatopinions.asp
| El siguiente es el contenido citado: <html> <Evista> <Meta http-oquiv = actual contenido = 5; url = chatopinions.asp> </head> <Body bgcolor = ffffff> <centro> <border de tabla = 0 ancho = 350> <tr> <td width = 50> < % = Aplicación (a9) %> </td> <td width = 300> < % = aplicación (b9) %> </td> </tr> <tr> <td> < % = Aplicación (a8) %> </td> <td> < % = aplicación (b8) %> </td> </tr> <tr> <td> < % = Aplicación (a7) %> </td> <td> < % = aplicación (b7) %> </td> </tr> <tr> <td> < % = Aplicación (a6) %> </td> <td> < % = aplicación (b6) %> </td> </tr> <tr> <td> < % = Aplicación (a5) %> </td> <td> < % = aplicación (b5) %> </td> </tr> <tr> <td width = 50> < % = Aplicación (a4) %> </td> <td> < % = aplicación (b4) %> </td> </tr> <tr> <td> < % = Aplicación (a3) %> </td> <td> < % = aplicación (b3) %> </td> </tr> <tr> <td> < % = Aplicación (a2) %> </td> <td> < % = aplicación (b2) %> </td> </tr> <tr> <td> < % = Aplicación (a1) %> </td> <td> < % = aplicación (b1) %> </td> </tr> </table> <border de tabla = 0 ancho = 350> <tr> <td align = right> Obtenga su chat en <a ref = http: //www.submitside.com> Subsitside </a>: script gratuito. </td> </tr> </table> </Center> </body> </html> chatform.asp <% If request.form (opinión) = entonces Showform () demás Si la sesión (aa) = entonces Newuser () Adelante() demás Adelante() final si FIN IF %> < %Sub showform () %> <html> <body bgcolor = ffffff> <centro> <Form Method = Post Action = ChatForm.asp> <border de tabla = 0> <tr> <td> < % if session (aa) = entonces %> Elija un nombre o apodo <input type = text name = name size = 20> <br> Escriba su opinión < % else %> < % = Sesión (aa) %> < % final si %> <input type = text size = 60 name = opinión valor = < % = request.form (opinión) % >> <br> <Entrada tipo = enviar value = enviar> </td> <tr> </table> </form> </Center> </body> </html> < % Final sub %> < %Sub goahead () %> <% Bb = request.form (opinión) Bb = server.htmlencode (BB) Application.lock Aplicación (B1) = Aplicación (B2) Aplicación (B2) = Aplicación (B3) Aplicación (B3) = Aplicación (B4) Aplicación (B4) = Aplicación (B5) Aplicación (B5) = Aplicación (B6) Aplicación (B6) = Aplicación (B7) Aplicación (B7) = Aplicación (B8) Aplicación (B8) = Aplicación (B9) Aplicación (B9) = BB Aplicación (A1) = Aplicación (A2) Aplicación (A2) = Aplicación (A3) Aplicación (A3) = Aplicación (A4) Aplicación (A4) = Aplicación (A5) Aplicación (A5) = Aplicación (A6) Aplicación (A6) = Aplicación (A7) Aplicación (A7) = Aplicación (A8) Aplicación (A8) = Aplicación (A9) Aplicación (A9) = Session (AA) Aplicación %> <html> <HEAD> </HEAD> <BODY BGCOLOR = ffffff> <centro> <Form Method = Post Action = ChatForm.asp> <border de tabla = 0> <tr> <td> < % = Session (aa) %> <input type = text size = 60 name = Opinion> <br> <input type = shipt value = shit> </td> </tr> </table> </form> </Center> </body> </html> < % Final sub %> < %Sub newuser () %> <% Aa = request.form (nombre) Aa = server.htmlencode (aa) Sesión (aa) = aa %> < % Final sub %> |
Compartir: ASP utiliza Google para implementar la función de traducción en línea A veces quiero proporcionar soporte de varios idiomas para nuestras páginas web. . lan.htm