Рекомендуется: сравнение нескольких способов открыть набор записей Сначала определите Conn.asp <% dim objconn dim strconn strconn = provider = microsoft.jet.oledb.4.0; data source = & chr (34) и сервер
чат.html
| Ниже приведено цитируемое содержание: <html> <Head> <title> Chat </title> </head> <Frameset Rows =*, 100> <кадр src = chathopinions.asp> <Frame src = Chatform.asp> </frameset> </html> |
Chatopinions.asp
| Ниже приведено цитируемое содержание: <html> <голова> <Meta http-equiv = colresh = 5; url = chathopinions.asp> </head> <body bgcolor = ffffff> <Центр> <таблица границы = 0 ширина = 350> <tr> <td ширина = 50> < % = Приложение (A9) %> </td> <td width = 300> < % = Application (b9) %> </td> </tr> <tr> <td> < % = Приложение (A8) %> </td> <td> < % = Приложение (B8) %> </td> </tr> <tr> <td> < % = Приложение (A7) %> </td> <td> < % = Приложение (B7) %> </td> </tr> <tr> <td> < % = Приложение (A6) %> </td> <td> < % = Приложение (B6) %> </td> </tr> <tr> <td> < % = Приложение (A5) %> </td> <td> < % = Приложение (B5) %> </td> </tr> <tr> <td width = 50> < % = Приложение (A4) %> </td> <td> < % = Application (b4) %> </td> </tr> <tr> <td> < % = Приложение (A3) %> </td> <td> < % = Приложение (B3) %> </td> </tr> <tr> <td> < % = Приложение (A2) %> </td> <td> < % = Application (b2) %> </td> </tr> <tr> <td> < % = Приложение (A1) %> </td> <td> < % = Application (b1) %> </td> </tr> </table> <таблица границы = 0 ширина = 350> <tr> <td align = right> Получите свой чат по адресу <a ref = http: //www.submitside.com> preditiside </a>: бесплатный скрипт. </td> </tr> </table> </center> </body> </html> Chatform.asp <% Если запрос.form (мнение) = тогда ShowForm () еще Если сеанс (aa) = then Newuser () Вперед, продолжать() еще Вперед, продолжать() конец, если конец, если %> < %Sub showform () %> <html> <body bgcolor = ffffff> <Центр> <form method = post action = catchform.asp> <Таблица границы = 0> <Tr> <td> < % if session (aa) = тогда %> Выберите имя или прозвище <input type = text name = name size = 20> <br> Введите свое мнение < % else %> < % = Session (AA) %> < % end, если %> <input type = text size = 60 name = value = < % = request.form (мнение) % >> <br> <input type = отправить значение = отправить> </td> <tr> </table> </form> </center> </body> </html> < % End sub %> < %Sub goahead () %> <% Bb = request.form (мнение) Bb = server.htmlencode (bb) Application.lock Приложение (B1) = приложение (B2) Приложение (B2) = приложение (B3) Приложение (B3) = приложение (B4) Приложение (B4) = приложение (B5) Приложение (B5) = приложение (B6) Приложение (B6) = приложение (B7) Приложение (B7) = приложение (B8) Приложение (B8) = приложение (B9) Приложение (B9) = BB Приложение (A1) = Приложение (A2) Приложение (A2) = Приложение (A3) Приложение (A3) = приложение (A4) Приложение (A4) = приложение (A5) Приложение (A5) = Приложение (A6) Приложение (A6) = Приложение (A7) Приложение (A7) = Приложение (A8) Приложение (A8) = Приложение (A9) Приложение (A9) = сеанс (AA) Application.unlock %> <html> <Head> </head> <body bgcolor = ffffff> <Центр> <form method = post action = catchform.asp> <Таблица границы = 0> <Tr> <td> < % = Session (aa) %> <input type = text size = 60 name = Mink> <br> <input type = отправить значение = отправить> </td> </tr> </table> </form> </center> </body> </html> < % End sub %> < %Sub newuser () %> <% Aa = request.form (имя) Aa = server.htmlencode (aa) Session (aa) = aa %> < % End sub %> |
Поделиться: ASP использует Google для реализации функции онлайн -перевода Иногда я хочу предоставить многоязычную поддержку для наших веб-страниц. Полем lan.htm