📄 pendreg.asp
字号:
<!--#include file="passinc.asp" -->
<%
if isadmin() = false then
response.redirect "noadmin.asp"
end if
%>
<%
dim pr
set pr = server.createobject("easymail.PendRegister")
pr.Load Application("em_SignWaitDays")
allnum = pr.count
if trim(request("page")) = "" then
page = 0
else
page = CInt(request("page"))
end if
if page < 0 then
page = 0
end if
allpage = CInt((allnum - (allnum mod pageline))/ pageline)
if allnum mod pageline <> 0 then
allpage = allpage + 1
end if
if page >= allpage then
page = allpage - 1
end if
if page < 0 then
page = 0
end if
if allpage = 0 then
allpage = 1
end if
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function mdel()
{
form1.mdel.value = "1";
form1.action = "deletepr.asp";
form1.submit();
}
function selectpage_onchange()
{
location.href = "pendreg.asp?<%=getGRSN() %>&page=" + form1.page.value;
}
var NS4 = (document.layers);
var IE4 = (document.all);
var win = window;
var n = 0;
function findIt() {
if (form1.searchstr.value != "")
findInPage(form1.searchstr.value);
}
function findInPage(str) {
var txt, i, found;
if (str == "")
return false;
if (NS4) {
if (!win.find(str))
while(win.find(str, false, true))
n++;
else
n++;
if (n == 0)
alert("Specified content not found.");
}
if (IE4) {
txt = win.document.body.createTextRange();
for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) {
txt.moveStart("character", 1);
txt.moveEnd("textedit");
}
if (found) {
txt.moveStart("character", -1);
txt.findText(str);
txt.select();
txt.scrollIntoView();
n++;
}
else {
if (n > 0) {
n = 0;
findInPage(str);
}
else
alert("Specified content not found.");
}
}
return false;
}
//-->
</SCRIPT>
<BODY>
<br>
<form action="pendreg.asp" method=post id=form1 name=form1>
<input type="hidden" name="mdel">
<input type="hidden" name="thispage" value="<%=page %>">
<table width="98%" height="25" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style="border-bottom:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">
<tr>
<td width="2%"> </td>
<td width="47%"><font class="s"><b>Mailbox Application Approval:<%=name & " (" & page+1 & "/" & allpage & ")" %></b></font></td>
<td width="18%">
<%
if page > 0 then
response.write "<a href=""pendreg.asp?" & getGRSN() & "&page=" & page - 1 & """><font face='Webdings' style='font-size:13px'>7</font></a> "
else
response.write "<font face='Webdings' style='font-size:13px'>7</font> "
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 & """>" & i + 1 & "</option>"
else
response.write "<option value=""" & i & """ selected>" & i + 1 & "</option>"
end if
i = i + 1
loop
%></select>
<%
if page < allpage - 1 then
response.write " <a href=""pendreg.asp?" & getGRSN() & "&page=" & page + 1 & """><font face='Webdings' style='font-size:13px'>8</font></a>"
else
response.write " <font face='Webdings' style='font-size:13px'>8</font>"
end if
%></td>
<td width="24%" nowrap><input type="text" name="searchstr" class="textbox" size="10">
<input type="button" value="Find" onclick="javascript:findIt();" class="sbttn">
</td>
<td width="10%"><a href="right.asp?<%=getGRSN() %>">Return</a></td>
</tr>
</table>
</td></tr>
</table>
<br>
<table width="98%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr bgcolor="#dbeaf5" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
<td width="5%" nowrap align="center" height="25" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><a href="javascript:mdel()"><img src='images\del.gif' border='0' alt="Delete Selected"></a></td>
<td width="6%" nowrap align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>No.</b></font></td>
<td width="14%" nowrap align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Register Name</b></font></td>
<td width="18%" nowrap align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Domain</b></font></td>
<td width="12%" nowrap align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>IP Address</b></font></td>
<td width="11%" nowrap align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Date</b></font></td>
<td width="12%" nowrap align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>External Email</b></font></td>
<td width="6%" nowrap align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b> </b></font></td>
<td width="6%" nowrap align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b> </b></font></td>
</tr>
<%
i = page * pageline
li = 0
do while i < allnum and li < pageline
si = allnum - i - 1
pr.GetInfo si, reg_username, reg_domain, reg_ip, reg_email, reg_time, accode
Response.Write " <tr>"
Response.Write " <td nowrap align='center' style='border-bottom:1px #8CA5B5 solid;'><input type='checkbox' name='check" & si & "' value='" & accode & "'></td>"
Response.Write " <td nowrap align='center' style='border-bottom:1px #8CA5B5 solid;'>" & i + 1 & "</td>"
Response.Write " <td nowrap align='left' style='border-bottom:1px #8CA5B5 solid;'> " & server.htmlencode(reg_username) & " </td>"
Response.Write " <td nowrap align='center' style='border-bottom:1px #8CA5B5 solid;'> " & reg_domain & " </td>"
Response.Write " <td nowrap align='center' style='border-bottom:1px #8CA5B5 solid;'> " & reg_ip & " </td>"
Response.Write " <td nowrap align='center' style='border-bottom:1px #8CA5B5 solid;'> " & convTimeStr(reg_time) & " </td>"
Response.Write " <td nowrap align='center' style='border-bottom:1px #8CA5B5 solid;'> " & server.htmlencode(reg_email) & " </td>"
Response.Write " <td nowrap align='center' style='border-bottom:1px #8CA5B5 solid;'> <a href='deletepr.asp?id=" & accode & "&thispage=" & page & "&" & getGRSN() & "'>Reject</a> </td>"
Response.Write " <td nowrap align='center' style='border-bottom:1px #8CA5B5 solid;'> <a href='actionit.asp?accode=" & accode & "&gourl=pendreg.asp&thispage=" & page & "&" & getGRSN() & "'>Approval</a> </td>"
Response.Write " </tr>" & chr(13)
reg_username = NULL
reg_domain = NULL
reg_ip = NULL
reg_email = NULL
reg_time = NULL
accode = NULL
i = i + 1
li = li + 1
loop
%>
</table>
</FORM>
<br>
</BODY>
</HTML>
<%
set pr = nothing
function convTimeStr(ostr)
if ostr <> "" then
convTimeStr = Mid(ostr, 1, 4) & "-" & Mid(ostr, 5, 2) & "-" & Mid(ostr, 7, 2) & " " & Mid(ostr, 9, 2) & ":" & Mid(ostr, 11, 2)
end if
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -