booktype.asp

网络购物

<%
'=========================================
'
'         凡人网络购物系统V4.0免费版
'    FreeDown.Net [e-mail] 
'            www.freedown.net
'     版权所有·免费版仅供研究测试只用
'            商业使用请购买正版
'
'=========================================
%>
<!-- #include file="conn.asp" -->
<link rel="stylesheet" href="../css.css" type="text/css">
<%
if session("admin_name")="" then
    response.redirect "login.asp"
end if
%>
<%'计算分页
if request("page")="" then
page="1"
else
page=request("page")
end if
'打开soft表
set rs=server.createobject("adodb.recordset")
sql="select * from book where typeid="&request("id")&" order by id desc"
rs.open sql,conn,1,1
if rs.eof then
%>


   <div align="center">
  <center>
<table style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
       <tr>
        <td width="500" colspan="5" height="30">
        <p align="center"><b>本类暂无内容<font color="#FF0000">&nbsp;&nbsp;&nbsp;&nbsp; </font><a href="bookzj1.asp?id=<%=request("id")%>"><font color="#FF0000">添加本类内容</font></a></b></td>
      </tr>

    </table>

  </center>
</div>

<%
else
rs.PageSize = 10
rs.AbsolutePage = clng(page)
%>


  <center>
      <table border="0" width="500">
        <tr>
        <td width="500" colspan="5" height="30">
        <p align="center"><b><font color="#FF0000"><a href="bookzj1.asp?id=<%=request("id")%>">
        <font color="#FF0000">添加本类内容</font></a></b></td>
      </tr>
        <tr>
        <td width="250">本类信息<font color="#FF0000"><%=rs.recordcount%></font>篇,目前<font color="#ff0000"><%=page%>/<%=rs.pagecount%></font>页</td>
        <td width="50" align="center"> 
          <% if page="1" then %>
          首页 
          <%else%>
          <a href=booktype1.asp?id=<%=request("id")%>>首页</a> 
          <% end if %>
        </td>
        <td width="75" align="center"> 
          <% if page="1" then %>
          上一页 
          <%else%>
          <a href=booktype1.asp?page=<%=page-1%>&id=<%=request("id")%>>上一页</a> 
          <% end if %>
        </td>
        <td width="75" align="center"> 
          <% if page=cstr(rs.pagecount) then %>
          下一页 
          <%else%>
          <a href=booktype1.asp?page=<%=page+1%>&id=<%=request("id")%>>下一页</a> 
          <% end if %>
        </td>
        <td width="50" align="center"> 
          <% if cstr(page)-cstr(rs.pagecount)=0 then%>
          尾页 
          <% else %>
          <a href=booktype1.asp?page=<%=rs.pagecount%>&id=<%=request("id")%>>尾页</a> 
          <% end if %>
        </td>
      </tr>
    </table>
        </center>
  <div align="center">
    <center>
  <table width="500" border="1" style="border-collapse: collapse" bordercolor="#FFFFFF" cellpadding="0" cellspacing="0" bgcolor="#F5EFE7">

<% if cstr(page)=cstr(rs.PageCount) and (rs.RecordCount mod rs.PageSize <> 0) then                      
 	      recend=rs.RecordCount mod  rs.PageSize                      
	  else                       
	    recend=rs.PageSize                      
	  end if                      
	for i=1 to recend %>                   
	<% if i mod 2=1 then                   
	colors="#e8e8e8"                   
	else                   
	colors="#D8D8D8"                   
	end if                     
	%>       
    <tr> 
      <td width="350" height="40"><p style="line-height: 150%; margin: 5"><b><%=rs("title")%>:</b><br><%=rs("nr")%></td>
      <td width="50"><a href=edit.asp?id=<%=rs("id")%>><div align="center">修改</div></a></td>
      <td width="50"><a href=del.asp?id=<%=rs("id")%>><div align="center">删除</div></a></td>
    </tr>
	<% rs.movenext                 
	next                 
	rs.close                 
	set rs=nothing                 
	conn.close                 
	set conn=nothing  
	end if               
	%>    
  </table></center>
  </div>
  </td>
    </tr>
  </table>
  </center>
</div>
</body>
</html>