?? bs_mail_view_user.asp
字號:
<!--#include file="bsconfig.asp"-->
<%
'=========================================================
'
'產(chǎn)品名稱： 公司(企業(yè))網(wǎng)站管理系統(tǒng)（簡稱：www.web300.cn）
'版權(quán)所有: www.web300.cn
'程序制作：www.web300.cn開發(fā)團(tuán)隊(duì)
'Copyright 2006-2008 www.web300.cn - All Rights Reserved.
'
'========================================================
%>
<% if request("del")<>"" then
conn.Execute("delete * from email where id="&request("del"))
end if %>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
if (isNaN(go2to.page.value))
alert("請正確填寫轉(zhuǎn)到頁數(shù)！");
else if (go2to.page.value=="")
{
alert("請輸入轉(zhuǎn)到頁數(shù)！");
}
else
go2to.submit();
}
//-->
</SCRIPT>
<%
set rs=server.createobject("adodb.recordset")
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
if key="" then
sql="select * from email order by id desc"
else
sql="select * from email where dateandtime like '%"&key&"%'order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<BR>"
response.write"=== 郵件列表為空，請?jiān)谇芭_添加至少一個以上郵件地址，才可以管理！ ==="
response.write"<BR><BR>"
response.end
end if
rs.pagesize=20
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount %>
<!-- #include file="Inc/Head.asp" -->
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="560" align="center" class="a2">
<tr>
<td class="a1" height="25" align="center"><strong>用戶管理</strong></td>
</tr>
<tr class="a4">
<td align="center">
<br>
<table border="0" cellpadding="0" cellspacing="0" width="550" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" class=ver>
<tr>
<% if rs.pagecount=1 then %>
<td height="25" colspan="4" class="ver"> <font class=ver> 共有[<font color="#ff0000"><%=rs.recordcount%></font>]Email地址
以下是[<font color="red">1～<%=rs.recordcount%></font>]個 <a href="Bs_Mail_Add_user.asp">添加郵件地址</a></font></td>
</tr>
<tr>
<td height="7" colspan="4" ></td>
</tr>
<%else%>
<tr>
<td height="25" colspan="4" ><font class=ver>
<%
page_start=(pagecount-1)*rs.pagesize
if pagecount=1 then page_start=1
page_end=rs.pagesize*pagecount
if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
共有[<font color="#ff0000"><%=rs.recordcount%></font>]Email地址 以下是[<font color="red"><%=page_start%>～<%=page_end%></font>]</font> <a href="Bs_Mail_Add_user.asp">添加郵件地址</a></td>
</tr>
<tr>
<td height="25" colspan="4" >
<% response.write"<form name=go2to form method=Post action='Bs_Mail_view_user.asp?key="+key+"'>"
response.write "<font color=ffffff>◆ </font>"
if pagecount=1 then
response.write "<font class=ver>首頁 上一頁</font> "
else
response.write "<a href=Bs_Mail_view_user.asp?page=1&key="+key+"><font class=ver>首頁</font></a> "
response.write "<a href=Bs_Mail_view_user.asp?page="+cstr(pagecount-1)+"&key="+key+"><font color='0000BE'>上一頁</font></a> "
end if
if rs.PageCount-pagecount<1 then
response.write "<font class=ver>下一頁 尾頁</font>"
else
response.write "<a href=Bs_Mail_view_user.asp?page="+cstr(pagecount+1)+"&key="+key+"><font class=ver>下一頁</font></a> "
response.write "<a href=Bs_Mail_view_user.asp?page="+cstr(rs.PageCount)+"&key="+key+"><font class=ver>尾頁</font></a>"
end if
response.write "<font class=ver> 頁次:<font class=ver>"&pagecount&"</font>/"&rs.pagecount&"頁</font>"
response.write "<font class=ver> 轉(zhuǎn)到第<input type='text'name='page'size=2 maxLength=3 style='font-size: 9pt; color:#00006A; position: relative; height: 18'value="&PageCount&">頁</font> "
response.write "<input class=button1 type='button'value='確 定'onclick=check() style='font-family: 宋體; font-size: 9pt; color: #000073; position: relative; height: 19'>" %>
</td>
</tr>
<%end if%>
</table>
<table border="0" cellspacing="2" cellpadding="0" width="550">
<tr bgcolor="#C0C0C0">
<td width="9%" height="25" class=ver> <p align="center"><font color="#000000">ID</font></p></td>
<td width="31%"> <p align="center"><font color="#000000">郵件地址</font></td>
<td colspan="3" class=ver> <p align="center"><font color="#000000">用戶名</font></td>
<td width="16%"> <p align="center"><font color="#000000">- 刪除 - </font>
</td>
</tr>
<% do while not rs.eof %>
<tr bgcolor="#E3E3E3">
<td height="25" class=ver width="9%"> <p align="center"><font color=000000><%=rs("id")%></font></p></td>
<td class=ver> <p align="left"><font color="000000"> <a href="Bs_Mail_Send.asp?email=<%=rs("email")%>"><%=rs("email")%></a></font></p></td>
<td colspan="3" class=ver> <p align="left"><font color="000000"> <%=rs("dateandtime")%></font></p></td>
<td width="16%" > <p align="center"><font color="#000000">[<a href="Bs_Mail_view_user.asp?del=<%=rs("id")%>"><font class=ver>刪除</font></a>]</font>
</p></td>
</tr>
<% i=i+1
rs.movenext
if i>=rs.PageSize then exit do
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
'end if
%>
</table>
<br>
</td>
</tr>
</table>
<BR>
<%htmlend%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -