📄 admin_user_shh.asp

📁 新世纪影院源码
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="xshjyy.asp"-->
<%'---------程序编写说明-------%> 
<%'本程序由junping96编写
'程序名称：新世纪影院VOD播放系统（商业版）
'FileName: Admin_user_shh.asp
'EditDate:2003-12-07
'Editer:junping96
'Email:junping96@163.com
'QQ:       249112913 249114058
'请尊重本人劳动，禁止修改版权，有任何问题请和我联系。
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="”keywords”" content="”新世纪影院VOD影视播放程序出售”">
<meta name="”description”" content="”新世纪影院VOD影视(商业版)出售”">
<title>新世纪影院</title>
<link rel="stylesheet" type="text/css" href="../css/css.css">
</head>

<body bgcolor="#FF9900" text="#000000" topmargin="1" leftmargin="1">
<%
dim pagesize,curpage,numpages
pagesize=20 '每页显示的数据条数.
if request.querystring("page")<>"" then
curpage=cint(request.querystring("page"))
else
curpage=1
end if
%>
<center>
        <table width="616" border="0" cellspacing="1" cellpadding="0">
          <tr align="center" valign="middle">
            <td bgcolor="#FFFFFF" height="20" align="center" width="616" colspan="6">用户定单处理　</td>
          </tr>

          <tr align="center" valign="middle"> 
            <td bgcolor="#FFFFFF" height="22" align="center" width="106" valign="middle">用户名</td>
            <td bgcolor="#FFFFFF" height="22" align="center" width="212" valign="middle">注册时间</td>
            <td bgcolor="#FFFFFF" height="22" align="center" width="121" valign="middle">购买时间（天）</td>
            <td bgcolor="#FFFFFF" height="22" align="center" width="74" valign="middle">购买方式</td>
            <td bgcolor="#FFFFFF" height="22" align="center" width="50" valign="middle">通过</td>
            <td bgcolor="#FFFFFF" height="22" align="center" width="51" valign="middle">删除</td>
          </tr>
          <%
          set rs=server.createobject("adodb.recordset")
          sql="select * from userbuycar order by id desc"
          rs.open sql,conn,1,1
          if rs.eof or bof then
          response.write"目前没有购买用户"
          else
          rs.pagesize=pagesize
  numpages=rs.pagecount
  if curpage>numpages then
  curpage=numpages
  end if
  rs.absolutepage=curpage
   a=1
          do while not rs.eof or bof
          %>
          <form name="shh" method="post" action="admin_user_shhok.asp?username=<%=rs("username")%>">
          <tr align="center" valign="middle">
           
            <td bgcolor="#FFFFFF" height="20" align="center" width="106" valign="middle"><%=rs("username")%></td>
            <td bgcolor="#FFFFFF" height="20" align="center" width="212" valign="middle"><%=rs("dateandtime")%></td>
            <td bgcolor="#FFFFFF" height="20" align="center" width="121" valign="middle"><input type="text" name="addtime" class="inputs" value="<%=rs("addtime")%>" size="15"></td>
            <td bgcolor="#FFFFFF" height="20" align="center" width="74" valign="middle"><%=rs("buyser")%></td>
            <td bgcolor="#FFFFFF" height="20" align="center" width="50" valign="middle"><input type=submit name="buyok" value="通过"></td>
            <td bgcolor="#FFFFFF" height="20" align="center" width="51" valign="middle"><a href=admin_del_usershh.asp?id=<%=rs("id")%>>删除</a></td>
          </tr>
          </form>
          <%
          rs.movenext
          a=a+1
  if a>pagesize then exit do
  loop
  end if          %>
          <tr align="center" valign="middle">
            <td bgcolor="#FFFFFF" height="20" align="right" width="616" colspan="6"><%
			response.write"目前共有("&rs.recordcount&")个 记录,&nbsp;"		
 response.write"共分为("&numpages&")页,当前为第"&curpage&"页&nbsp;"
 for m=1 to numpages
 response.write"<a  href=admin_user_shh.asp?page="&m&">["&m&"]</a>&nbsp;"
 next

response.write"<a href=admin_user_shh.asp?page=1>首页 </a>&nbsp;"
  if curpage>1 then

  response.write"<a  href=""admin_user_shh.asp?page="&(curpage-1)&""">上一页 </a>&nbsp;"
  end if
  if curpage<numpages then
  response.write"<a  href=""admin_user_shh.asp?page="&(curpage+1)&""">下一页 </a>&nbsp;"
  end if
 response.write"<a href=admin_user_shh.asp?page="&numpages&"> 尾页</a>"
  rs.close
  set rs=nothing
  %>&nbsp;&nbsp;</td>
          </tr>
		            <tr align="center" valign="middle">
            <td bgcolor="#FFFFFF" height="20" align="left" width="616" colspan="6">　</td>
          </tr>
        </table>
	
</center>
</body>
</html>
⌨️ 快捷键说明

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