教育系统应用

开发平台：

Delphi

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>

						