一 Request
二 Response
三 Application
四 Session
五 Server
<script language="vbscript" runat="server"> Sub Application_OnStart Application("applicationname")="mytest" End Sub Sub Application_OnEnd Application("applicationname")="mytest2" End Sub Sub Session_OnStart Session("mysession")="1111" End Sub Sub Session_OnEnd Session("mysession")="2222" End Sub </script>
<html> <head title="test hello world"> </head> <% Application.Lock() application("test")="abcd" session("test")="abcde" Application.UnLock() response.Write(application("applicationname")) response.Write(application("applicationname2")) response.Write(session("mysession")) %> <% dim a dim b a=Request.Form("fname") b=Request.Form("lname") response.Write(a+"<br/>"+b+"<br/>") response.Write(Request.Form.Count) response.Write(request.QueryString("para")) response.Write(request.Cookies("test")) response.Write(request.ServerVariables("server_name")+"<br/>") response.Write(request.ServerVariables("request_method")+"<br/>") %> <% dim c response.Buffer=true response.CharSet="gb2312" response.ContentType="text/html" response.Write("hello world") response.Cookies("test")="helloworld" response.Flush() response.End() response.Clear() response.Redirect("www.baidu.com") %> <body> <form method="post" action="testRequest.asp?para=param121"> <p> First Name: <input type="text" name="fname" /> </p> <p> Last Name: <input type="text" name="lname" /> </p> <input type="submit" value="Submit" /> </form> </body> </html>
<html> <head title="test hello world"> </head> <body> <% dim a response.Write(Server.URLEncode("我的-8*&^%$%")) response.Write("aaaa<br/>bbbb") response.Write(Server.HTMLEncode("aaaa<br/>bbbb")) response.Write(Server.MapPath("index.asp")) %> </body> </html>