BVB Source Codes

QQ number network source v1.0 Show qqsales.asp Source code

Return Download QQ number network source v1.0: download qqsales.asp Source code - Download QQ number network source v1.0 Source code - Type:.asp
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="conn/conn.asp" -->
  3. <!--#include file="inc/Config.asp" -->
  4. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  5. <html xmlns="http://www.w3.org/1999/xhtml">
  6. <head>
  7. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  8. <link rel="stylesheet" href="images/css.css" type="text/css" />
  9. <%=KeyB%>
  10. <%=KeyContent%>
  11. <title><%=WebTitle%></title>
  12. <style type="text/css">
  13. <!--
  14. .STYLE2 {color: #FF0000}
  15. .STYLE4 {color: #FF0000; font-weight: bold; }
  16. -->
  17. </style>
  18. </head>
  19. <body>
  20. <center>
  21.  
  22. <!--#include file="top.asp"-->
  23.  
  24.  
  25. <table width="988" border="0" cellspacing="1" cellpadding="3" bgcolor="#CCCCCC" style="margin-top:5px; ">
  26.   <tr class=nav_1 >
  27.     <td width="240" height="23" background=images/date1_2.gif >QQ增值服务</td>
  28.         <td width="184"  background=images/date1_2.gif>价格</td>
  29.         <td width="185" height="23"  background=images/date1_2.gif>是否可查时间</td>
  30.         <td width="251" height="23" background=images/date1_2.gif >是否需要密码</td>
  31.        
  32.         <td width="92" height="23" background=images/date1_2.gif >买家操作</td>
  33.   </tr>
  34.  
  35.  <%
  36.  id = trim(request.QueryString("id"))
  37.  if id="" then
  38.     sql="select * from make order by shunxu desc,adddate desc"
  39.  else
  40.     sql="select * from make where type="&id&" order by shunxu desc,adddate desc"
  41.  end if
  42.  
  43.  set rs=server.CreateObject("adodb.recordset")
  44.      rs.open sql,conn,1,1
  45.          if not rs.eof then
  46. '-----------------------------------------------------------分页开始         
  47. dim currentpage
  48. maxperpage=20            
  49. rs.pagesize=maxperpage              
  50. currentpage=request.querystring("pageid")              
  51. if currentpage="" then              
  52. currentpage=1              
  53. elseif currentpage<1 then              
  54. currentpage=1              
  55. else              
  56. currentpage=clng(currentpage)              
  57. if currentpage > rs.pagecount then              
  58. currentpage=rs.pagecount              
  59. end if              
  60. end if              
  61. if not isnumeric(currentpage) then              
  62. currentpage=1              
  63. end if              
  64. dim totalput,n              
  65. totalput=rs.recordcount              
  66. if totalput mod maxperpage=0 then              
  67. n=totalput\maxperpage              
  68. else              
  69. n=totalput\maxperpage+1              
  70. end if              
  71. if n=0 then              
  72. n=1              
  73. end if              
  74. rs.move(currentpage-1)*maxperpage              
  75. i=0    
  76. w=1        
  77. do while i< maxperpage and not rs.eof  
  78.  
  79.  %>
  80.  
  81.     <tr onmouseover="javascript:this.bgColor='#FFF5E6'" onmouseout="javascript:this.bgColor='#FFFFFF'" bgcolor="#FFFFFF">
  82.     <td  height="25"><div align="left" style="margin-left:10px;"><%=rs("title")%></div></td>
  83.         <td><span class="STYLE4"><%=rs("type")%>(元/<%=rs("url")%>)</span></td>
  84.         <td  height="25">
  85.         <%
  86.         if rs("time")=1 then response.Write("可查时间")
  87.         if rs("time")=0 then response.Write("不可查时间")
  88.        
  89.         %>      </td>
  90.         <td  height="25">
  91.         <%
  92.         if rs("pass")=1 then response.Write("需要密码")
  93.         if rs("pass")=0 then response.Write("不需要密码")
  94.         %>      </td>
  95.         <td  height="25">
  96.        
  97.         <%
  98.         if rs("tar")="1" then response.Write("<a href='/kefu.asp' target=_blank id=pay>立即购买</a>")
  99.         if rs("tar")="0" then response.Write("暂停出售")
  100.         if rs("tar")="-1" then response.Write("已经出售")
  101.         %>      </td>
  102.   </tr>
  103.  
  104. <%
  105. '循环记录
  106. i=i+1      
  107. w=w+1
  108. rs.movenext
  109. loop
  110. end if
  111. rs.close
  112. set rs=nothing
  113. %>
  114. </table>
  115.  
  116.  
  117. <table width="988" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:5px;">
  118.  <tr>
  119.  <td width="85%" align="center"> 共有<font color="#FF0000"><%=totalput%></font>篇 每页<%=maxperpage%>篇 当前页数:<%=currentpage%>/<% =n%> &nbsp;&nbsp;&nbsp;&nbsp;
  120.  <%
  121.   k=currentpage
  122.   if k<>1 then%>
  123. <a href="?pageid=1"> 首 页</a> &nbsp;&nbsp;&nbsp;&nbsp;<a href="?pageid=<%=k-1%>"> 上一页</a> &nbsp;&nbsp;&nbsp;&nbsp;
  124. <%else%>
  125. 首 页 &nbsp;&nbsp;&nbsp;&nbsp;上一页 &nbsp;&nbsp;&nbsp;&nbsp;
  126. <%end if%>
  127. <%if k<>n then%>
  128. <a href="?pageid=<%=k+1%>"> 下一页</a> &nbsp;&nbsp;&nbsp;&nbsp;<a href="?pageid=<%=n%>"> 末 页</a>
  129. <%else%>
  130. 下一页 &nbsp;&nbsp;&nbsp;&nbsp;末 页
  131. <%end if%>            
  132. </td>
  133. <td width="15%" align="center"><select name="pageid" onchange="javascript:location=this.options[this.selectedIndex].value;">
  134. <%
  135. for i = 1 to n
  136. if i = currentpage then%>
  137. <option value="?pageid=<%=i%>" selected>第<%=i%>页</option>
  138. <%else%>
  139. <option value="?pageid=<%=i%>">第<%=i%>页</option>
  140. <%
  141. end if
  142. next
  143. %>
  144. </select>
  145. </td>
  146. </tr></table>
  147.  
  148.  
  149.  
  150. <!--#include file="bottom.asp"-->
  151. </center>
  152. </body>
  153. </html>
  154.  
downloadqqsales.asp Source code - Download QQ number network source v1.0 Source code
Related Source Codes/Software:
Fate. Mobile message this v1.1 - Fate. Wind chimes guestbook, which is used to coll... 2016-11-11
400 simple message this V1.0 - 400 simple message this V1.0 2016-11-11
ASP cache them v1.0 premium - Released a few days before the ASP application emb... 2016-11-11
Ding v2.0 auspicious multi-user online customer service system - Multi-user online customer service system is an en... 2016-11-11
Think of concise message this v1.1 - Wisdom of concise message this V1.1 main functions... 2016-11-11
A small BBS V1.0 - Update: added SQL injection prevention program, re... 2016-11-11
Love will find clothing site www.2145.cc (full version) - It's nice to see you again. 2016-11-11
Qi qi ebook thief (pseudo static + background) v1.0 - Pseudo static + background Qi Qi thief programs ... 2016-11-11
Tao, ASP Trojan scanner v1.1 - Can scan all the specified type on the server (asp... 2016-11-11
138 MC v1.0 music network program - Installation instructions: 2016-11-11
ng-bootstrap - Angular powered Bootstrap h... 2017-04-09
vscode-go - An extension for VS Code which provides support fo... 2017-04-09
electron-builder - A complete solution to package and build a ready f... 2017-04-09
husky - 2017-04-09
eslint-plugin-react - React specific linting rules for ESLint 2017-04-09
fuckitjs - The Original Javascript Error Steamroller 2017-04-09
DeDRM_tools - DeDRM tools for ebook 2017-04-08
kcp - KCP - A Fast and Reliable ARQ Protocol 2017-04-08
cloc - cloc counts blank lines, comment lines, and physic... 2017-04-08

 Back to top