Pro_list.asp
Upload User: pengwei803
Upload Date: 2021-02-10
Package Size: 3311k
Code Size: 2k
Development Platform:

HTML/CSS

  1. <div align=center>
  2. <table width="660" border="0" align="center" cellpadding="0" cellspacing="0">
  3. <tr>
  4. <td colspan="2">
  5. <table width="660" border="0" align="center" cellpadding="3" cellspacing="1" >
  6. <tr>
  7. <%
  8. set rs=server.createobject("adodb.recordset")
  9. sql="select * from gu_pro where userid="&rshy("id")&""
  10. sql=sql&" order by id desc"
  11. rs.open sql,conn,1,1
  12. dim a
  13. Set a=New PageList
  14. listLimit=6
  15. '模拟分页一页显示分页数
  16. pageLists=5
  17. '设置分页参数
  18. If rs.BOF or rs.EOF Then 
  19. %>
  20. </tr>
  21. <tr bgcolor="#C6E3F4">
  22.   <td height="24"  align="center" bgcolor="#FFFFFF">暂无产品!</td>
  23.   </tr>
  24. <%
  25. else
  26. dim x
  27. x=1
  28. '分页循环开始
  29. totalList=rs.recordcount
  30. a.InitPara=array(totalList,listLimit,pageLists)
  31. a.PageList()
  32. rs.pagesize=listLimit
  33. page = request("page")
  34. If page="" Then
  35. page=1
  36. End If
  37. rs.absolutepage = page
  38. %>
  39. <tr>
  40. <%for i=1 to rs.pagesize%>
  41. <td height="130" width="113" style="border: 1px solid #CECFCE">
  42. <p align="center">
  43. <a href="Showpro.asp?ku_id=<%=rs("id")%>">
  44. <img border="0" src="<%=rs("pic")%>" width="113" height="124"></a>
  45. </td>
  46. <td width="530">
  47. <div align="left">
  48. <table border="0" width="97" height="107" cellpadding="0" cellspacing="0">
  49. <tr>
  50. <td height="23" width="97" colspan="2"><b>名称</b>:</td>
  51. </tr>
  52. <tr>
  53. <td height="33" width="97" colspan="2"><a href="Showpro.asp?ku_id=<%=rs("id")%>"> <%=Trim(rs("name"))%></a></td>
  54. </tr>
  55. <tr>
  56. <td height="32" width="43"><b>价格</b>:</td>
  57. <td height="32" width="54"> <%=rs("price")%> 元</td>
  58. </tr>
  59. <tr>
  60. <td height="19" width="97" colspan="2">
  61. <p align="left"><a href="Gu_User.asp?guxing=epro&id=<%=rs("id")%>">
  62. <font color="#FF0000">编辑</font></a>
  63. <a href="Deal_user.asp?Action=delpro&id=<%=rs("id")%>">
  64. <font color="#FF0000">删除</font></a></td>
  65. </tr>
  66. </table>
  67. </div>
  68. </td>
  69. <% if x mod 3 =0 then%> 
  70. </tr>
  71. <tr>
  72. <td height="2" width="640" colspan="2"></td>
  73. </tr>
  74. <tr align="center" width="320">
  75. <%
  76. end if
  77. x=x+1
  78. rs.movenext
  79. if rs.eof then exit for
  80. next
  81. end if
  82. %>
  83. </tr>
  84. </table></td>
  85.   </tr>
  86.  </form>
  87. </table>
  88. </div>
  89. <%
  90. rs.close
  91. set rs=nohing
  92. %>