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

HTML/CSS

  1. <%
  2.     set rspkind=server.createobject("adodb.recordset")
  3.     sqlpkind="select  * from Gu_pkind order by id desc"
  4.     rspkind.open sqlpkind,conn,1,1
  5.     
  6.     if Rspkind.eof or Rspkind.bof then
  7.     response.write"<div align='center'>还没有拼客分类<div>"
  8.     end if 
  9.     do while not rspkind.eof
  10.     pname = rspkind("name")
  11.     
  12. %>
  13. <%
  14.     set rscount=server.createobject("adodb.recordset")
  15.     sqlCount="select Count(ID) from Gu_pinke where pkind="&rspkind("id")    
  16.     rsCount.open sqlCount,conn,1,1
  17. %>
  18. <div align="center">
  19. <table cellpadding="0" cellspacing="0" width="220" height="32">
  20. <tr>
  21. <td height="16" width="30">
  22. <p align="center">
  23. <img border="0" src="Ku_img/ppkind.jpg" width="6" height="14"></td>
  24. <td height="16" width="190" colspan="2"><b>
  25. <a href="Gu_pinke.asp?guxing=<%=rspkind("id")%>"><%=rspkind("name")%></a></b> (<a href="Gu_pinke.asp?guxing=<%=rspkind("id")%>"><%=rscount(0)%></a>)</td>
  26. </tr>
  27. <tr>
  28. <td height="16" width="30"></td>
  29. <td height="16" width="85">
  30. <p align="left"><a href="Gu_pinke.asp?guxing=<%=rspkind("id")%>&id=1">
  31. <font color="#6699FF">求 拼</font></a></td>
  32. <td height="16" width="105">
  33. <p align="left"><a href="Gu_pinke.asp?guxing=<%=rspkind("id")%>&id=2">
  34. <font color="#6699FF">提 供</font></a></td>
  35. </tr>
  36. </table>
  37. </div>
  38. <% 
  39.     rspkind.movenext  
  40.     loop
  41.     Rspkind.Close
  42.     Set Rspkind=Nothing
  43. %>