personal.asp
资源名称:图书管理系统.rar [点击查看]
上传用户:llrg7406
上传日期:2007-03-02
资源大小:654k
文件大小:1k
源码类别:
教育系统应用
开发平台:
Delphi
- <%@ 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>