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

HTML/CSS

  1. <!--#include file="ku_top.asp"-->
  2. <% kuid=request.querystring("guxing")
  3. if kuid<>"" then
  4. set rsdown=server.CreateObject("adodb.recordset")
  5. sqldown="select * from Ku_downkind where id="&kuid
  6. rsdown.open sqldown,conn,1,1
  7.     if (rsdown.eof and rsdown.bof) then
  8.         Response.Write "<script>alert(""请停止你的黑客行为!"");location.href=""javascript:history.back()"";</script>"
  9.      end if   
  10.      end if
  11. %>
  12. <%
  13. function title()
  14. title="拼客下载"
  15. end function
  16. %>
  17. <div align="center">
  18. <table cellpadding="0" cellspacing="0" width="100">
  19. <tr>
  20. <td height="5"></td>
  21. </tr>
  22. </table>
  23. </div>
  24. <div align="center">
  25. <table border="0" width="980" height="454" cellpadding="0" cellspacing="0">
  26. <tr>
  27. <td height="454" width="740" valign="top">
  28. <div align="center">
  29. <table cellpadding="0" cellspacing="0" width="740" height="452">
  30. <tr>
  31. <td height="36" background="Ku_img/News/news_001.JPG"><div id="dazi">
  32. <p align="left">
  33. <b><font color="#0066FF">
  34. &nbsp;&nbsp; </font>下载列表</b></div> </td>
  35. </tr>
  36. <tr>
  37. <td height="396" background="Ku_img/News/news_002.JPG" valign="top">
  38. <div align=center>
  39. <table width="735" border="0" align="center" cellpadding="0" cellspacing="0">
  40. <tr>
  41. <td colspan="2">
  42. <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" >
  43. <%
  44. if kuid="" then
  45. set rs=server.createobject("adodb.recordset")
  46. sql="select * from ku_down where 1=1 "
  47. else
  48. set rs=server.createobject("adodb.recordset")
  49. sql="select * from ku_down where  class="&kuid
  50. end if
  51. sql=sql&" order by addtime desc"
  52. rs.open sql,conn,1,1
  53. dim a
  54. Set a=New PageList
  55. listLimit=9
  56. '模拟分页一页显示分页数
  57. pageLists=5
  58. '设置分页参数
  59. If rs.BOF or rs.EOF Then 
  60. %>
  61. <tr bgcolor="#C6E3F4">
  62.   <td height="24" colspan="5" align="center" bgcolor="#FFFFFF">此类暂无软件可下载!</td>
  63.   </tr>
  64. <%
  65. else
  66. '分页循环开始
  67. totalList=rs.recordcount
  68. a.InitPara=array(totalList,listLimit,pageLists)
  69. a.PageList()
  70. rs.pagesize=listLimit
  71. page = request("page")
  72. If page="" Then
  73. page=1
  74. End If
  75. rs.absolutepage = page
  76. for i=1 to rs.pagesize
  77. %>
  78. <tr><td colspan="4"> 
  79. <img border="0" src="Ku_img/down_index.gif" width="11" height="13"> <b>
  80. <a href="Gu_showsoft.asp?guxing=<%=rs("id")%>" title="<%=rs("name")%>" >
  81. <%=Trim(rs("name"))%></a>
  82. </b></td></tr>
  83. <tr><td colspan="4" onMouseOver='this.style.backgroundColor="#F6f6f6"' 
  84. onMouseOut='this.style.backgroundColor="#FAFAFA"'>   &nbsp;&nbsp;&nbsp;<%=left(rs("content"),200)%>...
  85. </td></tr>
  86. <tr bgcolor="#FAFAFA">
  87. <td height="24" width="25%">
  88. 大小:
  89. <%=rs("big")%> KB
  90. </td>
  91. <td height="24" width="25%">
  92. 下载需要:<%=rs("jifen")%> 积分
  93. </td>
  94. <td  width="25%">加入日期:<%=DateTimeFormat(rs("addtime"),4)%></td>
  95. <%
  96. kuuid=rs("class")
  97. set kurs=server.createobject("adodb.recordset")
  98.     csql="select * from ku_downkind where id="&kuuid
  99.     kurs.open csql,conn,1,3
  100. %>
  101. <td align="center">所属分类:【<a href="Ku_down.asp?ku_id=<%=kurs("id")%>"><font color="#FF0000"><%=kurs("name")%></font></a>】</td>
  102. </tr>
  103. <%
  104. rs.movenext
  105. if rs.eof then exit for
  106. next
  107. end if
  108. %>
  109. </table></td>
  110.   </tr>
  111. </table>
  112. </div>
  113. <%
  114. rs.close
  115. set rs=nohing
  116. %>
  117. </td>
  118. </tr>
  119. <tr>
  120. <td height="16" background="Ku_img/News/news_002.JPG" align=center>  &nbsp;<%=a.PageInfo%></td>
  121. </tr>
  122. <tr>
  123. <td height="4">
  124. <img border="0" src="Ku_img/News/news_003.JPG" width="740" height="4"></td>
  125. </tr>
  126. </table>
  127. </div>
  128. </td>
  129. <td height="454" width="8"> </td>
  130. <td height="454" width="232" valign="top">
  131. <!--#include file="Ku_type/Index_login.asp"-->
  132. <!--#include file="Ku_type/down_kind.asp"-->
  133. </td>
  134. </tr>
  135. </table>
  136. </div>
  137. <!--#include file="Ku_foot.asp"-->