📄 query_lb.asp
字号:
<!--#include File="adovbs.inc"-->
<html>
<head>
<title>分类查询</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<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)
}
function b_go_onclick(theForm,maxPage) {
if (theForm.GotoPageNo.value == "")
{
alert("请输入 \"要转到的页数\" .");
theForm.GotoPageNo.focus();
return (false);
}
if ( (theForm.GotoPageNo.value > maxPage)||(theForm.GotoPageNo.value < 1) )
{
alert("请重新输入 \"要转到的页数\" .");
theForm.GotoPageNo.focus();
return (false);
}
var checkOK = "0123456789";
var checkStr = theForm.GotoPageNo.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.GotoPageNo.focus();
return (false);
}
return (true)
}
//-->
</SCRIPT>
<%
lb=Request("lb")
Mv = Request.form("Mv")
PageNo = Request.form("PageNo")
GotoPageNo = CInt(Request.form("GotoPageNo"))
%>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<table width="776" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="26" valign="top" bgcolor="fed202">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000">
<tr>
<td width="40"> </td>
<td width="30"><font color="#FFFFFF" size="2">首页</font></td>
<td width="65"><font color="#FFFFFF" size="2">查看购物车</font></td>
<td width="60"><font color="#FFFFFF" size="2">商务服务</font></td>
<td width="60"><font color="#FFFFFF" size="2">定单查询</font></td>
<td width="60"><font color="#FFFFFF" size="2">个人信息</font></td>
<td width="60"><font color="#FFFFFF" size="2">用户注册</font></td>
<td width="60"><font color="#FFFFFF" size="2">关于本站</font></td>
<td width="60"><font color="#FFFFFF" size="2">合作伙伴</font></td>
<td width="39"><font color="#FFFFFF" size="2">对话</font></td>
<td width="49"> </td>
<td width="10"> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="776" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="15" bgcolor="fed202" rowspan="2"> </td>
<td width="84" valign="top" rowspan="2"><img src="image/tu1.gif" width="90" height="99"></td>
<td valign="top" width="74" rowspan="2">
<div align="left"><img src="image/tu2.gif" width="74" height="99"></div>
</td>
<td valign="top" width="569"><img src="image/line.gif" width="300" height="7"></td>
<td rowspan="2" width="15" bgcolor="fed202"> </td>
</tr>
<tr>
<td valign="middle" width="582" height="45">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="79%">
<div align="center"><b><%=lb%></b></div>
</td>
<td width="21%"> </td>
</tr>
</table>
</td>
</tr>
<%
set con=server.createobject("ADODB.Connection")
con.open Application("str_con")
set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con
res.source="select XHBID,丛书名,正书名,副书名,责任者,其他责任者,出版日期,出版者,FMZPID,定价,flag_new,flag_pre,hits,折扣,备注 from bookW where 类别 = '"&lb&"'"
res.pagesize=10
res.cursorlocation=3
res.open ,,adOpenStatic
PageCount = res.PageCount
if res.eof=true then
response.write "没有满足条件的图书 !"
res.close
set res=nothing
con.Close
Response.End
end if
If PageNo = "" Then
PageNo = 1
End If
Select Case Mv
Case "首页"
PageNo = 1
Case "上一页"
If PageNo > 1 Then
PageNo = PageNo - 1
Else
PageNo = 1
End If
Case "下一页"
If res.AbsolutePage < PageCount Then
PageNo = PageNo + 1
Else
PageNo = PageCount
End If
Case "尾页"
PageNo = PageCount
Case "go!"
PageNo = GotoPageNo
Case Else
PageNo = 1
End Select
res.AbsolutePage = PageNo
%>
<tr>
<td bgcolor="fed202" width="15"> </td>
<td valign="top" width="84"><img src="image/tu3.gif" width="90" height="126"></td>
<td valign="top" colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="38" valign="top">
<form Action="query_lb.asp" Method="POST" name="form4">
<input type="hidden" name="lb" value="<%=lb%>">
<input type="hidden" name="PageNo" value="<%=PageNo%>">
<input TYPE="submit" Name="Mv" Value="首页" style="font-size: 9pt" <%If PageNo = 1 Then %>disabled<%End If %>>
<input TYPE="submit" Name="Mv" Value="上一页" style="font-size: 9pt" <%If PageNo <= 1 Then %>disabled<%End If %>>
<input TYPE="submit" Name="Mv" Value="下一页" style="font-size: 9pt" <%If PageNo >= PageCount Then %>disabled<%End If %>>
<input TYPE="submit" Name="Mv" Value="尾页" style="font-size: 9pt" <%If PageNo = PageCount Then %>disabled<%End If %>>
转到第<input name="GotoPageNo" size="4" value="<%=GotoPageNo%>">页
<input TYPE="submit" Name="Mv" Value="go!" style="font-size: 9pt" id=b_go LANGUAGE=javascript onclick="return b_go_onclick(form4,<%=PageCount%>)">
第<%=PageNo%>页；共<%=PageCount%>页；共<%=res.recordcount%>条书目
</form>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
For j = 1 to res.PageSize
book_name=""
if not isNull(res("丛书名")) then
book_name="<b>"+res("丛书名")+"：</b>"
end if
if not isNull(res("正书名")) then
book_name=book_name+res("正书名")
end if
if not isNull(res("副书名")) then
book_name=book_name+" - "+res("副书名")
end if
%>
<tr>
<td width="6"><img src="image/jiaoleft.gif" width="8" height="29"></td>
<td bgcolor="dbebff"><font size="2" color="#000099"><a Href="title_detail.asp?XHBID=<%=res("XHBID")%>&book_name=<%=book_name%>"><%=book_name%></a></font></td>
<td width="36"><div align="left"><img src="image/jiaoright.gif" width="9" height="29"></div></td>
</tr>
<tr>
<td> </td>
<td bgcolor="f1fcf8">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="19%"><font size="2">价格：<font color="#FF9966"><%=res("定价")%></font>元</font></td>
<td width="19%"><font size="2">折扣：<%=res("折扣")%></font></td>
<td width="62%"><font size="2">备注：<%=res("备注")%></font></td>
</tr>
<tr>
<td width="19%"><font size="2"><%=res("出版者")%></font></td>
<td width="19%"><font size="2">出版日期：<%=res("出版日期")%></font></td>
<td width="62%"></td>
</tr>
<tr>
<td colspan="3">
<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="<%=res("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>
</tr>
</table>
</td>
<td> </td>
</tr>
<%
res.movenext
If res.EOF Then
Exit For
End If
Next
res.close
set res=nothing
con.Close
%>
</table>
</td>
<td bgcolor="fed202" width="1５"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -