📄 detail.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>
<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>
<tr>
<td height="192" valign="top"><table width="100%" height="138" border="0" cellpadding="0" cellspacing="0" ID="Table1">
<tr>
<td height="138" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" ID="Table2">
<%
Dim id
id = Request("id")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From bookInfo Where id="&id
Rs.Open Sql,conn,3,3
%>
<tr>
<td align="center"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#006666" ID="Table3">
<tr align="center" bgcolor="#99AAA7">
<td height="30" colspan="2"><a href="JavaScript:history.go(-1);">返回</a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="25%" height="30" align="center" bgcolor="#FFFFFF">图书编号：</td>
<td width="75%" bgcolor="#FFFFFF"> <%=Rs("ISBN")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">图书名称：</td>
<td bgcolor="#FFFFFF"> <%=Rs("title")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">作者：</td>
<td bgcolor="#FFFFFF"> <%=Rs("author")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">出版日期：</td>
<td bgcolor="#FFFFFF"> <%=Rs("ptime")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">版次：</td>
<td bgcolor="#FFFFFF"> <%=Rs("porder")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">定价：</td>
<td bgcolor="#FFFFFF"> <%=Rs("price")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">封装：</td>
<td bgcolor="#FFFFFF"> <%=Rs("format")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">开本：</td>
<td bgcolor="#FFFFFF"> <%=Rs("psize")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">页数：</td>
<td bgcolor="#FFFFFF"> <%=Rs("pages")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">字数：</td>
<td bgcolor="#FFFFFF"> <%=Rs("words")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">附光盘：</td>
<td bgcolor="#FFFFFF"> <%=Rs("cd")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">总本数：</td>
<td bgcolor="#FFFFFF"> <%=Rs("total")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">库存：</td>
<td bgcolor="#FFFFFF"> <%=Rs("remain")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">存放位置：</td>
<td bgcolor="#FFFFFF"> <%=Rs("bookwhere")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">添加时间：</td>
<td bgcolor="#FFFFFF"> <%=Rs("addtime")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">录入人：</td>
<td bgcolor="#FFFFFF"> <%=Rs("manager")%> </td>
</tr>
<%
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="Select * From publisherInfo Where pid="&Rs("pid")
Rs1.Open Sql1,conn,3,3
%>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">出版社：</td>
<td bgcolor="#FFFFFF"> <%=Rs1("ptitle")%></td>
<%
Rs1.Close
Set Rs1=nothing
%>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">主要内容：</td>
<td bgcolor="#FFFFFF"> <%=Rs("content")%></td>
</tr>
<%
Rs.Close
Set Rs=nothing
Conn.Close
Set Conn = nothing
%>
</table>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<% Else %>
<tr align="center">
<td height="50" align="center"><font color="ff0000">对不起，请不要非法登录！</font></td>
</tr>
<% End If %>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -