📄 car.asp

📁 视频点播系统
💻 ASP
字号:
<!--#include file="oklu.asp"-->
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<%if session("flag")>1 then
    response.write "<br><p align=center>您的操作权限不够！</p>"
    response.end
end if
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="css/css.css">
<title>充值卡管理页</title>
</head>
<style type=text/css>
body  { background:#799AE1; margin:0px; font:9pt 宋体; }
table  { border:0px; }
td  { font:normal 12px 宋体; }
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover  { color:#428EFF;text-decoration:underline; }
.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title  { }
.menu_title span  { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2  { }
.menu_title2 span  { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
</style>
<body  leftmargin="0" topmargin="0">

<%
   MaxPerPage=20
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j

   dim typename
   
   typename=""
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
   dim sql
   dim rs
   dim rstype
   if okurl="" then response.end
   dim typesql
   dim typeid,typename1
   if not isEmpty(request("typeid")) then
	typeid=request("typeid")
   else
	typeid=0
   end if
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"></td>
  </tr>
</table>
<%
 sql="select * from car 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,"car.asp"
            showContent
            showpage totalput,MaxPerPage,"car.asp"
       else
          if (currentPage-1)*MaxPerPage<totalPut then
            rs.move  (currentPage-1)*MaxPerPage
            dim bookmark
            bookmark=rs.bookmark
           showpage totalput,MaxPerPage,"car.asp"
            showContent
             showpage totalput,MaxPerPage,"car.asp"
        else
	        currentPage=1
           showpage totalput,MaxPerPage,"car.asp"
           showContent
           showpage totalput,MaxPerPage,"car.asp"
	      end if
	   end if
   end if
   sub showContent
       dim i
	   i=0

  %>
<div align="center">
  <center>
    <table border="0" cellspacing="1" width="441" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="2" height="33" style="border-collapse: collapse" bordercolor="#111111">
      <tr bgcolor="#CCCCCC"> 
        <td width="84" align="center" bgcolor="#CCCCCC" height="7"><b>电影卡号</b></td>
        <td width="78" align="center" bgcolor="#CCCCCC" height="20"><b>电影卡密码</b></td>
        <td width="56" align="center" bgcolor="#CCCCCC" height="20"><b>可充天数</b></td>
        <td width="42" align="center" bgcolor="#CCCCCC" height="20"><b>面&nbsp;值</b></td>
        <td width="66" align="center" bgcolor="#CCCCCC" height="20"><b>电影卡类型</b></td>
        <td width="33" align="center" bgcolor="#CCCCCC" height="20"><b>删除</b></td>
      </tr>
      <%do while not rs.eof%>
      <tr> 
        <td height="4" width="84" bgcolor="#FFFFFF"> <p align="center"><%=rs("carid")%></td>
        <td width="78" height="4" bgcolor="#FFFFFF" align="center"><%=rs("carpws")%></td>
        <td width="56" height="4" bgcolor="#FFFFFF" align="center"><%=rs("day")%> 
          <%if rs("oklook")=0 then%>点<%else%>天<%end if%></td>
        <td width="42" height="4" bgcolor="#FFFFFF" align="center"><%=rs("paymoney")%> 
          元</td>
        <td width="66" height="4" bgcolor="#FFFFFF" align="center"> 
          <%if rs("oklook")=1 then%>
          普通卡
          <%elseif rs("oklook")=2 then%>
          白银卡
          <%elseif rs("oklook")=3 then%>
          黄金卡
          <%elseif rs("oklook")=4 then%>
          钻石卡
          <%elseif rs("oklook")=0 then%>
          计点卡
          <%end if%>
        </td>
        <td width="33" height="4" bgcolor="#FFFFFF" align="center"> <a href="delcar.asp?id=<%=rs("id")%>"><font color="#000000">删除</font></a></td>
      </tr>
      <% i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	   loop
		  %>
    </table>
  </center>
</div>
<%
   end sub 

function showpage(totalnumber,maxperpage,filename)
  dim n
  if totalnumber mod maxperpage=0 then
     n= totalnumber \ maxperpage
  else
     n= totalnumber \ maxperpage+1
  end if
  response.write "<p align=""center""><form method=Post action="&filename&"?typeid="&typeid&">"
    if CurrentPage<2 then
    response.write "<font color='#000080'>首页 上一页</font>&nbsp;"
  else
    response.write "<a href="&filename&"?page=1&typeid="&typeid&">首页</a>&nbsp;"
    response.write "<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&">上一页</a>&nbsp;"
  end if
  if n-currentpage<1 then
    response.write "<font color='#000080'>下一页 尾页</font>"
  else
    response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&">"
    response.write "下一页</a> <a href="&filename&"?page="&n&"&typeid="&typeid&">尾页</a>"
  end if
   response.write "<font color='#000080'>&nbsp;页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
    response.write "<font color='#000080'>&nbsp;共<b>"&totalnumber&"</b>张 <b>"&maxperpage&"</b>张/页</font> "
   response.write " <font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=10 class=smallInput value="&currentpage&">"
   response.write " <input class=buttonface type='submit'  value='Goto'  name='cndok'></span></p></form></p>"
       
end function

   rs.close
   set rs=nothing  
   conn.close
   set conn=nothing
  %>
<p><br>
</p>
<div align="center">
  <center>
  <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="439" id="AutoNumber1" height="45">
    <tr>
      <td width="439" colspan="4" bgcolor="#CCCCCC" height="23"><b>自动增加充值卡：</b></td>
    </tr>
    <form method="POST" action="carsave.asp">
      <tr>
        <td width="112" height="7" bgcolor="#FFFFFF"><font size="2">
        <select size="1" name="day">
        <option value="30">一个月普通卡</option>
        <option value="90">三个月普通卡</option>
        <option value="180">六个月白银卡</option>
        <option value="270">九个月白银卡</option>
        <option value="31">一个月黄金卡</option>        
        <option value="181">半年黄金卡</option>
        <option value="365">一年黄金卡</option>        
        <option value="36500">永久钻石卡</option>
        <option value="50">50点点卡</option>
        <option value="100">100点点卡</option>
        <option value="150">150点点卡</option>
        <option value="200">200点点卡</option>
        <option value="250">250点点卡</option>
        <option value="300">300点点卡</option>
        <option value="400">400点点卡</option>
        <option value="800">800点点卡</option>
        <option value="1000">1000点点卡</option>                
        </select></font></td>
        <td width="106" height="7" bgcolor="#FFFFFF">
        <input type="text" name="not" size="10"> 张</td>
        <td width="67" height="7" bgcolor="#FFFFFF">
        <input type="text" name="paymoneyj" size="4"><span lang="en-us"> </span>
        元</td>
        <td width="154" height="7" bgcolor="#FFFFFF">
        <input type="submit" value="增加" name="B1"></td>
      </tr>
    </form>
  </table>
  </center>
</div>

</body>

</html>
⌨️ 快捷键说明

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