推奨:レコードセットを開くためのいくつかの方法の比較最初にdefine conn.asp <%dim objconn dim strconn strconn = provider = microsoft.jet.oledb.4.0; data source =&chr(34)&server
chat.html
| 以下は引用されたコンテンツです。 <html> <head> <Title>チャット</title> </head> <フレームセット行=*、100> <frame src = chatopinions.asp> <frame src = chatform.asp> </frameset> </html> |
chatopinions.asp
| 以下は引用されたコンテンツです。 <html> <head> <Meta http-equiv = reffress content = 5; url = chatopinions.asp> </head> <body bgcolor = ffffff> <center> <テーブルボーダー= 0幅= 350> <tr> <td width = 50> <%= application(a9)%> </td> <td width = 300> <%= application(b9)%> </td> </tr> <tr> <td> <%= application(a8)%> </td> <td> <%= application(b8)%> </td> </tr> <tr> <td> <%= application(a7)%> </td> <td> <%= application(b7)%> </td> </tr> <tr> <td> <%= application(a6)%> </td> <td> <%= application(b6)%> </td> </tr> <tr> <td> <%= application(a5)%> </td> <td> <%= application(b5)%> </td> </tr> <tr> <td width = 50> <%= application(a4)%> </td> <td> <%= application(b4)%> </td> </tr> <tr> <td> <%= application(a3)%> </td> <td> <%= application(b3)%> </td> </tr> <tr> <td> <%= application(a2)%> </td> <td> <%= application(b2)%> </td> </tr> <tr> <td> <%= application(a1)%> </td> <td> <%= application(b1)%> </td> </tr> </table> <テーブルボーダー= 0幅= 350> <tr> <td align = right> <a ref = http://www.submitside.com> submitside </a>でチャットを取得:無料スクリプト。 </td> </tr> </table> </center> </body> </html> chatform.asp <% if request.form(Opinion)= then showform() それ以外 session(aa)= thenの場合 newuser() どうぞ() それ以外 どうぞ() ifを終了します if>を終了します <%sub showform()%> <html> <body bgcolor = ffffff> <center> <form method = post action = chatform.asp> <テーブルボーダー= 0> <tr> <td> <%session(aa)= then%> 名前またはニックネームを選択してください <入力タイプ=テキスト名=名前サイズ= 20> <br> あなたの意見を入力してください <%else%> <%= session(aa)%> <%end if> <入力タイプ=テキストサイズ= 60 name = Opinion value = <%= request.form(意見)%>> <br> <入力タイプ=送信値=送信> </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)= application(a2) アプリケーション(a2)= application(a3) アプリケーション(a3)= application(a4) アプリケーション(A4)=アプリケーション(A5) アプリケーション(a5)= application(a6) アプリケーション(a6)=アプリケーション(a7) アプリケーション(a7)= application(a8) アプリケーション(a8)=アプリケーション(a9) アプリケーション(a9)= session(aa) Application.UnLock %> <html> <head> </head> <body bgcolor = ffffff> <center> <form method = post action = chatform.asp> <テーブルボーダー= 0> <tr> <td> <%= session(aa)%> <入力タイプ=テキストサイズ= 60名=意見> <br> <入力タイプ=送信値=送信> </td> </tr> </table> </form> </center> </body> </html> <%end sub%> <%sub newuser()%> <% aa = request.form(name) aa = server.htmlencode(aa) セッション(aa)= aa %> <%end sub%> |
共有:ASPはGoogleを使用してオンライン翻訳機能を実装します私たちのウェブページに多言語のサポートを提供することがあります。 。 lan.htm