?? personal.asp
字號:
<%@ Language=VBScript %>
<%
if (isempty(session("username")) or len(session("username"))=0) then
Response.Write "您的登錄已過期，請重新登錄。"
Response.End
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="xcss.css">
</HEAD>
<BODY background=images/zapsmbknd.gif>
<P>
<TABLE border=0 cellPadding=1 cellSpacing=1 width="100%">
<TR>
<TD colspan=2>
<%
select case Weekday(now())
case 1
s_day = "星期日"
case 2
s_day = "星期一"
case 3
s_day = "星期二"
case 4
s_day = "星期三"
case 5
s_day = "星期四"
case 6
s_day = "星期五"
case 7
s_day = "星期六"
end select
Response.Write "今天是 " & year(now()) & "年" & month(now()) & "月" & day(now()) & "日 " & s_day
%>
<br><div class="zTitle">歡迎訪問書庫!</div></TD>
<TR>
<TR>
<TD width="30%">用戶名</TD>
<TD><FONT color=red><%=session("username")%></font></TD></TR>
<TR>
<TD>用戶級別</TD>
<TD><FONT color=red><%=session("usertype")%></font></TD></TR>
<TR>
<TD colspan=2>
您可以訪問級別為<%=session("usertype")%>以下的書。
<br>
<br>建議使用<FONT color=red>1024×768</FONT>分辨率/<FONT color=red>IE4.0</FONT>以上版本瀏覽器。
<br>小竅門：關掉本窗口以后，使用<FONT color=red>F11</FONT>鍵切換到全屏，
<br>可使瀏覽更方便。
</TD>
<TR></TR>
</TABLE></P>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -