publish.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 58 行

ASP
58 行
字号 
<!--#include file="conn.asp"-->
<!--#include file="webtop.asp"-->
<HTML>
<head><title><%=webname%>--出版社专题</title>
<meta http-equiv="Content-Type" content="text/html; chars2et=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body>

<%dim pubid,rs2,i
      pubid=request.QueryString("pid")

set rs2=server.CreateObject("adodb.recordset")
    rs2.open "SELECT * FROM shop_publish INNER JOIN shop_books ON shop_publish.bookchuban = shop_books.bookchuban where shop_publish.pubid="&pubid,conn,1,3
%>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
   <tr><br><div><font color=#ff0000 size=2><%=rs2("shop_publish.bookchuban")%></font><font color=blue size=2>精品图书</font></div>
<%do while not rs2.eof
     i=i+1%>
        <td valign="top" bgcolor="#EEF3F9">
         <TABLE  align="center" cellSpacing=0 cellPadding=0 width=100% border=0>
               <td vAlign=top width="15%" style="PADDING-LEFT: 6px"><img height=103 hspace=5 
                        src="images/bg_book.gif" width=71 vspace=5 border=0> <P style="MARGIN-TOP: -112px"><a href=<%=trim(rs2("bookpic"))%> target=_blank><IMG 
                        height=96 alt=查看封面尺寸 hspace=5 
                        src=<%if trim(rs2("bookpic"))="" then
				  response.write "images/emptybook.gif"
				  else
				  response.write trim(rs2("bookpic"))
				  end if%> width=65 vspace=3 
                        border=0></A></td>
                          <td vAlign=top width="85%"><A class=a4 
                        href=book.asp?id=<%=rs2("bookid")%> target=_blank><font color=#FF6600><%=trim(rs2("bookname"))%></font></A><BR>
                            市场价：<%=formatnumber(rs2("shichangjia"),2)&"元"%><BR>
                            会员价：<font color=#FF6600><%=formatnumber(rs2("huiyuanjia"),2)&"元"%></font><BR>
                            节  省：<%=formatnumber(round(rs2("shichangjia")-rs2("huiyuanjia"),2),2)%>元<br>
                             <%response.write "<a href=# onClick=""javascript:window.open('add_bk.asp?bookid="&rs2("bookid")&"&purchase=1','','width=730,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;""><img src=images/ind_gw.gif width=43 height=12 border=0 align='middle'></a>"%>
                             &nbsp;&nbsp;      <a href="shoucang.asp?action=add&id=<%=rs2("bookid")%>" target=_blank><img src="images/ind_sc.gif" width="43" height="12" border="0" align="middle"></a></td>
                            </tr>
                            
                          </table> 
                      <%if (i mod 3=0) and i>=3 then%>
           </tr>
                      <tr><td colspan=3 height=5 ></td></tr>
                      <%end if 
                      rs2.movenext
                      loop
                      %>
           </tr>
       </table>
<%rs2.Close
  Set rs2=Nothing%>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
   </body>
</html>

publish.asp - 源码说明

本页面展示了「创建和运行动态、交互的Web服务器应用程序」中的 publish.asp 源码文件，采用 ASP 编程语言编写，共 58 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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