zoukankan html css js c++ java

ASP 基础二内置对象

一 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>

天生我材必有用，千金散尽还复来

查看全文

相关阅读:
解决App can’t be opened because it is from an unidentified developer
Mac之当前目录打开终端
 Mac之安装zsh
毕业论文之降低重复率
 Latex之希腊字母表花体字母实数集
 latex之插入数学公式
 好句收集
 Python之两个列表一起打乱
 Python之时间统计
 Python之正则表达式

原文地址：https://www.cnblogs.com/ligenyun/p/7611089.html

ASP 基础二 内置对象

ASP 基础二内置对象