一 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>
时间： 2024-10-01 04:59:36