%@ Language=VBScript %> <% '设定页面过期时间,确定本页不被缓存。 Response.Expires=-9999 '当用户进入登录页面的时候,系统将清除其以前的登录身份信息。 'session.Abandon %> <% TheMessage="" if isempty(Session("ID")) then Response.Redirect "../login.asp" end if if Session("IsSystemManager") then Response.Redirect "../html/home_autho.asp" end if %> <% '日期函数 sub datetime dat=int(datediff("d",dateserial(2000,8,27),now) mod 7) response.write(formatdatetime(now,1))&" " select case dat case 0 response.write "星期天" case 1 response.write "星期一" case 2 response.write "星期二" case 3 response.write "星期三" case 4 response.write "星期四" case 5 response.write "星期五" case 6 response.write "星期六" end select end sub %>
|
<% If Time >= #12:00:00 AM# And Time < #12:00:00 PM# Then
Response.Write "早上好!"
Elseif Time >= #12:00:00 PM# And Time < #18:00:00 AM# Then
Response.Write "中午好!"
Else
Response.Write "晚上好!"
End If
%>
<% response.write Session("Name") %>
|
|
|||||||||||||||||||
|
重要通知
尊敬的各位会员:
为确保您数据保密,请及时关闭网页!退出登陆 此致 身体健康 工作顺利! 鹭燕(福建)集团 |
|||||||||||||||||||
| |
||||||||||||||||||||