basic_info.asp

来自「一个简单的图书管理系统」· ASP 代码 · 共 58 行

<link href="style.css" type="text/css" rel="stylesheet">
<!--#include file="conn.asp"-->
<%if session("usertype")="admin" then
response.Write("<div>权限:管理员&nbsp;&nbsp;&nbsp;请在左菜单选择操作</div><br>")
sql="select * from admin where id="&session("adminid")
set rs=db.execute(sql)%><div>
<table width="200" border="1">
  <tr>
    <td>用户名</td>
    <td><%=rs("name")%></td>
  </tr>
  <tr>
    <td>密码</td>
    <td><%=rs("pwd")%></td>
  </tr>
</table></div>
<%else 
sql="select * from u where id="&Session("userid")
set rs=db.execute(sql)
response.Write("<div>权限:用户&nbsp;&nbsp;&nbsp;<a href='my_borrow.asp?id="&rs("id")&"' target='right'>查看借书详情</a></div><br>")
%><div>
<table width="200" border:1pt solid #666666>
  <tr>
    <td>用户名</td>
    <td><%=rs("name")%></td>
  </tr>
  <tr>
    <td>密码</td>
    <td><%=rs("pwd")%></td>
  </tr>
  <tr>
    <td>用户状态</td>
    <td><%if rs("lock") then
	response.Write("锁定状态")
	else 
	response.Write("开通状态")
	end if%></td>
  </tr>
  <tr>
    <td>借书数目</td>
    <td><%=rs("loan_num")%></td>
  </tr>
  <tr>
    <td>我的信箱</td>
    <td><%
	uid=session("userid")
  'msg导出数据，如果有的话
  sql="select count(*) as msg_num from msg where uid="&uid
  set rs=db.execute(sql)
  if rs("msg_num") >=1 then
  response.Write"<a href='readmsg.asp?uid="&uid&"' target=right>有"&rs("msg_num")&"个消息，查看？</a>"
  else response.Write("没有超期消息")
  end if%></td>
  </tr>
</table></div><%end if%><br><br><br><div><a href="index.asp" target="right">首页</a>
&nbsp;&nbsp;&nbsp;<a href="javascript:history.go(-1)" target="right">返回</a>
</div>