Direkomendasikan: Perbandingan beberapa cara untuk membuka set rekaman Pertama -tama tentukan conn.asp <% redup objconn dimon strconn strconn = penyedia = microsoft.jet.oledb.4.0; Sumber data = & chr (34) & server
chat.html
| Berikut ini adalah konten yang dikutip: <Html> <Head> <title> obrolan </iteme> </head> <Frameset Rows =*, 100> <frame src = chatopinions.asp> <frame src = chatform.asp> </fameset> </html> |
chatopinions.asp
| Berikut ini adalah konten yang dikutip: <Html> <head> <Meta http-equiv = refresh content = 5; url = chatopinions.asp> </head> <body bgcolor = ffffff> <senter> <Border Tabel = 0 Lebar = 350> <tr> <td lebar = 50> < % = Aplikasi (A9) %> </td> <TD Lebar = 300> < % = Aplikasi (B9) %> </td> </tr> <tr> <td> < % = Aplikasi (A8) %> </td> <td> < % = Aplikasi (B8) %> </td> </tr> <tr> <td> < % = Aplikasi (A7) %> </td> <td> < % = Aplikasi (B7) %> </td> </tr> <tr> <td> < % = Aplikasi (A6) %> </td> <td> < % = Aplikasi (B6) %> </td> </tr> <tr> <td> < % = Aplikasi (A5) %> </td> <td> < % = Aplikasi (B5) %> </td> </tr> <tr> <td width = 50> < % = Aplikasi (A4) %> </td> <td> < % = Aplikasi (B4) %> </td> </tr> <tr> <td> < % = Aplikasi (A3) %> </td> <td> < % = Aplikasi (B3) %> </td> </tr> <tr> <td> < % = Aplikasi (A2) %> </td> <td> < % = Aplikasi (B2) %> </td> </tr> <tr> <td> < % = Aplikasi (A1) %> </td> <td> < % = Aplikasi (B1) %> </td> </tr> </able> <Border Tabel = 0 Lebar = 350> <tr> <td align = right> Dapatkan obrolan Anda di <a ref = http: //www.submitside.com> Submitside </a>: skrip gratis. </td> </tr> </able> </penter> </body> </html> chatform.asp <% Jika request.form (opini) = lalu Showform () kalau tidak Jika sesi (aa) = lalu NewUser () Teruskan() kalau tidak Teruskan() akhiri jika akhiri jika %> < %Sub showform () %> <html> <body bgcolor = ffffff> <senter> <Form Method = Post Action = ChatForm.asp> <Border Table = 0> <tr> <td> < % jika sesi (aa) = lalu %> Pilih nama atau nama panggilan <input type = nama teks = ukuran nama = 20> <br> Ketik pendapat Anda < % else %> < % = Sesi (aa) %> < % berakhir jika %> <Input Tipe = Ukuran Teks = 60 Nama = Nilai Opini = < % = Request.Form (Opini) % >> <br> <Input Tipe = Kirim Nilai = Kirim> </td> <tr> </able> </form> </penter> </body> </html> < % End sub %> < %Sub Goahead () %> <% Bb = request.form (opini) Bb = server.htmlencode (BB) Application.lock Aplikasi (B1) = Aplikasi (B2) Aplikasi (B2) = Aplikasi (B3) Aplikasi (B3) = Aplikasi (B4) Aplikasi (B4) = Aplikasi (B5) Aplikasi (B5) = Aplikasi (B6) Aplikasi (B6) = Aplikasi (B7) Aplikasi (B7) = Aplikasi (B8) Aplikasi (B8) = Aplikasi (B9) Aplikasi (B9) = BB Aplikasi (A1) = Aplikasi (A2) Aplikasi (A2) = Aplikasi (A3) Aplikasi (A3) = Aplikasi (A4) Aplikasi (A4) = Aplikasi (A5) Aplikasi (A5) = Aplikasi (A6) Aplikasi (A6) = Aplikasi (A7) Aplikasi (A7) = Aplikasi (A8) Aplikasi (A8) = Aplikasi (A9) Aplikasi (A9) = Sesi (AA) Application.unlock %> <Html> <head> </head> <body bgcolor = ffffff> <senter> <Form Method = Post Action = ChatForm.asp> <Border Table = 0> <tr> <td> < % = Sesi (aa) %> <input type = ukuran teks = 60 nama = opini> <br> <input type = kirim nilai = Kirim> </td> </tr> </able> </form> </penter> </body> </html> < % End sub %> < %Sub newUser () %> <% Aa = request.form (name) Aa = server.htmlencode (AA) Sesi (AA) = AA %> < % End sub %> |
Bagikan: ASP menggunakan Google untuk mengimplementasikan fungsi terjemahan online Terkadang saya ingin memberikan dukungan multi-bahasa untuk halaman web kami. . lan.htm