📄 bookmore.asp

📁 BJXSHOP购物管理系统是一个功能完善、展示信息丰富的电子商店销售平台；针对企业与个人的网上销售系统；开放式远程商店管理；完善的订单管理、销售统计、结算系统；强力搜索引擎支持；提供网上多种在线支付方

💻 ASP

字号:

<!--#include file="connection.asp"-->
<%dim bookid,guanjian,bookname
bookid=int(request.QueryString("id"))
if bookid="" then response.End
set rs=server.CreateObject("adodb.recordset")
rs.open "select bookname,guanjian from shop_books where bookid="&bookid,conn,1,1
bookname=trim(rs("bookname"))
guanjian=trim(rs("guanjian"))
rs.close
set rs=nothing
%>
<html>
<head>
<title>相关书籍</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/default.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="10" marginwidth="0" marginheight="0">
<table width="96%" border="0" align="center" cellpadding="1" cellspacing="2" bgcolor="#FFFFFF">
  <tr> 
    <td bgcolor="#FDE6A4"><div align="center">与《<%=bookname%>》相关的书籍</div></td>
  </tr>
  <tr>
    <td bgcolor="#FDFADD" style="padding-left:10"><%dim i 
	i=1
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select top 99 bookname,bookid from shop_books where guanjian like '%"&guanjian&"%' and queshu=0 ORDER BY liulancount desc ",conn,1,1
	if not (rs.eof and rs.bof) then
	do while not rs.eof
	response.write i&"、<a href=book.asp?id="&rs("bookid")&" target=_blank>"&trim(rs("bookname"))&"</a><br>"
	i=i+1
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	%></td>
  </tr>
</table>
</body>
</html>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -