📄 ad_dy.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<%
if request("action")="del" then
selectid=request("selectid")
conn.execute "delete from venshop_email where id in ("&selectid&")"
response.Redirect "ad_dy.asp"
response.End
end if%>
<table border="0" cellpadding="5" cellspacing="1" bordercolordark="#FFFFFF" bgcolor="#C8C8C8"><form method="post" action="ad_dy.asp?action=del">
<tr><td bgcolor="#F0F0F0" width="35">ID</td><td bgcolor="#F0F0F0" width="150">邮箱</td>
<td bgcolor="#F0F0F0" width="150">订阅时间</td><td bgcolor="#F0F0F0"> 全选 <input type="checkbox" name="checkbox" value="Check All" onClick="selectall()"><input type='submit' class=buttonface value='删 除' onClick="return submitcheck();" style="height: 20"></td></tr>
<%
set rs=server.createobject("adodb.recordset")
title=request("txtitle")
if title<>"" then
sql="select * from venshop_email where email like '%"&title&"%' order by id desc"
else
sql="select * from venshop_email order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td bgcolor=#FFFFFF colspan=4>没有记录</td></tr>"
else
page=request("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
rs.pagesize=20
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
do while not rs.eof and (i<rs.pagesize)
i=i+1%>
<tr><td bgcolor="#FFFFFF"><%=rs("id")%></td><td bgcolor="#FFFFFF"><a href="ad_dysend.asp?tmail=<%=rs("email")%>"><%=rs("email")%></a></td><td bgcolor="#FFFFFF"><%=rs("date")%></td><td bgcolor="#FFFFFF"><input name="selectid" type="checkbox" id="selectid" value="<%=rs("id")%>"></td></tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing%>
</form></table>
<table border="0" width="100%" cellspacing="0">
<tr><td height="30">共<font color=red><%=totalpage%></font>页 第<%=page%>页
<%if page-1>0 then%><a href="<%=filename%>?page=<%=page-1%>&txtitle=<%=title%>">上一页</a><%else%>上一页 <%end if%>
<%if page+1<=totalpage then%><a href="<%=filename%>?page=<%=page+1%>&txtitle=<%=title%>">下一页</a><%else%>下一页 <%end if%>
</td></tr></table>
<table border="0" cellspacing="0" cellpadding="5" bgcolor="#F0F0F0" width="300"><form method="POST" action="ad_dy.asp"><tr>
<td>模糊查找: </td>
<td><input class=smallInput type="text" name="txtitle" size="20" value="<%=request("txtitle")%>"></td>
<td><input type="submit" value="查 询" name="title"></td></tr></form></table>
<br>
<div class="help">
备注:<br>可以给用户群发发送促销、特价信息等</div>
<script language=javascript>
function submitcheck()
{
if(!confirm('确认进行该操作吗?')) return false;
}
function selectall()
{
var a = document.getElementsByTagName("input");
if(a[0].checked==true){
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = false;
}
else
{
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = true;
}
}
</script><table cellSpacing="0" cellPadding="3" border="0" width="500"><tr><td height="20"></td></tr>
<tr><td bgcolor="#F2F2F2"><p style="LINE-HEIGHT: 150%"><font color="#FF0000">凡人网络购物系统V8.0 版权所有:</font><a target="_blank" href="http://www.venshop.com"><font color="#FF0000">凡人网络VenShop.Com</font></a><font color="#FF0000"><br>客服电话:010-80928177 QQ:57152557/5404818 Email/Msn:</font><a href="mailto:Ser@VenShop.Com"><font color="#FF0000">Ser@VenShop.Com</font></a></td>
</tr></table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -