notifymail.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0825" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="NotifyMenu.asp"-->
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/GetSysParam.asp"-->
<%

Cn.Execute("update T_DNS_AllPost Set PostStat='2' Where DateDiff(dd,getdate(),ETime)<0")

ViewType=Request("ViewType")
SFromTime=Request("SFromTime")
EFromTime=Request("EFromTime")
SToTime=Request("SToTime")
EToTime=Request("EToTime")
ServerIP=Request("ServerIP")
BPostDN=Request("BPostDN")
PostStat=Request("PostStat")
MailType=Request("MailType")
UserID=Request("UserID")

if ViewType="" then
	ViewType="1"
end if

Select Case ViewType
	
	Case "1"
	strQuery="&ViewType=1"
	strSQL="Select * from v_MailList Where Stat='1' and DateDiff(dd,getdate(),ETime)>=0 and DateDiff(dd,getdate(),ETime)<" & Sys_Opt_OverdueTime & " "

	Case "2"
	strQuery="&ViewType=2"
	strSQL="Select * from v_MailList Where Stat='2' and DateDiff(dd,getdate(),ETime)<0 and DateDiff(dd,ETime,getdate())<" & Sys_Opt_OverDays & " "
	
	Case "3"
	strQuery="&ViewType=3"
	strSQL="Select * from v_MailList Where Stat='2' and DateDiff(dd,ETime,getdate())>=" & Sys_Opt_OverDays & " "
end select

if BPostDN<>"" then
	strSQL = strSQL & " and BPostDN like '%" & BPostDN & "%'"
	strQuery = strQuery & "&BPostDN=" & BPostDN
end if

if MailType<>"" then
	strSQL = strSQL & " and MailType='" & MailType & "'"
	strQuery = strQuery & "&MailType=" & MailType
end if

if ServerIP<>"" then
	strSQL = strSQL & " and ServerIP like '%" & ServerIP & "%'"
	strQuery = strQuery & "&ServerIP=" & ServerIP
end if

if PostStat<>"" then
	strSQL = strSQL & " and PostStat='" & PostStat & "'"
	strQuery = strQuery & "&PostStat=" & PostStat
end if

if SFromTime<>"" then
	strSQL = strSQL & " and STime >= '" & SFromTime & " 00:00:00'"
	strQuery = strQuery & "&SFromTime=" & SFromTime
end if

if EFromTime<>"" then
	strSQL = strSQL & " and ETime >= '" & EFromTime & " 00:00:00'"
	strQuery = strQuery & "&EFromTime=" & EFromTime
end if

if SToTime<>"" then
	strSQL = strSQL & " and STime <= '" & SToTime & " 23:59:59'"
	strQuery = strQuery & "&SToTime=" & SToTime
end if

if EToTime<>"" then
	strSQL = strSQL & " and ETime <= '" & EToTime & " 23:59:59'"
	strQuery = strQuery & "&EToTime=" & EToTime
end if

strSQL = strSQL & " order by BPostDN desc"

'Response.Write strSQL
'Response.End
%>
<script language="javascript"> 
<!--
function gotourl()
{
   document.forms[0].action= "NotifyMail.asp";
   document.forms[0].submit();

}
-->
</script>
<form name="form3" action="NotifyDo.asp" method="post">
<input type="hidden" name="Type" value="mail">
<select name="ViewType" class="input" onchange="gotourl()">
    <option value="1" <% if ViewType="1" then Response.Write "Selected"%>>快过期的邮局</option>
    <option value="2" <% if ViewType="2" then Response.Write "Selected"%>>已过期的邮局</option>
    <option value="3" <% if ViewType="3" then Response.Write "Selected"%>>要删除的邮局</option>
</select>
<%
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	if ViewType="2" then
		Response.Write "<br><br><P align='center' class='titletext'>目前还没有已过期邮局！</p>"
	elseif ViewType="3" then
		Response.Write "<br><br><P align='center' class='titletext'>目前还没有要删除邮局！</p>"
	else
		Response.Write "<br><br><P align='center' class='titletext'>目前还没有快过期邮局！</p>"
	end if
else

Rs.PageSize=Opt_PageSize
pages=Rs.pagecount
records=Rs.recordcount
currentpage=request("currentpage")
if currentpage="" or currentpage<1 then currentpage=1
currentpage=cint(currentpage)
if currentpage>pages then currentpage=pages
Rs.absolutepage=currentpage
%>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tbody>
      <tr>
        <td height="22" class="titletext">
          <font color="<%=Opt_Font_TitleColor%>"><strong>邮局列表</strong></font>         
        </td>
        <td align="right">共 <font color="red"><b><%=Records%></b></font> 个项目　页次: 
          <font color="red"><b><%=currentpage%></b></font> / <font color="red"><b><%=Pages%></b></font> 
          页
        </td>
      </tr>
    </tbody>
</table>
<!------------------------------------------------------------------------------------->
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
  <tr bgcolor="<%=Opt_TR_BGColor%>" height="24"> 
     <td>选择</td>
     <td>域名</td>
     <td>类型</td>
     <td>IP</td>
     <td>空间</td>
     <td>邮箱</td>
     <td>开通日期</td>
     <td>到期日期</td>
     <td>用户</td>
     <td>状态</td>
     <td>发送次数</td>
  </tr>
<%
linenumber=Rs.pagesize
do while (not Rs.eof) and (line<linenumber)
     if line mod 2 =0 Then %>
     <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
     <% else %>
     <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
     <% end if %>
        <td><input type="CheckBox" name="PID" value="<%=Rs("PostID")%>"></td>
        <td><a href="../mail/ViewMailDetail.asp?ID=<%=Rs("PostID")%>" class="a2"><%=Rs("BPostDN")%></font></td>
        <td><%=Rs("MailType")%></td>
        <td><%=Rs("ServerIP")%></td>
        <td><%=Rs("MaxSize")%>M</td>
        <td><%=Rs("MaxUser")%></td>
        <td><%=FormatDateTime(Rs("STime"),vbShortDate)%></td>
        <td><%=FormatDateTime(Rs("ETime"),vbShortDate)%></td>
        <% if Session("ISADMIN")="YES" then %>
        <td><%=Rs("UserID")%></td>
        <% end if %>
        <td>
        <%
        Select Case Rs("PostStat")
        	Case "1"
        		Response.Write "正常"
        	Case "2"
        		Response.Write "关闭"
        End Select
        %>
        </td>
        <td>
        <%=Rs("MailTimes")%>
        </td>
      </tr>
    <%
	Rs.MoveNext
	line=line+1
  Loop
%>
</table>
<!-------------------------------------分页导航--------------------------------------->
  
<table width="100%" cellspacing="0" cellpadding="0" border="0">
  <tbody>
  <tr height="26">
      <td>     
          <%if currentpage>1 then%>
              <a href="<%=Request("SCRIPT_NAME")%>?currentpage=1<%=strQuery%>" class="a2">首页</a> <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage-1%><%=strQuery%>" class="a2">上一页</a>
          <%end if%>
          <%if currentpage<pages then%>
              <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage+1%><%=strQuery%>" class="a2">下一页</a> <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=pages%><%=strQuery%>" class="a2">末页</a>
          <%end if%>
      </td>
  </tr>
  </tbody>
</table>
<p align="center">
	    <input name="submit1" type="submit" value="发送续费通知邮件" class="button">
</p>

<%
end if

Rs.Close
Set Rs=Nothing
%>
</form>
<br>
<script language=javascript>
<!--
document.writeln('<div id=meizzDateLayer style="position: absolute; width: 142; height: 166; z-index: 9998; display: none">');
document.writeln('<span id=tmpSelectYearLayer  style="z-index: 9999;position: absolute;top: 2; left: 18;display: none"></span>');
document.writeln('<span id=tmpSelectMonthLayer style="z-index: 9999;position: absolute;top: 2; left: 75;display: none"></span>');
document.writeln('<table border=0 cellspacing=1 cellpadding=0 width=142 height=160 bgcolor=#808080 onselectstart="return false">');
document.writeln('  <tr><td width=142 height=23 bgcolor=#FFFFFF><table border=0 cellspacing=1 cellpadding=0 width=140 height=23>');
document.writeln('      <tr align=center><td width=20 align=center bgcolor=#808080 style="font-size:12px;cursor: hand;color: #FFD700" ');
document.writeln('        onclick="meizzPrevM()" title="向前翻　月" Author=meizz><b Author=meizz>&lt;&lt;</b>');
document.writeln('        </td><td width=100 align=center style="font-size:12px;cursor:default" Author=meizz>');
document.writeln('        <span Author=meizz id=meizzYearHead onclick="tmpSelectYearInnerHTML(this.innerText)"></span>&nbsp;年&nbsp;<span');
document.writeln('         id=meizzMonthHead Author=meizz onclick="tmpSelectMonthInnerHTML(this.innerText)"></span>&nbsp;月</td>');
document.writeln('        <td width=20 bgcolor=#808080 align=center style="font-size:12px;cursor: hand;color: #FFD700" ');
document.writeln('         onclick="meizzNextM()" title="往后翻　月" Author=meizz><b Author=meizz>&gt;&gt;</b></td></tr>');
document.writeln('    </table></td></tr>');
document.writeln('  <tr><td width=142 height=18 bgcolor=#808080>');
document.writeln('<table border=0 cellspacing=0 cellpadding=0 width=140 height=1 style="cursor:default">');
document.writeln('<tr align=center><td style="font-size:12px;color:#FFFFFF" Author=meizz>日</td>');
document.writeln('<td style="font-size:12px;color:#FFFFFF" Author=meizz>一</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>二</td>');
document.writeln('<td style="font-size:12px;color:#FFFFFF" Author=meizz>三</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>四</td>');
document.writeln('<td style="font-size:12px;color:#FFFFFF" Author=meizz>五</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>六</td></tr>');
document.writeln('</table></td></tr><!-- Author:F.R.Huang(meizz)meizz @ hzcnc.com 2002-10-8 -->');
document.writeln('  <tr><td width=142 height=120>');