⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin.asp

📁 很强大的一款医药管理软件很强大的一款医药管理软件很强大的一款医药管理软件很强大的一款医药管理软件很强大的一款医药管理软件
💻 ASP
字号:
🔍 

<%
'#################################################################
'# 程序名称：随缘网络邮件订阅系统 V1.0
'# 授权方式：免费软件
'# 作者：随缘网络  QQ:84723090
'# 留言技术支持：http://www.115cn.cn/book
'# 发布时间：2007-9-25
'# 声明：本程序由随缘网络独立自主开发，保留所有版权。
'# 各种用途均可免费使用、自由传播，但必须保留程序代码中的版权信息。
'# 如果您需要更强大的功能可以与我们联系购买商业版！
'# 电话：0592-5983163 13400693163
'#################################################################
%>
<!--#include file="dbconn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>随缘网络邮件订阅系统 V1.0--后台管理</title>
<link href="css.css" type=text/css rel=stylesheet></head>
<body>
<Form name="search" method="POST" action="delhy.asp">
<div align="center">

		<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table2" height="28">
			<tr>
				<td bgcolor="#008080" height="28">
				<p align="center">
		<font color="#FFFFFF"><b>邮件订阅管理</b>&nbsp;
				</font></td>
			</tr>
		</table>

<table border="1" width="100%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#C0C0C0" id="table1">
	<tr>
		<td align="center" width="6%" height="22">ID</td>
		<td align="center" width="24%" height="22">邮箱</td>
		<td align="center" width="14%" height="22">订阅时间</td>
		<td align="center" width="16%" height="22">管理&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
		<b><a href="sent_email.asp">全部发送</a></b></td>
	</tr>
<%
'分页显示
If Len(Trim(Request("page")))=0 Then  '返回目标页码的判断
page=1 
Else 
page=CInt(Trim(Request("page"))) 
End If
set rs=Server.CreateObject("ADODB.RecordSet")
i=1
if  not tsort="" then
		sql="select  * from maillist order by id desc "
else
	sql="select  * from  maillist order by id desc "
	end if
	rs.open sql,conn,1,1
	
	rs.PageSize=20
if not rs.eof then
  rs.AbsolutePage=page
    for k=1 to rs.PageSize
%>	
	<tr>
		<td align="center" width="6%" height="22"><%=i%></td>
		<td align="center" width="24%" height="22"><%=rs("email")%></td>
		<td align="center" width="14%" height="22"><%=rs("dateandtime")%></td>
		<td align="center" height="22">
		<a style="color:#ff0000;" href="del.asp?id=<%=rs("id")%>">删除</a>&nbsp;
		<a href="sent_email.asp?id=<%=rs("id")%>">发送</a></td>
	</tr>
	<%
rs.movenext
i=i+1
if rs.EOF Then Exit For
next
end if
%>
</table>
</form>
</div>
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table3" height="20">
	<tr>
<td width="100%">
		<p align="center">共有 <%=rs.recordcount%> 位订阅 <%
  if page <>1 then
     Response.Write "<a href=admin.asp?page=1?cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">首页</a> "
  end if
  tmppage = page - 1 
  if tmppage <= 0 then 
     tmppage = 1 
  else
     Response.Write"<a href=admin.asp?page="&tmppage&"&cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">上一页</a>"
  end if
  tmppage = page + 1 
  if tmppage >rs.PageCount then 
     tmppage = page
  else
     Response.Write " <a href=admin.asp?page="&tmppage&"&cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">下一页</a> "
  end if 
  if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
    Response.Write "<a href=admin.asp?page="&rs.PageCount&"&cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">尾页</a>"
  end if
  if Cstr(rs.PageCount) <> 0 then
  Response.Write "  第<font color='#CCCCCC'>" & page & "/"&rs.PageCount&"</font>页"
  end if
%></td>

	</tr>
</table>
	<p align="center">设计制作：<a target="_blank" href="http://www.115cn.cn/">厦门随缘网络科技</a>&nbsp; 
	随缘网络邮件订阅系统 V1.0&nbsp;&nbsp; QQ：84723090<p align="center">　</p>
</body>
</html>

⌨️ 快捷键说明

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