Recommended: Comparison of several ways to open a record set First define conn.asp <% dim objConn dim strConn strConn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & chr(34) & Server
chat.html
| The following is the quoted content: <html> <head><title>Chat</title></head> <frameset rows=*,100> <frame src=chatopinions.asp> <frame src=chatform.asp> </frameset> </html> |
chatopinions.asp
| The following is the quoted content: <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 %> Choose 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 %> |
Share: ASP uses Google to implement online translation function Sometimes I want to provide multi-language support for our web pages. It is too troublesome to use one web page for one language. Fortunately, Google provides language tool functions. The following describes how to use it to convert web pages between multiple languages. . lan.htm