📄 view.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>
<%
Dim ISBN
ISBN=Request("ISBN")
%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From bookInfo Where ISBN='"&ISBN&"'"
Rs.Open Sql,conn,1,3
If Rs.RecordCount > 0 Then
%>
<table width='80%' align="center" >
<tr><td colspan='2'><font size="5" face=楷体_GB2312><b><%=Rs("title")%></b></font></td></tr>
<tr><td colspan='2'><hr></td></tr>
<tr><td width='40%' valign=top>
<table><tr><td><img src="<%=Rs("images")%>" width="133" height="175"> </td>
</tr></th><tr><th>图书封面</th></tr></table>
</td><td>
<table>
<tr><th align=right>作 者：</th><td><%=Rs("author")%></td></tr>
<tr><th align=right>书 号：</th><td><%=Rs("ISBN")%></td></tr>
<%
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="Select * From publisherInfo Where pid="&Rs("pid")
Rs1.Open Sql1,conn,3,3
%>
<tr><th align=right>出版社：</th><td><%=Rs1("ptitle")%></td></tr>
<%
Rs1.Close
Set Rs1=nothing
%>
<tr><th align=right>出版时间：</th><td><%=Rs("ptime")%></td></tr>
<tr><th align=right>版 次：</th><td>第 <%=Rs("porder")%> 版</td></tr>
<tr><th align=right>装 订：</th><td><%=Rs("format")%></td></tr>
<tr><th align=right>开 本：</th><td><%=Rs("psize")%></td></tr>
<tr><th align=right>页 数：</th><td><%=Rs("pages")%></td></tr>
<tr><th align=right>字 数：</th><td><%=Rs("words")%></td></tr>
<tr><th align=right>光 盘：</th><td><%=Rs("cd")%> 张</td></tr>
<tr><th align=right>定 价：</th><td><%=Rs("price")%> 元</td></tr>
</table>
</td></tr>
<tr><td colspan=2><hr></td></tr>
<tr><th colspan=2 align=left>主要内容:</th></tr>
<tr><td colspan=2><%=Rs("content")%></td></tr>
</table>
<%
End If
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn=Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -