推荐：几种打开记录集方式的比较先定义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