📄 showlog.asp
字号:
<%
Response.CacheControl = "no-cache"
%>
<!--#include file="passinc.asp" -->
<%
if isadmin() = false then
response.redirect "noadmin.asp"
end if
page = trim(request("page"))
if page <> "" then
page = CInt(page)
else
page = 0
end if
dim a
set a = server.createobject("easymail.logs")
'-----------------------------------------
a.load
a.PageKSize = Application("em_LogPageKSize")
readnum = CInt(trim(request("index")))
allpage = a.getLogPageNumber(readnum)
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function selectpage_onchange()
{
location.href = "showlog.asp?<%=getGRSN() %>&index=<%=readnum %>&page=" + page.value;
}
//-->
</SCRIPT>
<BODY>
<br>
<div align="center"><br>
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#dbeaf5" style="border-bottom:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">
<tr>
<td width="18%" height="28"> </td><td colspan="30"><font class="s" color="#104A7B"><b>Log display (<font color="#FF3333"><%=(page + 1) & "</font>/" & allpage %>)</b></font></td>
<td width="41%"><%
if page - 1 < 0 then
response.write "<font face='Webdings' style='font-size:13px'>9</font> "
response.write "<font face='Webdings' style='font-size:13px'>7</font> "
else
response.write "<a href=""showlog.asp?page=" & 0 & "&index=" & readnum & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>9</font></a> "
response.write "<a href=""showlog.asp?page=" & page - 1 & "&index=" & readnum & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>7</font></a> "
end if
%><select name="page" class="drpdwn" size="1" LANGUAGE=javascript onchange="selectpage_onchange()"><%
i = 0
do while i < allpage
if i <> page then
response.write "<option value=""" & i & """>Page " & i + 1 & "</option>"
else
response.write "<option value=""" & i & """ selected>Page " & i + 1 & "</option>"
end if
i = i + 1
loop
%></select>
<%
if (page + 1) => allpage then
response.write "<font face='Webdings' style='font-size:13px'>8</font> "
else
response.write "<a href=""showlog.asp?page=" & page + 1 & "&index=" & readnum & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>8</font></a> "
end if
if page + 1 >= allpage then
response.write "<font face='Webdings' style='font-size:13px'>:</font> "
else
response.write "<a href=""showlog.asp?page=" & allpage - 1 & "&index=" & readnum & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>:</font></a> "
end if%></td>
</tr>
</table>
</div>
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF">
<tr>
<td colspan="7" align="right" bgcolor="#ffffff"><br>
<input type="button" value="Return" onclick="location.href='logs.asp?<%=getGRSN() %>'" class="Bsbttn">
<br>
</td>
</tr>
<tr><td>
<%
dim str
str = a.getPageLogMessage(readnum, page)
str = server.htmlencode(str)
str = replace(str, Chr(10), "<br>")
str = replace(str, Chr(32), " ")
response.write str
%>
</td></tr>
<tr>
<td colspan="7" align="right" bgcolor="#ffffff"><br>
<input type="button" value="Return" onclick="location.href='logs.asp?<%=getGRSN() %>'" class="Bsbttn">
<br>
</td>
</tr>
</table>
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#dbeaf5" style="border-bottom:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">
<tr>
<td width="20%" height="28"> </td><td><font class="s" color="#104A7B"><b>Log display (<font color="#FF3333"><%=(page + 1) & "</font>/" & allpage %>)</b></font></td>
<td width="35%"><%
if page - 1 < 0 then
response.write "<font face='Webdings' style='font-size:13px'>9</font> "
response.write "<font face='Webdings' style='font-size:13px'>7</font> "
else
response.write "<a href=""showlog.asp?page=" & 0 & "&index=" & readnum & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>9</font></a> "
response.write "<a href=""showlog.asp?page=" & page - 1 & "&index=" & readnum & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>7</font></a> "
end if
if (page + 1) => allpage then
response.write "<font face='Webdings' style='font-size:13px'>8</font> "
else
response.write "<a href=""showlog.asp?page=" & page + 1 & "&index=" & readnum & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>8</font></a> "
end if
if page + 1 >= allpage then
response.write "<font face='Webdings' style='font-size:13px'>:</font> "
else
response.write "<a href=""showlog.asp?page=" & allpage - 1 & "&index=" & readnum & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>:</font></a> "
end if%></td>
</tr>
</table>
</div>
<br><br>
</BODY>
</HTML>
<%
set a = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -