推薦:幾種打開記錄集方式的比較先定義conn.asp <% dim objConn dim strConn strConn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & chr(34) & Server
chat.html
| 以下為引用的內容: <html> <head><title>Chat</title></head> <frameset rows=*,100> <frame src=chatopinions.asp> <frame src=chatform.asp> </frameset> </html> |
chatopinions.asp
| 以下為引用的內容: <html> <head> <META HTTP-EQUIV=refresh content=5;URL=chatopinions.asp></head> <body bgcolor=FFFFFF> <center> <table border=0 width=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> <table border=0 width=350> <tr><td align=right> Get your chat at <A REF=http://www.submitside.com>Submitside</A>: free script. </td></tr></table> </center> </body> </html> chatform.asp <% If Request.Form (Opinion)= then ShowForm() else if Session(AA)= then NewUser() GoAhead() else GoAhead() end if end if %> <% Sub ShowForm() %> <html><body bgcolor=FFFFFF> <center> <form method=post action=chatform.asp> <table border=0><tr><td> <% if Session(AA)= then %> Chose a name or nickname <input type=text name=Name size=20><BR> Type your opinion <% else %> <% =Session(AA) %> <% end if %> <input type=text size=60 name=Opinion value=<% =request.form(Opinion) %>><BR> <input type=submit value=Submit> </td><tr></table> </form> </center> </body> </html> <% End Sub %> <% Sub GoAhead() %> <% BB=Request.form(Opinion) BB=server.htmlencode(BB) Application.Lock Application(B1)=Application(B2) Application(B2)=Application(B3) Application(B3)=Application(B4) Application(B4)=Application(B5) Application(B5)=Application(B6) Application(B6)=Application(B7) Application(B7)=Application(B8) Application(B8)=Application(B9) Application(B9)=BB Application(A1)=Application(A2) Application(A2)=Application(A3) Application(A3)=Application(A4) Application(A4)=Application(A5) Application(A5)=Application(A6) Application(A6)=Application(A7) Application(A7)=Application(A8) Application(A8)=Application(A9) Application(A9)=Session(AA) Application.Unlock %> <html> <head></head><body bgcolor=FFFFFF> <center> <form method=post action=chatform.asp> <table border=0><tr><td> <% =Session(AA) %> <input type=text size=60 name=Opinion> <BR><input type=submit value=Submit> </td></tr></table> </form> </center> </body> </html> <% End Sub %> <% Sub NewUser() %> <% AA=Request.form(Name) AA=server.htmlencode(AA) Session(AA)=AA %> <% End Sub %> |
分享:ASP利用Google實現在線翻譯功能有時候想為我們的網頁提供多語言支持,如果一種語言用一張網頁來做實在太麻煩了,幸好Google提供了語言工具功能,下面介紹如何利用它來實現網頁多種語言之間的轉換。 lan.htm