📄 title_detail.old.asp
字号:
<html>
<!--#INCLUDE FILE="BaseFun.asp"-->
<%
XHBID=Request.querystring("XHBID")
book_name=request.querystring("book_name")
set con=server.createobject("ADODB.Connection")
con.open Application("str_con")
set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con
set res5=server.createobject("ADODB.Recordset")
set res5.ActiveConnection = con
res5.source="select hits from bookW where XHBID="&XHBID
res5.cursorlocation=3
res5.locktype=2
res5.open
hits=res5("hits")
if isnull(hits) then
hits=1
else
hits=hits+1
end if
res5("hits")=hits
res5.update
res5.close
res.source="select 丛书名,正书名,副书名,责任者,其他责任者,出版日期,出版者,ISBN,FMZPID,pic_id,pdf_path,定价,装帧,开本,折扣,备注,内容简介,作者简介,目录 from bookW where XHBID='"&XHBID&"'"
res.open
author=""
if not isNull(res("责任者")) then
author=res("责任者")
end if
if not isNull(res("其他责任者")) then
author=author+" "+res("其他责任者")
end if
%>
<head>
<title>《<%=book_name%>》</title>
</head>
<body style="FONT-SIZE: 9pt">
<h1 align="center"><strong>《<%=res("正书名")%>》</strong></h1>
<div align="center"><center>
<table border="0" width="90%" style="FONT-SIZE: 9pt">
<tr>
<td width="40%" rowspan="13">
<%if not isnull(res("FMZPID")) then %>
<img src=DispP.asp?FMZPID=<%=res("FMZPID")%> width="194" height="247">
<%else %>
<img src="<%=res("pic_id")%>" width="194" height="247">
<%end if%>
</td>
<td width="20%" align="right"></td>
<td width="40%" align="left"></td>
</tr>
<tr>
<td width="20%" align="right">副书名： </td>
<td width="40%" align="left"><%=res("副书名")%>
</td>
</tr>
<tr>
<td width="20%" align="right">丛书名： </td>
<td width="40%" align="left"><%=res("丛书名")%>
</td>
</tr>
<tr>
<td width="20%" align="right">作者： </td>
<td width="40%" align="left"><%=author%>
</td>
</tr>
<tr>
<td width="20%" align="right">装帧： </td>
<td width="40%" align="left"><%=res("装帧")%>
</td>
</tr>
<tr>
<td width="20%" align="right">开本： </td>
<td width="40%" align="left"><%=res("开本")%>
</td>
</tr>
<tr>
<td width="20%" align="right">出版日期： </td>
<td width="40%" align="left"><%=res("出版日期")%>
</td>
</tr>
<tr>
<td width="20%" align="right">ISBN： </td>
<td width="40%" align="left"><%=res("ISBN")%>
</td>
</tr>
<tr>
<td width="20%" align="right">定价： </td>
<td width="40%" align="left"><FONT color=tomato><%=res("定价")%></FONT> </td>
</tr>
<tr>
<td width="20%" align="right">折扣： </td>
<td width="40%" align="left"><FONT color=tomato><%=res("折扣")%></FONT> </td>
</tr>
<tr>
<td width="20%" align="right">备注： </td>
<td width="40%" align="left"> <FONT color=tomato><%=res("备注")%></FONT></td>
</tr>
<tr>
<td width="20%" align="right">出版社： </td>
<td width="40%" align="left"><%=res("出版者")%>
</td>
</tr>
</table>
</center></div><div align="center"></div>
<%nrjj=res("内容简介")
if not isNull(nrjj) then %>
<p> </p>
<div align="center"><center>
<table border="0" width="60%" style="font-size: 9pt; background-color: rgb(192,192,192); border: medium none">
<tr>
<td width="25%" align="center">内容简介</td>
</tr>
<tr>
<td width="25%" align="left" bgcolor=LightYellow><%=changeBR( nrjj,chr(13)+chr(10) )%></td>
</tr>
</table>
</center></div>
<%end if%>
<%zzjj=res("作者简介")
if not isNull(zzjj) then %>
<p> </p>
<div align="center"><center>
<table border="0" width="60%" style="font-size: 9pt; background-color: rgb(192,192,192); border: medium none">
<tr>
<td width="25%" align="center">作者简介</td>
</tr>
<tr>
<td width="25%" align="left" bgcolor=LightYellow><%=changeBR( zzjj,chr(13)+chr(10) )%></td>
</tr>
</table>
</center></div>
<%end if%>
<%ml=res("目录")
if not isNull(ml) then %>
<p> </p>
<div align="center"><center>
<table border="0" width="60%" style="font-size: 9pt; background-color: rgb(192,192,192); border: medium none">
<tr>
<td width="25%" align="center">目录</td>
</tr>
<tr>
<td width="25%" align="center" bgcolor=LightYellow><%=changeBR( ml,chr(13)+chr(10) )%></td>
</tr>
</table>
</center></div>
<%end if%>
<% if res("pdf_path")<>"" then %>
<p> </p>
<div align="center"><center>
<table border="0" width="30%" style="font-size: 9pt; background-color: rgb(192,192,192); border: medium none">
<tr>
<td width="25%" align="center"><a href="<%=res("pdf_path")%>" target="_blank">更多内容</a></td>
</tr>
</table>
</center></div>
<%end if%>
<%
res.close
%>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function form2_onsubmit(theForm) {
if (theForm.number.value == "")
{
alert("请输入 \"购买册数\" .");
theForm.number.focus();
return (false);
}
if ( (theForm.number.value > 1000)||(theForm.number.value < 1) )
{
alert("请重新输入 \"购买册数\" .");
theForm.number.focus();
return (false);
}
var checkOK = "0123456789";
var checkStr = theForm.number.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
if (ch != ",")
allNum += ch;
}
if (!allValid)
{
alert("请重新输入 \"购买册数\" .");
theForm.number.focus();
return (false);
}
return (true)
}
//-->
</script>
<p><p>
<table border="0" width="90%" style="FONT-SIZE: 9pt">
<tr>
<td width="70%" align="center">
<form Action="gwc.asp" Method="POST" name="form2" LANGUAGE="javascript" onsubmit="return form2_onsubmit(this)">
<input type="hidden" name="ShopID" value="<%=Application("ZDID")%>">
<input type="hidden" name="XHBID" value="<%=XHBID%>">
<input type="hidden" name="flag" value="new1">
<input type="text" name="number" value="1" maxlength="3" size="3">册
<input type="submit" name="b1" value="放进购物车" style="font-size: 9pt">
</form>
</td>
<td width="15%" align="center">
<form>
<input type="button" value="返回" onclick="history.back()" style="font-size: 9pt">
</form>
</td>
<td width="15%" align="center">
<form action="../payment/pay1.asp" method="post">
<input type="submit" value="去交款处" style="font-size: 9pt">
</form>
</td>
</tr>
</table>
<%'以下是书评%>
<script language="JavaScript">
function writereview(XHBID,book_name) {
OpenWindow=window.open('writereview.asp?XHBID='+XHBID+'&book_name='+book_name,'reviewwin','toolbar=no,scrollbars=yes,menubar=no,width=600');
}
</script>
<p><a href="javascript:writereview('<%=XHBID%>','<%=book_name%>')"><font size="3">我要写书评</font></a></p>
<%
set res6=server.createobject("ADODB.Recordset")
set res6.ActiveConnection = con
res6.source="select grade,review_title,review,log_name,write_time from book_review where XHBID="&XHBID
res6.cursorlocation=3
res6.Open
if res6.recordcount>0 then
For i = 1 to res6.recordcount
%>
<p>
<table WIDTH="75%" ALIGN="center" BORDER="0" CELLSPACING="1" CELLPADDING="1" style="FONT-SIZE: 9pt">
<tr>
<td>评论等级：
<% select case res6("grade")
case 2
%><img src="star2.jpg" WIDTH="15" HEIGHT="13"><%
case 4
%><img src="star4.jpg" WIDTH="29" HEIGHT="13"><%
case 6
%><img src="star6.jpg" WIDTH="39" HEIGHT="13"><%
case 8
%><img src="star8.jpg" WIDTH="42" HEIGHT="13"><%
case 10
%><img src="star10.jpg" WIDTH="56" HEIGHT="13"><%
end select
%>
</td>
<td>评论人：<%=res6("log_name")%></td>
<td>评论时间：<%=res6("write_time")%></td>
</tr>
</table>
<table WIDTH="75%" ALIGN="center" BORDER="0" CELLSPACING="1" CELLPADDING="1" style="FONT-SIZE: 9pt">
<tr>
<td ALIGN="left">评论标题：<%=res6("review_title")%></td>
</tr>
<tr>
<td ALIGN="left" height="4"><%=res6("review")%></td>
</tr>
</table>
</p>
<%
res6.movenext
next
%>
<p><a href="javascript:writereview('<%=XHBID%>','<%=book_name%>')"><font size="3">我要写书评</font></a></p>
<%
end if 'res6.recordcount>0
res6.close
%>
<%'以上是书评%>
<%
con.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -