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

HTML/CSS

  1. <div align="center">
  2. <table border="0" width="500" height="10" cellpadding="0" cellspacing="0">
  3. <tr>
  4. <td height="10" width="500"></td>
  5. </tr>
  6. </table>
  7. </div>
  8. <%
  9.     set rshf=server.createobject("adodb.recordset")
  10.     sqlhf="select * from Quan_hf where htid="&id&" order by addtime desc"
  11.     rshf.open sqlhf,conn,1,1
  12. %>
  13. <%
  14.     set rsmuu=server.createobject("adodb.recordset")
  15.     sqlmuu="select * from [ku_user] where username='"&rshf("username")&"'"
  16.     rsmuu.open sqlmuu,conn,1,1
  17. dim a,x
  18. x=1
  19. Set a=New PageList
  20. listLimit=5
  21. '模拟分页一页显示分页数
  22. pageLists=5
  23. '设置分页参数
  24. If  rshf.BOF or  rshf.EOF Then 
  25. %>
  26. <table align=center width="700">
  27. <tr bgcolor="#C6E3F4">
  28.   <td height="24" colspan="5" align="center" bgcolor="#FFFFFF">
  29. <font color="#FF0000">暂无回帖!</font></td>
  30.   </tr></table>
  31. <%
  32. else
  33. '分页循环开始
  34. totalList= rshf.recordcount
  35. a.InitPara=array(totalList,listLimit,pageLists)
  36. a.PageList()
  37. rshf.pagesize=listLimit
  38. page = request("page")
  39. If page="" Then
  40. page=1
  41. End If
  42.  rshf.absolutepage = page
  43. for i=1 to  rshf.pagesize
  44. %><div align="center">
  45. <table border="0" width="730" height="245" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2">
  46. <tr>
  47. <td height="243" width="147" bgcolor="#FFFFFF" valign="top">
  48. <table border="0" width="100%" id="table1" height="242" cellpadding="0" cellspacing="0">
  49. <tr>
  50. <td height="123">
  51. <p align="center"><a href="userinfo.asp?user=<%=rshf("username")%>">
  52. <%if len(rsmuu("UserPhoto"))>10 then%>
  53. <img border="0" src="<%=rsmuu("UserPhoto")%>" width="100" height="110" alt="点击查看【<%=rshf("username")%>】详细资料">
  54. <%else%>
  55. <img border="0" src="img/face/szj.gif" width="100" height="110" alt="点击查看【<%=rshf("username")%>】详细资料">
  56. <%end if%>
  57. </a></td>
  58. </tr>
  59. <tr>
  60. <td height="20">
  61. <p align="center"><b>会员</b>:<a href="userinfo.asp?user=<%=rshf("username")%>" title="点击查看【<%=rshf("username")%>】详细资料"><font color="#FF0000"><%=rshf("username")%></font></a></td>
  62. </tr>
  63. <tr>
  64. <td height="20">
  65. <p align="center"><% if len(rsmuu("qq"))>4 then%>
  66.   <a  href="tencent://message/?uin=<%=rsmuu("QQ")%>&Site=<%=rsmuu("Homepage")%>&Menu=yes" ><img border="0" SRC="http://wpa.qq.com/pa?p=1:<%=rsmuu("QQ")%>:10" alt="点击这里给我发消息"></a>
  67.   <% end if%>
  68. </td>
  69. </tr>
  70. <tr>
  71. <td height="20">
  72. <p align="center"><b>时间</b>:<%=DateTimeFormat(rshf("addtime"),8)%></td>
  73. </tr>
  74. <tr>
  75. <td height="20">
  76. <p align="center"><b>IP</b>:<%=rsmuu("loginip")%></td>
  77. </tr>
  78. </table>
  79. </td>
  80. <td height="243" width="580" bgcolor="#FFFFFF" valign="top">
  81. <div align="center">
  82. <table border="0" width="568" id="table2" cellpadding="0" cellspacing="0" height="216">
  83. <tr>
  84. <td height="3" width="568" colspan="2"></td>
  85. </tr>
  86. <tr>
  87. <td height="25" bgcolor="#F2F2F2" width="510">&nbsp;<b><font color="#FF0000"><%=rshf("title")%></font></b></td>
  88. <td height="25" bgcolor="#F2F2F2" width="58"><b><font color="#FF0000" size="5"><%=rshf.pagesize*(page-1)+i%></font></b>楼</td>
  89. </tr>
  90. <tr>
  91. <td height="5" width="568" colspan="2"></td>
  92. </tr>
  93. <tr>
  94. <td height="168" valign="top" width="568" colspan="2"><%=rshf("content")%> </td>
  95. </tr>
  96. <tr>
  97. <td height="20" width="568" colspan="2">
  98. <p align="right">编辑此贴   删除此贴</td>
  99. </tr>
  100. </table>
  101. </div>
  102. </td>
  103. </tr>
  104. </table>
  105. </div>
  106. <div align="center">
  107. <table border="0" width="500" height="6" cellpadding="0" cellspacing="0">
  108. <tr>
  109. <td height="6" width="500"></td>
  110. </tr>
  111. </table>
  112. </div>
  113. <%
  114.  rshf.movenext
  115. if  rshf.eof then exit for
  116. next
  117. end if
  118. %>
  119. <table align=center width="700">
  120. <tr bgcolor="#C6E3F4">
  121.   <td height="24" colspan="5" align="center" bgcolor="#FFFFFF">
  122. <font color="#FF0000">. <%=a.PageInfo%> .</font></td>
  123.   </tr></table>