?? display.asp
字號(hào):
<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('網(wǎng)絡(luò)超時(shí)或您還沒(méi)有登陸!');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>2 then
response.Write "<div align=center><font size=80 color=red><b>您沒(méi)有此項(xiàng)目管理權(quán)限!</b></font></div>"
response.End
end if
if qx16<>1 then
response.Write "<div align=center><font size=80 color=red><b>您沒(méi)有此項(xiàng)目管理權(quán)限!</b></font></div>"
response.End
end if
%><html>
<title>郵件列表</title>
<link href="../css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
color: #000000;
font-weight: bold;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<body bgcolor="#FFFFFF">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
<tr>
<td width="1%"> </td>
<td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="30%" style="font-size:14px;color:#ffffff"> <span class="style1">郵件列表</span></td>
<td width="70%" align="right"> </td>
</tr>
</table></td>
</tr>
</table><br>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bordercolorlight="#CCCCCC" bordercolordark="#CCCCCC" bgcolor="#9DB2D4">
<%
set rs = server.createobject("adodb.recordset")
on error resume next
dim curpage, curtopic, strtopic
dim FIRSTNO, PERPAGE
PERPAGE = 20 '每頁(yè)顯示記錄數(shù)
if request("page")="" then
curpage = 1
else
curpage = cint(request("page"))
end if
sql = "SELECT * FROM mail ORDER BY id DESC"
rs.open sql,conn,1,1
if err.number <> 0 then
response.write "數(shù)據(jù)庫(kù)連接發(fā)生了錯(cuò)誤"
else
if rs.bof and rs.eof then
rs.close
response.write "<center>目前還沒(méi)有任何用戶的郵件"
else
dim i
rs.pagesize = PERPAGE
rs.absolutepage = curpage
for i = 1 to rs.pagesize
%> <tr valign="top">
<td width="524" bgcolor="#F0F3F8"> 郵件:<a href=mailto:<%=rs("mail")%>><%=rs("mail")%></a> 加入時(shí)間:<%=rs("date")%> IP地址:<%=rs("ip")%>
</td>
</tr><%
rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next%>
<tr align="left" bgcolor="#CCCCCC">
<td width="524" height="23" bgcolor="#F0F3F8"><%
response.write "第" + cstr(curpage) + "頁(yè)/總" + cstr(rs.pagecount) + "頁(yè) "
response.write "本頁(yè)" + cstr(i-1) + "條/總" + cstr(rs.recordcount) + "條 "
if curpage = 1 then
response.write "首頁(yè) 前頁(yè) "
else
response.write "<a href='display.asp?page=1'>首頁(yè)</a> <a href='display.asp?page=" + cstr(curpage-1) + "'>前頁(yè)</a> "
end if
if curpage = rs.pagecount then
response.write "后頁(yè) 末頁(yè)"
else
response.write "<a href='display.asp?page=" + cstr(curpage+1) + "'>后頁(yè)</a> <a href='display.asp?page=" + cstr(rs.pagecount) + "'>末頁(yè)</a>"
end if
rs.close
'end if
end if
end if
set rs = nothing
call endconnection()
%> </td>
</tr>
</table>
<br>
<!--#include file="copyright.asp"-->
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -