bookview.asp

来自「ASP+SQL Server的图书馆管理系统」· ASP 代码 · 共 117 行

ASP
117 行
字号 
<!--#include File="ConnDB.asp"-->
<html>
<head>
<title>查看图书信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=style.css rel=STYLESHEET type=text/css>
</head>
<Script language="javascript">
function newOrder(url) {
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
  oth = oth+",width=500,height=150";
  var newOrder=window.open(url,"newOrder",oth);
  newOrder.focus();
  return false;
}

function OpenBask(Book_id){
  var url;
  url = "BookIn.asp?book_id=" + Book_Id;
  newOrder(url);
}
</Script>

<body>
<%
  set rs=server.createobject("adodb.recordset")  
  Dim id,iname
  id = Request.QueryString("Book_Id")
  sql = "Select * From Book_Info Where Book_id=" & Cint(id)
  Set rsBook_Info = conn.Execute(sql)
  If rsBook_Info.Eof Then
    Response.Write "没有此图书信息"
    Response.End
  Else
    iname = rsBook_Info("Book_ImageFile")
    conn.Execute(sql)

%>
     <form method="POST"  name="form1">
     <table border="1" width="100%" cellspacing="1" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
          <tr> 
            <td width="70%"><font color=blue>图书类别</font>
<%
  sql = "SELECT * FROM Book_Type WHERE type_id=" & rsBook_Info("book_type")
  rs.Open sql,conn,3,3
  If rs.EOF Then
%>  没有类别信息
<%
  Else
    Response.Write(rs("type_name"))
  End If
  rs.Close
%>
              </select>
            </td>
            <td width="30%" rowspan="4" align=center><% If IsNull(iname) Or iname = "" Then%>
            <img src="images\noImg.jpg" width="120" border=0>
   			<%Else%><img src="images\<%=rsBook_Info("Book_ImageFile")%>" width="90" border=0>
        	<%End If%></td>
				</tr>
          <tr> 
            <td><font color=blue>图书名称</font>
            <%=rsBook_Info("Book_Name")%></td>
          </tr>
          <tr> 
            <td><font color=blue>作者</font>
            <%=rsBook_Info("BOOK_Author")%></td>
          </tr>
          <tr> 
            <td><font color=blue>出版社</font>
            <%=rsBook_Info("Book_Press")%></td>
          </tr>
          <tr> 
            <td colspan="2"><font color=blue>出版日期</font>
            <%=rsBook_Info("Book_PrsDate")%></td>
          </tr>
		  <tr> 
            <td colspan="2"><font color=blue>上架日期</font>
            <%=rsBook_Info("Book_AddDate")%></td>
          </tr>
		  <tr> 
            <td colspan="2"><font color=blue>图书数量</font>
            <%=rsBook_Info("Book_Total")%></td>
          </tr>
		  <tr> 
            <td colspan="2"><font color=blue>是否在库</font>
            <%=rsBook_Info("Book_Entitle")%></td>
          </tr>
          <tr> 
            <td colspan="2"><font color=blue>图书简介</font>
            </td>
          </tr>
          <tr> 
            <td colspan="2"><%=rsBook_Info("Book_Remark")%></td>
          </tr>
        </table>
        <p align="center"><center>
        <a href="javascript:window.close();">[关闭]</a></center></p>
      </form>
<%End If%>      
</body>

bookview.asp - 源码说明

本页面展示了「ASP+SQL Server的图书馆管理系统」中的 bookview.asp 源码文件，采用 ASP 编程语言编写，共 117 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Server相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?