📄 userborrow.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欢迎光临本图书馆</title>
<Link href="Css.css" rel=stylesheet>
</head>
<!--#include file="Conn.asp"-->
<!--#include file="Function.asp"-->
<body topmargin="0" leftmargin="0">
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><img src="Images/title.jpg" width="283" height="51"></td>
</tr>
<% If Session("admin") <> "" Then %>
<tr>
<td height="25" ><table width="780" border="0" bgcolor="#EFEFEF" align="center" cellpadding="0" cellspacing="0" style="border-color:#000000;border-top-style: solid;border-top-width: 1">
<tr>
<td height="25" bgcolor="#EFEFEF"> <a href="Default.asp">首页 </a>|<a href="AdminBorrow.asp"> 借书管理 </a>|<a href="AdminPublish.asp"> 出版社管理 </a>|<a href="AdminBook.asp"> 图书管理 </a>|<a href="AdminUser.asp"> 用户管理 </a>|<a href="ModifyAdmin.asp"> 修改密码 </a>|<a href="Logout.asp"> 退出 </a>
</td>
</tr>
</table></td>
</tr>
<%
Dim name
name = Trim(Request.Form("name"))
%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From userInfo Where name='"&name&"'"
Rs.Open Sql,conn,3,3
If Rs.EOF Or Rs.BOF Then
Response.Write "<Script>alert('用户名错误，请重新输入！');</Script>"
Response.End
Else
%>
<tr>
<td>
<table width="100%" border="1" ID="Table1">
<tr>
<td width="14%" rowspan="4" align="center" bgcolor="#FFFFFF"><img src="<%=Rs("images")%>"></td>
<td width="10%" height="25" align="right" bgcolor="#FFFFFF">姓名：</td>
<td width="17%" bgcolor="#FFFFFF"><%=Rs("name")%></td>
<td width="11%" height="25" align="right" bgcolor="#FFFFFF">性别：</td>
<td width="7%" bgcolor="#FFFFFF">
<%
If Rs("gender") = 1 Then
Response.Write "男"
Else
Response.Write "女"
End If
%> </td>
<td width="9%" height="25" align="right" bgcolor="#FFFFFF">E-mail：</td>
<td width="15%" bgcolor="#FFFFFF"><%=Rs("email")%></td>
<td width="4%" height="25" align="right" bgcolor="#FFFFFF">QQ：</td>
<td width="13%" bgcolor="#FFFFFF"><%=Rs("qq")%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">电话：</td>
<td bgcolor="#FFFFFF"><%=Rs("tel")%></td>
<td height="25" align="right" bgcolor="#FFFFFF">身份证号码：</td>
<td height="25" colspan="5" bgcolor="#FFFFFF"> <%=Rs("number")%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">工作单位：</td>
<td height="25" colspan="3" bgcolor="#FFFFFF"><%=Rs("department")%></td>
<td height="25" align="right" bgcolor="#FFFFFF">单位地址：</td>
<td height="25" colspan="3" bgcolor="#FFFFFF"> <%=Rs("deaddress")%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">家庭住址：</td>
<td height="25" colspan="3" bgcolor="#FFFFFF"><%=Rs("hoaddress")%></td>
<td height="25" align="right" bgcolor="#FFFFFF">邮编：</td>
<td height="25" colspan="3" bgcolor="#FFFFFF"> <%=Rs("post")%></td>
</tr>
</table>
</td>
</tr>
<%
End If
Rs.Close
Set Rs=nothing
%>
<tr>
<td height="25" align="right">
</td>
</tr>
<tr>
<td height="25" align="right">
</td>
</tr>
<tr align="center">
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#006666">
<tr align="center" bgcolor="#FFFFFF">
<td height="30" colspan="5"><a href="AddBorrow.asp">◆添加借书记录◆</a></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td width="20%" height="30">图书编号</td>
<td width="20%" height="30">借书日期</td>
<td width="20%" height="30">借多长时间</td>
<td width="20%" height="30">录入人</td>
<td width="20%" bgcolor="#FFFFFF">相关操作</td>
</tr>
<%
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql1 = "Select * From borrowlist Where name='"&name&"'"
Rs1.Open Sql1,conn,3,3
If Rs1.Eof And Rs1.Bof Then
Response.Write "<tr><td height='25' align='center' bgcolor='#FFFFFF' colspan='5'>该用户目前还没有借书记录！ </td></tr>"
Response.End
Else
Do While not Rs1.Eof
%>
<tr align="center" bgcolor="#FFFFFF">
<td height="30"><a href="View.asp?ISBN=<%=Rs1("ISBN")%>"><%=Rs1("ISBN")%></a></td>
<td height="30"><%=Rs1("botime")%></td>
<td height="30"><%=Rs1("retime")%></td>
<td height="30"><%=Rs1("manager")%></td>
<td bgcolor="#FFFFFF">
<a href="EditBorrow.asp?id=<%=Rs1("id")%>"><img src="Images/edit.jpg" width="15" height="15" border="0">修改</a>
<a href="javascript:if(window.confirm('你确实要删除此项记录吗?') == true){window.location ='DeleteBorrow.asp?id=<%=Rs1("id")%>&ISBN=<%=Rs1("ISBN")%>';}"><img src="Images/delete.jpg" width="15" height="15" border="0">删除</a> </td>
</tr>
<% Rs1.MoveNext
Loop
End If
Rs1.Close
Set Rs1=nothing
Conn.close
Set Conn=nothing
%>
</table>
</td>
</tr>
<% Else %>
<tr>
<td height="50" align="center"><font color="ff0000">对不起，请不要非法登录！</font></td>
</tr>
<%End If%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -