Asp学习笔记第四章

2006-07-20 20:04:20

Asp 学习笔记第四章

 

 

1.应用程序级变量 application

代码必须写在global.asa当中

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

sub Application_OnStart

Application("jhname")="江湖名"

Application("user_active")=0

End sub

显示变量值

<p>江湖名 = <%= Application("jh")%>

<p>在线用户数 = <%= Application("user_active")%>

 

 

2.用户级变量Session

应用实例

<%

Dim tVisit

tVisit = Session("VisitTime")

If Len(tVisit) = 0 Then

  Response.Write "<p>这是您首次访问本页面"

  Response.Write "<p>您本次访问本页的时间为：" & Now

Else

  Response.Write "<p>您最近一次访问本页的时间为：" & tVisit

  Response.Write "<p>您本次访问本页的时间为：" & Now

End If

Session("VisitTime") = Now

%>

<p><a href="05_04.asp">刷新此页</a>

<p><a href="05_05.asp">取消会话</a>

文章引用自：