📄 books8.asp
字号:
<!--#include file="conn.inc"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title><STYLE type=text/css>
.inputfield {
BACKGROUND-POSITION: center; FONT-WEIGHT: bolder; FONT-SIZE: 12px; LINE-HEIGHT: 16px; FONT-STYLE: normal; FONT-FAMILY: "宋体"}
.text {
FONT-WEIGHT: normal; FONT-SIZE: 12px; WORD-SPACING: 2px; COLOR: #000000; LINE-HEIGHT: 17px; FONT-FAMILY: "宋体"; TEXT-ALIGN: justify; TEXT-DECORATION: none
}
BODY {
MARGIN: 0px
}
.text1 { font-family: "宋体";
font-size: 12px;
line-height: 17px;
color: #000000;
text-align: justify;
word-spacing: 2px;
font-weight: normal;
}
</STYLE>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
</head>
<body background="images/back.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="777" height="820" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="88B7E6">
<tr valign="top">
<td height="70" colspan="2" background="images/back.jpg"> <div align="center">
<TABLE height=70 cellSpacing=0 cellPadding=0 width=775 align=center
bgColor=#ffffff border=0>
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD vAlign=top width=224 height=70><IMG id=logo height=70 alt=前沿科技图书
src="images/logotranDEEP.gif" width=205 name=logo></TD>
<TD
style="FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFFFFF', endColorStr='#4A91D9', gradientType='1')"
vAlign=top width=463 height=70> </TD>
<TD vAlign=top width=88
bgColor=#4a91d9><!--DWLayoutEmptyCell--> </TD>
</TR>
</TBODY>
</TABLE>
</div></td>
</tr>
<tr valign="top">
<td height="16" colspan="2" background="images/back.jpg"> <div align="center">
<Iframe width="775" height="25" id="log" src="login3.asp" frameborder=0> </IFRAME>
</div></td>
</tr>
<tr>
<td width="162" rowspan="2" valign="top" bgcolor="EFF5FC"> <div align="center">
<table width="100%" height="390" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20" colspan="2" class="inputfield"><strong> 寻 书</strong></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_anclass",conn,1,1
if rs.EOF and rs.BOF then
response.Write "<div align=center><font color=red>还没有分类</font></center>"
else
do while not rs.EOF
%>
<tr>
<td width="15" height="16"> </td>
<td width="151" class="text"><a href="books3.asp?class=<%=rs("anclass")%>&type=1" class="text"><%=rs("anclass")%></a></td>
</tr>
<%
rs.MoveNext
loop
end if
%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_nclass",conn,1,1
if rs.EOF and rs.BOF then
response.Write "<div align=center><font color=red>还没有分类</font></center>"
else
do while not rs.EOF
%>
<tr>
<td width="15" height="16"> </td>
<td width="151" class="text"><a href="books3.asp?class=<%=rs("anclass")%>&type=2" class="text"><%=rs("anclass")%></a></td>
</tr>
<%
rs.MoveNext
loop
end if
%>
<tr> </tr>
<tr>
<td height="16" colspan="2" class="inputfield"><strong> 购 书</strong></td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">前沿在线书屋</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">其他书店列表</td>
</tr>
<tr> </tr>
<tr>
<td height="16" colspan="2" class="inputfield"><strong> 读 书</strong></td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">前沿书友会</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">读者作品展示台</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">书评与建议</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">查看与提交勘误信息</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">图书补充资料下载</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">本网站常见问题解答</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">在线学习</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">每日一文</td>
</tr>
<tr>
<td height="20"> </td>
<td class="text">论坛直通车</td>
</tr>
<tr> </tr>
<tr>
<td height="2" colspan="2" class="inputfield"><strong> 写 书</strong></td>
</tr>
<tr>
<td height="2"> </td>
<td class="text">您想写书吗？</td>
</tr>
<tr>
<td height="4"> </td>
<td class="text">我们的进度及规划</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">作者指南</td>
</tr>
<tr bgcolor="88B7E6"> </tr>
</table>
</div></td>
<td height="133" valign="top" background="images/back.jpg"> <div align="right">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="612" height="133">
<param name="movie" value="images/banner.swf">
<param name="quality" value="high">
<embed src="images/banner.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="612" height="133"></embed></object>
</div></td>
</tr>
<tr>
<td height="546" valign="top" background="images/back.jpg" class="text">
<div align="left">
<table width="613" border="0" align="center" cellpadding="0" cellspacing="0" class="text1">
<!--DWLayoutTable-->
<tr>
<%
dim MaxPerPage
dim sql
dim rs
dim gstBookID
dim totalPut
dim CurrentPage
dim TotalPages
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
id=request("id")
filename="books8.asp?id="&id
set rs=server.createobject("adodb.recordset")
sql= "SELECT * FROM shop_books where bookid="&id&""
rs.open sql,conn,1,1
%>
<td width="587"><p> 列出关于"<%=rs("bookname")%>"的评论：
<span class="black12px"> <br>
<%
set rs=server.createobject("adodb.recordset")
sql= "SELECT * FROM shop_pinglun where bookid="&id&" and shenhe=1 order by pinglundate Desc "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
还没有信息！
<div align="center">
<% else
rs.pagesize=5
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showContent
showpages1
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark '移动到开始显示的记录位置
showContent
showpages1
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i,j
%>
<table width="595" border="0" cellpadding="0" cellspacing="0" class="default">
<!--DWLayoutTable-->
<tr valign="top">
<td width="569" height="14" colspan="2"><!--DWLayoutEmptyCell--> </td>
</tr>
<%
i=1
do while not (rs.eof or err)
%>
<!--DWLayoutTable-->
<tr>
<td height="52" align="center" valign="middle" class="text1"><table width="90%" border="0" align="center" cellspacing="1" class="text1">
<tr>
<td bgcolor="#D7EBFF"><%=rs("name")%>于<%=rs("pinglundate")%>提交：</td>
</tr>
<tr>
<td bgcolor="EFF5FC"><%=rs("pingluntitle")%></td>
</tr>
<%if rs("pinglunname")<>"" then %>
<tr>
<td bgcolor="D7EBFF">回复:<%=rs("pinglunname")%></td>
</tr>
<%end if%>
</table></td>
</tr>
<%
if i>=MaxPerPage then exit do
i=i+1
rs.movenext
loop
%>
<tr valign="bottom">
<td height="140" colspan="2" align="center">
<%
end sub
sub showpages1()
dim n
n=totalPage
%>
<form action="<%=filename%>" method="POST">
<div align="center">
<table width="100%" height="30" border="0" align="left" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse">
<tr>
<td height="30">
<div align="right"><span style="font-size:9pt"> 共<font color="red"><%=totalPut%></font>条信息</span>
<% If currentPage <> 1 Then %>
<A href=<%=filename%>><font color="#FF6600"><span style="font-size:9pt">[首页]</span></font></A>
<A href=<%=filename%>&Page=<%=(currentPage-1)%>><font color="#FF6600"><span style="font-size:9pt">[上一页]</span></font></A>
<% End If %>
<% If currentPage <> rs.PageCount Then %>
<A href=<%=filename%>&Page=<%=(currentPage+1) %> ><font color="#FF6600"><span style="font-size:9pt">[下一页]</span></font></A>
<A href=<%=filename%>&Page=<%=totalPage%>><font color="#FF6600"><span style="font-size:9pt">[尾页]</span></font></A>
<% End If %>
<span style="font-size:9pt">第<font color="#FF0000"><%=currentPage%></font>页/共<font color="#FF0000"><%=totalPage%></font>页
<% response.write " 转到：<select name='page' size=1 class=smallselsect style='font-family: 宋体; font-size: 9pt;'>"
for i=1 to n
response.write "<option value="& i
if currentpage=i then
response.write " selected"
end if
response.write ">"& i &"</option>"
next
response.write "</select>"
response.write"<input name='id' type='hidden' value='"&request("id")&"'>"
response.write " <input class=buttonface type='submit' value='go' style='font-family: 宋体; font-size: 9pt;'>"
%>
</span> </div></td>
</tr>
</table>
</div>
</form>
<div align="center"><br>
<br>
<br>
<br>
<br>
<%end sub%>
</div></td>
</tr>
</table>
</div>
</span></td>
</tr>
<tr>
<td><div align="right"></div></td>
</tr>
</table>
<div align="center"></div>
<p align="center" class="large"> </p>
</div></td>
</tr>
<tr>
<TD height=40 colspan="5"
style="FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFFFFF', endColorStr='#4A91D9', gradientType='1')">
<DIV align=right><span class="text">2004 北京前沿公司.前沿图书工作室.保留所有权利。</span></DIV></TD>
</tr>
</table>
<div align="center"></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -