ATB Source Codes

China auto parts network Show myoffice_listgg.asp Source code

Return Download China auto parts network: download myoffice_listgg.asp Source code - Download China auto parts network Source code - Type:.asp
  1. <!--#include file="../../database_con/articleconn.asp"-->
  2. <%
  3. if request("do")="delete" then
  4.         set rs16=server.createobject("adodb.recordset")
  5.         sql16="delete from offer where id like "&request("id")&""
  6.         rs16.open sql16,conn,1,1
  7.         response.redirect "myoffice_listoffer.asp"
  8. end if
  9. %>
  10. <!--#include file="../inc/config.inc"-->
  11. <Script language="javascript" src="../inc/fun_Script.js"  type=text/javascript></Script>
  12. <LINK rel="stylesheet" type="text/css" href="../inc/style.css">
  13. <body background=pagebg.gif>
  14. <br>
  15. <table border="0" cellspacing="0" width=180 cellpadding="0" >
  16. <tr>
  17. <td width=50 height=28></td><td bgcolor=6084B6 align=center width=130 style='border: 1 solid #E3EFFF'>网站公告</td>
  18. </tr>
  19. </table>
  20. <br>
  21.  
  22.  
  23. <table border="0" align=center width="100%" height="100%" cellspacing="0" cellpadding="0">
  24. <tr><td  valign=top><br>
  25. <table border="0" align=center width="588" cellspacing="0" cellpadding="0">
  26.  
  27.   <tr>
  28.     <td width="" bgcolor=f0f0f0 align=center>
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35. <%
  36. filename="myoffice_listoffer.asp"
  37. response.write "<table border=0  width='100%' cellspacing=1 cellpadding=0 bgcolor=4971A7>"&chr(13)
  38. %>
  39. <%'开始分页
  40.  
  41.                                 dim totalPut  
  42.                                 dim CurrentPage
  43.                                 dim TotalPages
  44.                                 dim j
  45.                                 dim sql,qcolor
  46.                 if Not isempty(request("page")) then
  47.                         currentPage=Cint(request("page"))
  48.                 else
  49.                         currentPage=1
  50.                 end if
  51.                 search=request("search")
  52.                 set rs=server.CreateObject("adodb.recordset")
  53. '/////////////////////////////////////////////////////////////////
  54.  
  55.                         sql="Select * From ggxx order by id desc"
  56. '/////////////////////////////////////////////////////////////////             
  57.                 rs.open sql,conn,1,1  
  58.                         totalPut=rs.recordcount
  59.                         if currentpage<1 then
  60.                                 currentpage=1
  61.                         end if
  62.                         if (currentpage-1)*MaxPerPage>totalput then
  63.                                 if (totalPut mod MaxPerPage)=0 then
  64.                                         currentpage= totalPut \ MaxPerPage
  65.                                 else
  66.                                         currentpage= totalPut \ MaxPerPage + 1
  67.                                 end if
  68.                         end if
  69.                         if currentPage=1 then
  70.                                 showContent
  71.                                 showpage totalput,MaxPerPage,filename
  72.                         else
  73.                                 if (currentPage-1)*MaxPerPage<totalPut then
  74.                                         rs.move  (currentPage-1)*MaxPerPage
  75.                                         dim bookmark
  76.                                         bookmark=rs.bookmark
  77.                                         showContent
  78.                                         showpage totalput,MaxPerPage,filename
  79.                                 else
  80.                                         currentPage=1
  81.                                         showContent
  82.                                         showpage totalput,MaxPerPage,filename
  83.                                 end if
  84.                         end if
  85.                 sub showContent
  86.                 dim i
  87.                 i=0
  88.  
  89. do while not rs.eof
  90.  
  91.  
  92.         response.write "<tr  bgcolor=F8FAFC ><td width=50 align=center>"&rs("id")&"</td><td style='font-size:9pt;line-height=16pt' height=28>"
  93.         response.write "<font color=003399><a href=myoffice_gg.asp?id="&rs("id")&">"&rs("title")&"</a> <font color=666666>(发布日期"&rs("adddate")&")</font> </td></td>"
  94.         i=i+1
  95.         if i>=MaxPerPage then exit do
  96.         rs.movenext
  97.         loop
  98. response.write "</table>"
  99. end sub
  100. function showpage(totalnumber,maxperpage,filename)
  101.    dim n
  102.    if totalnumber mod maxperpage=0 then
  103.      n= totalnumber \ maxperpage
  104.    else
  105.      n= totalnumber \ maxperpage+1
  106.    end if    
  107.    if CurrentPage<2 then
  108.        response.write "<table border=0  bgcolor=9AAECA width=100% cellspacing=0 cellpadding=0 align=center>"
  109.        response.write "<tr height=30>"
  110.        response.write "<td align=left>"
  111.        response.write "&nbsp;共<font color=#ff6600><b>"&n&"</b></font>页&nbsp;第<font color=#ff6600><b>"&CurrentPage&"</b></font>页&nbsp;共检索到<font color=#ff6600><b>"&totalnumber&"</b></font>条信息</td>"
  112.        response.write "<td align=right>"
  113.         response.write "【首页】【上页】"
  114.    else
  115.        response.write "<table border=0 width=100% cellspacing=0 cellpadding=0>"
  116.        response.write "<tr height=30>"
  117.        response.write "<td align=left>"
  118.        response.write "&nbsp;共<font color=#ff6600><b>"&n&"</b></font>页&nbsp;第<font color=#ff6600><b>"&CurrentPage&"</b></font>页&nbsp;共检索到<font color=#ff6600><b>"&totalnumber&"</b></font>条信息</td>"
  119.        response.write "<td align=right>"
  120.        response.write "【<a href="&filename&"?page=1>首页</a>】"
  121.        response.write "【<a href="&filename&"?page="&CurrentPage-1&">上页</a>】"
  122.    end if
  123.    if n-currentpage<1 then
  124.        response.write "【下页】【尾页】"
  125.    else
  126.        response.write "【<a href="&filename&"?page="&(CurrentPage+1)&">"
  127.        response.write "下页</a>】【<a href="&filename&"?page="&n&">尾页</a>】"
  128.    end if
  129.   response.write "</td>"
  130.   response.write "</tr></form>"
  131.   response.write "</table>"
  132.  
  133. end function
  134. %>
  135.  
  136.  
  137.     </td>
  138.   </tr>
  139. </table>
  140.       </td>
  141.   </tr>
  142. </table>
  143.  
  144.  
  145.  
  146.  
  147.  
downloadmyoffice_listgg.asp Source code - Download China auto parts network Source code
Related Source Codes/Software:
Game money orders system - This program is not for commercial purposes, conta... 3.09KB
Yongxiu music (maintenance-free edition) v1.3 - This program comes with more than 30,000 songs. ma... 11.69KB
Fuzhou Humanities Sun decoration engineering company - Elegant interface, program with FLASH source files... 62.8KB
Cloud network interactive television systems (12 sets of templates and resource Alliance) V6.2.4 - With 12 sets of beautiful templates and flow of re... 29.79KB
Interactive Movie system for cloud network v6.1.0 ((collection) - Features and advantages of using the cloud network... 28.98KB
Yzlove.com (SQL version) - Yangzhou dating network, very good dating system, ... 27.03KB
Rain wise software acquisition plug-in For PowerEasy SiteWeaver - General acquisition plug-in software modules, func... 17.54KB
Yizhong shopping system v2.30 - Ordinary users after one, customer registration an... 6.47KB
Dragon safety net 2008 full stop - This program uses the dynamic kernelBackground... 68.8KB
Zb5.beta.0.0.5 Chinese version - Zb5.beta.0.0.5  Chinese version   runtim... 12.73KB
China source download System v1.0 - This 3-to beautify the program downloaded by the i... 5.26KB
Ganzhou Windows network - Cover feature:Windows Home | News vertical and... 34.61KB
Strains of strain of beautiful personal home page Build20061004 - -----------Modified part-------------1: added ... 7.7KB
Southwest agricultural information network - Southwest agricultural information network, an agr... 98.89KB
ZWMOBI 3G mobile station system - Powerful business modules, including mobile B2C mo... 3.89KB
As a campus site system v2.0 - For most school,, to built features powerful of ma... 44.88KB
Evening student seating system 7 - Evening student seating system is facilitated the ... 26.4KB
94KK be reluctant network community beautification bate3 (new year Edition) - Kernel KB 94kkBBS Forum, new landscaping, further ... 24.82KB
QQ Flash Word - 1. powerful DIY feature, which is now immeasurably... 67KB
Zoomla! Eall CMS v2.0 - Waves CMS is committed to providing our webmasters... 11.31KB

 Back to top