📄 booksinfodetail.asp

📁 所在类别：随书资源/T　工业技术/TP 自动化技术、计算机技术/TP31 计算机软件其他题名：作者：夏邦贵, 刘凡馨等编著出版者：机械工业出版社出版年： 2006 I

💻 ASP

字号:

<%@ LANGUAGE="VBScript"%><% Response.Buffer=true %>
<HTML>
<HEAD>
    <TITLE>在线图书销售管理系统</TITLE>
    <META content="text/html; charset=gb2312" http-equiv="Content-Type">
    <LINK href="adminstyle.css" rel="stylesheet" type="text/css"> 
    <SCRIPT LANGUAGE="VBScript">
    <!--
       Sub ValidateCountForm
           if not IsNumeric(document.CountForm.booksum.value) then
              msgbox "请输入有效的图书订购数量！"
           else
              document.CountForm.submit
           end if    
       End Sub 
    -->
    </SCRIPT>
</HEAD>
<BODY>
<% 
 if request("BookID")<>"" then
    '建立数据库连接
    Set cn=Server.CreateObject("ADODB.Connection") 
    cn.connectionstring="Provider=SQLOLEDB;UID=sa;pwd=123;" & _
              "database=图书销售;Data Source=(local)"
    cn.Open
    querystr = "SELECT * FROM 图书信息 WHERE book_id = " & Request("BookID") 
    '创建Recordset对象
    Set rs=Server.CreateObject("ADODB.Recordset")
    Set rs.ActiveConnection = cn
    rs.CursorType =1
    rs.LockType = 3    
    '访问数据库获得图书记录
    rs.open querystr   
%>
用户ID：<%=session("userid")%><br>
<TABLE align="center" cellPadding="2" id="TABLE1">
<TBODY id="TBODY1">
<TR><TD>
    <IMG alt="图书封面" id="IMG1" src="face/<%= rs.fields("book_face") %>" style="HEIGHT:200px;WIDTH:156px">
</TD>
<TD>
<P><DIV align="center"><STRONG>《<%= rs.fields("book_name") %>》</STRONG></DIV> 
<BR><FONT size="1">&nbsp;&nbsp;&nbsp;&nbsp;<%= rs.fields("book_brief") %></FONT>
<P><FONT size="2">&nbsp;&nbsp;&nbsp;&nbsp;作&nbsp;&nbsp;者：<%= rs.fields("book_writer") %></FONT>
<FONT size="2">&nbsp;&nbsp;出版社：<%= rs.fields("book_press") %></FONT>
<BR><FONT size="2">&nbsp;&nbsp;&nbsp;&nbsp;出版日期：<%= rs.fields("book_pdate") %></FONT>
<FONT size="2">&nbsp;&nbsp;页数：<%= rs.fields("book_page") %></FONT>
<FONT size="2">&nbsp;&nbsp;单价：<%= rs.fields("book_price") %></FONT>
<P><P>
</TD></TR><TR>
<TD COLSPAN="2" ALIGN="CENTER">
<FORM NAME="CountForm" ACTION='BooksInfoDetail.asp?BookID=<%=Request("BookID")%>' METHOD="POST">
订购数量:
<INPUT maxLength="5" name="booksum" value='<%=Request("booksum")%>'>
<INPUT onclick="VBScript:ValidateCountForm" type="button" value="加入订购清单">
</FORM>
</TD></TR>
</TBODY>
</TABLE>
<% if request("booksum")<>"" then  
     '添加订购项目
     if Instr(1,session("BookOrderList"),request("bookid") & "=")=0 then
        session("BookOrderList")=session("BookOrderList") & request("bookid") _
                                & "=" & request("booksum") & ";"
        Response.WRITE "<div align=center><font color=red>"
        Response.WRITE  "当前图书订购信息已被成功保存！</font></div>"
     else 
        Response.WRITE "<div align=center><font color=red>"
        Response.WRITE  "你已经订购了该当前图书！</font></div>"
     end if
  end if
  '关闭数据库连接，释放ADO对象
  rs.close  
  cn.close
  set rs=nothing
  set cn=nothing
  response.Flush
end if      
%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -