📄 x_vip_syq.asp
字号:
<!--#include file=../conn.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=onlinerz.asp-->
<!--#include file=../config.asp-->
<%
dim rs,sql,Pagesize,k,Allrecord,Allpage,ThisPage,usersize
dim cmdTemp,diqu,quanxian
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
diqu=request.cookies("quyu")
Set cmdTemp = Server.CreateObject("ADODB.Command")
set rs = server.CreateObject ("adodb.recordset")
if request("username1")="" then
sql="select id,username,comid,companyName,zcdata from [company] where vip<>1 and city like '%"&diqu&"%' and (getdate()-zcdata)<="&vipuser
else
sql="select id,username,comid,companyName,zcdata from [company] where (UserName like '%"&request("UserName1")&"%'or companyName like '%"&request("UserName1")&"%') and vip<>1 and city like '%"&diqu&"%' and (getdate()-zcdata)<="&vipuser
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 "没有找到<font color='#ff0000'>"&diqu&"地区</font>的试用期会员企业！"
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"><b>[<a href="vip_admin.asp?id=<%=rs("id")%>">修</a>]</b><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("zcdata")%></font></td>
<td width="8%" height="25" background="../img/bg.gif">
<p align="center"><font color="#F06000"><%=vipuser-int(now()-rs("zcdata"))%>天</font></td>
<td width="34%" height="25" background="../img/bg.gif">
<p align="center">
<a href="adminqunfa.asp?username=<%=rs("username")%>&oo=company">
<font color="#3399FF">发送邮件</font></a>，<font color="#3399FF"><a href="vip_admin.asp?id=<%=rs("id")%>"><font color="#3399FF">加为VIP会员</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 + -