📄 xssm1.asp
字号:
<!--#include file="tsgl_conn.inc" -->
<%
if session("sfl")="" then
tmc=request("fl")
sql="select * from flk where flmc='"&tmc&"'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, tsgl_Conn,3
ttdm=rs("fldm") '分类代码
session("sdm")=ttdm
rs.close
set rs=nothing
session("sfl")=tmc
end if
tmc=session("sfl") '分类名称
tdm=session("sdm") '分类代码
sub showonepage(rs,page)
response.write "<TABLE BGCOLOR=#ffffff CELLSPACING=0 BORDER=1>"
response.write "<TR>"
response.write "<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>编号</td>"
response.write "<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>书名</td>"
response.write "<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>作者名</td>"
response.write "<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>出版社</td>"
response.write "<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>出版日期</td>"
response.write "<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>单价</td>"
response.write "<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>册数</td>"
response.write "<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>库存数</td>"
response.write "<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>内容简介</td>"
response.write "</tr>"
rs.absolutepage=page
for ipage=1 to rs.pagesize
response.write "<tr>"
response.write "<td BORDERCOLOR=#c0c0c0>"&RS("bh")&"</td>"
response.write "<td BORDERCOLOR=#c0c0c0>"&rs("sm")&"</td>"
response.write "<td BORDERCOLOR=#c0c0c0>"&rs("zzm")&"</td>"
response.write "<td BORDERCOLOR=#c0c0c0>"&rs("cbs")&"</td>"
response.write "<td BORDERCOLOR=#c0c0c0>"&rs("cbrq")&"</td>"
response.write "<td BORDERCOLOR=#c0c0c0>"&rs("dj")&"</td>"
response.write "<td BORDERCOLOR=#c0c0c0>"&rs("cs")&"</td>"
response.write "<td BORDERCOLOR=#c0c0c0>"&rs("kcs")&"</td>"
response.write "<td BORDERCOLOR=#c0c0c0><a href=xssm2.asp?tbh="&rs("bh")&">显示</a></td>"
response.write "</tr>"
rs.movenext
if rs.eof then exit for
next
response.write "</table>"
end sub
Set RS = Server.CreateObject("ADODB.RecordSet")
'csm=trim(request("tsm"))
sql="select * from "&tdm&" order by bh"
RS.Open sql, tsgl_Conn,3
session("ssm")=""
%>
<HTML>
<HEAD><TITLE>浏览“<%=tmc%>”类图书目录</TITLE></HEAD>
<BODY bgcolor="#C0C0C0">
<H3 align=center>
浏览“<%=tmc%>(<%=tdm%>)”类图书目录  <a href="xssm.asp">返回</a>
</H3>
<%
if session("spg")=true then
page=clng(request("page"))
else
page=session("spage")
session("spg")=true
end if
rs.pagesize=10
apage=rs.pagecount
if page<1 then
page=1
end if
if page>apage then
page=apage
end if
session("spage")=page
%>
<form action="xssm1.asp" method=get>
<%
if page<>1 then
response.write "<a href=xssm1.asp?page=1>第一页</a>"
response.write "  <a href=xssm1.asp?page="&(page-1)&">上一页</a>"
end if
if page<>apage then
response.write "  <a href=xssm1.asp?page="&(page+1)&">下一页</a>"
response.write "  <a href=xssm1.asp?page="&apage&">最后一页</a>"
end if
%>
  输入页码：<input type=text name=page size=3>
  页码：<font color="red"><%=page%>/<%=apage%></font>  <a href="xssm.htm">按书名查询</a>
</form>
<%
if not rs.eof then
showonepage rs,page
else
%>
<TABLE BGCOLOR=#ffffff CELLSPACING=0 BORDER=1>
<TR>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>编号</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>书名</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>作者名</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>出版社</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>出版日期</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>单价</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>册数</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>库存数</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>内容简介</td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
%>
<form action="xssm1.asp" method=get>
<%
if page<>1 then
response.write "<a href=xssm1.asp?page=1>第一页</a>"
response.write "  <a href=xssm1.asp?page="&(page-1)&">上一页</a>"
end if
if page<>apage then
response.write "  <a href=xssm1.asp?page="&(page+1)&">下一页</a>"
response.write "  <a href=xssm1.asp?page="&apage&">最后一页</a>"
end if
%>
  输入页码：<input type=text name=page size=3>
  页码：<font color="red"><%=page%>/<%=apage%></font>  <a href="xssm.htm">按书名查询</a>  <a href="xssm.asp">返回</a>
</form>
<p align="center"></p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -