📄 checkbuyall.asp

📁 一个公司营销系统
💻 ASP
字号:
<%
if session("username")="" or session("password")="" then
   session.timeout=5
   response.write "<script language='javascript'>"
   response.write "alert('账号或密码错误！');"
   response.write "history.go(-1);"
   response.write "</script>"
   response.end
end if
%>
<!--#include file="../conn.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>顾 客 定 单 信 息</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<link rel="stylesheet" type="text/css" href="../css.css">
</head>
<SCRIPT>
<!--
function openwindow(url) {
   window.open(url,'new','toolbar=no,scrollbars=yes,width=200,height=120');
    }
//-->
</SCRIPT>
<%
   const MaxPerPage=10
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j

   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
   
%>

<body bgcolor="#7bb5de">
<div align="center">

  <table border="0" cellspacing="1" width="77%" bgcolor="#7bb5de" height="204">
    <tr>
      <td width="100%" height="28"> 
        <p align="center"><font color="#000000" style="font-size: 14px"><strong> 
          顾 客 定 单 信 息</strong></font> 
      </td> 
  </tr> 
   
 
  <tr> 
      <td width="100%" bgcolor="#7bb5de"><br>
        <% 
dim sql 
dim rs 
sql="select * from buy order by id desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
  if rs.eof and rs.bof then 
       response.write "<p align='center'> 还 没 有 顾 客 定 单 ！</p>" 
   else 
	  totalPut=rs.recordcount 
      totalPut=rs.recordcount 
      if currentpage<1 then 
          currentpage=1 
      end if 
      if (currentpage-1)*MaxPerPage>totalput then 
	   if (totalPut mod MaxPerPage)=0 then 
	     currentpage= totalPut \ MaxPerPage 
	   else 
	      currentpage= totalPut \ MaxPerPage + 1 
	   end if 
 
      end if 
       if currentPage=1 then 
           showpage totalput,MaxPerPage,"userlist.asp" 
            showContent 
            showpage totalput,MaxPerPage,"userlist.asp" 
       else 
          if (currentPage-1)*MaxPerPage<totalPut then 
            rs.move  (currentPage-1)*MaxPerPage 
            dim bookmark 
            bookmark=rs.bookmark 
           showpage totalput,MaxPerPage,"userlist.asp" 
            showContent 
             showpage totalput,MaxPerPage,"userlist.asp" 
        else 
	        currentPage=1 
           showpage totalput,MaxPerPage,"userlist.asp" 
           showContent 
           showpage totalput,MaxPerPage,"userlist.asp" 
	      end if 
	   end if 
   rs.close 
   end if 
	         
   set rs=nothing   
   conn.close 
   set conn=nothing 
   
 
   sub showContent 
       dim i 
	   i=0 
   
%>
            <table border="0" cellspacing="0" width="96%" bgcolor="#F6F6EC" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" height="229">
              <tr>
                <td height="229">┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓<br>
                ┃ 国内最先进的网络营销专业系统&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                ┃<br>
                ┃ 现在版本：Money178_2.0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                ┃<br>
                ┃ 版权所有: 天意网络(tiyi.net)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                ┃<br>
                ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫<br>
                ┃ 本系统现在免费测试使用&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                ┃<br>
                ┃ 天意网为广大网友100元制作精美主页,专业的程序提供,现在活动中&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                ┃<br>
                ┃ 联系方式:QQ:4959489 Email:tiyinet@yahoo.com.cn Tel:13520592042(短信) 
                ┃<br>
                ┃ http://www.tiyi.net/web/geren.htm 程序定做,国内最低价&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                ┃<br>
                ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛<p>
                <font size="5" color="#FF00FF">此为免费版本,不提供这个功能,需要定制功能请联系</font></p>
                <p>　</td>
              </tr>
            </table> 
      </td> 
  </tr> 
</table> 
</div> 
</body> 
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -