📄 vip_dd.asp
字号:
<!--#include file=../conn.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=onlinerz.asp-->
<%
dim rs,sql,Pagesize,k,Allrecord,Allpage,ThisPage,usersize
dim cmdTemp
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
Set cmdTemp = Server.CreateObject("ADODB.Command")
set rs = server.CreateObject ("adodb.recordset")
if request("username1")="" then
sql="select id,username,comid,companyName,vipsqdata,vipqx,vipmemo from [company] where vipzt=1 "
else
sql="select id,username,comid,companyName,vipsqdata,vipqx,vipmemo from [company] where vipzt=1 and (UserName like '%"&request("UserName1")&"%'or companyName like '%"&request("UserName1")&"%')"
end if
cmdTemp.CommandText = sql
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
rs.Open cmdTemp,,1,1
set cmdTemp=nothing
If rs.eof or rs.bof Then
response.write "<br>没有找到企业！"
response.end
end if
rs.Pagesize=30
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then
ThisPage=1
end if
rs.move (ThisPage-1)*Pagesize
%>
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" type="text/css" href="../1.css">
<body topmargin="2">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="72%" height="20"><form method="POST" action="">
<p align="center">快速查找用户：<input type="text" name="username1" size="10">
<input border="0" src="../img/x_1.gif" name="I1" type="image">（输入用户名或企业名称，可以模糊搜索）</p>
</form>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="6%" height="25">
<p align="left">编号</td>
<td width="36%" height="25">
<p align="left">公司名称</td>
<td width="16%" height="25">
<p align="center">申请时间</td>
<td width="8%" height="25">
<p align="center">申请期限</td>
<td width="34%" height="25">
<p align="center">操作</td>
</tr>
<%
k=1
do while not rs.eof%>
<tr>
<td width="6%" height="25" background="../img/bg.gif">
<p align="left"><font color="#F06000"><b><%=k%></b></font></td>
<td width="36%" height="25" background="../img/bg.gif">
<p align="left"><a target="_blank" href="../company/listcompany.asp?comid=<%=rs("comid")%>"><font color="#F06000"><%=rs("companyName")%></font></a></td>
<td width="16%" height="25" background="../img/bg.gif">
<p align="center"><font color="#F06000"><%=rs("vipsqdata")%></font></td>
<td width="8%" height="25" background="../img/bg.gif">
<p align="center"><font color="#F06000"><%=rs("vipqx")%>年</font></td>
<td width="34%" height="25" background="../img/bg.gif">
<p align="center"><font color="#3399FF">
<a href="vip_dd_1.asp?id=<%=rs("id")%>">
<font color="#3399FF">通过VIP验证</font></a></font>，<font color="#3399FF"><a onclick="{if(confirm("此操作将删除用户{{{“<%=rs("companyname")%>”}}}的VIP高级会员申请")){return true;}return false;}" href="vip_dd_2.asp?id=<%=rs("id")%>"><font color="#3399FF">删除VIP申请</font></a></font>，<font color="#3399FF"><a onclick="{if(confirm("此操作将删除用户{{{“<%=rs("companyname")%>”}}}！建议你执行此操作前先备份数据库，以免出错！")){return true;}return false;}" href="delperson.asp?username=<%=rs("username")%>"><font color="#3399FF">彻底删除该帐号</font></a></font></td>
</tr>
<%
k=k+1
if k>=Pagesize then exit do
rs.movenext
loop
rs.close
set rs=nothing
closedb
%>
<tr>
<td width="100%" height="20" colspan="5">
<p align="center"><%fenye%></td>
</tr>
<tr>
<td width="100%" height="20" colspan="5"> </td>
</tr>
</table>
<%sub fenye%>
<p align="center">每页显示<b><font color="#F06000"><%=Pagesize%></font></b>条记录 总共<font color="#F06000"><b><%=Allpage%></b></font>页 目前第<b><font color="#F06000"><%=ThisPage%></font></b>页
<a href=?page=1&username1=<%=request("UserName1")%>>首页</a> <%if ThisPage<2 then%>上一页<%else%><a href=?page=<%=ThisPage-1%>&username1=<%=request("UserName1")%>>上一页</a><%end if%> <%if Allpage-ThisPage<1 then%>下一页<%else%><a href=?page=<%=ThisPage+1%>&username1=<%=request("UserName1")%>>下一页<%end if%></a>
<a href=?page=<%=Allpage%>&username1=<%=request("UserName1")%>>尾页</a></p>
<%end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -