notifyvhost.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 518 行 · 第 1/2 页

<% 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_AllVH Set VHStat='3' Where VHStat='2' and Stat='1' and DateDiff(dd,ETime,getdate())>0 and DateDiff(dd,ETime,getdate())<" & Sys_Opt_OverDays)
Cn.Execute("update T_DNS_AllVH Set VHStat='4' Where VHStat='2' and Stat='1' and DateDiff(dd,ETime,getdate())>" & Sys_Opt_OverDays)
Cn.Execute("update T_DNS_AllVH Set VHStat='5' Where VHStat='1' and Stat='1' and DateDiff(dd,ETime,getdate())>0" )

ViewType=Request("ViewType")
SFromTime=Request("SFromTime")
EFromTime=Request("EFromTime")
SToTime=Request("SToTime")
EToTime=Request("EToTime")
ServerIP=Request("ServerIP")
VHName=Request("VHName")
ServerType=Request("ServerType")
VHStat=Request("VHStat")
UserID=Request("UserID")


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

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

	Case "3"
	strQuery="&ViewType=3"
	strSQL="Select * from v_VHostList Where Stat='1' and VHStat='4' "
	
	Case "4"
	strQuery="&ViewType=4"
	strSQL="Select * from v_VHostList Where Stat='1' and VHStat='5' "
end select

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

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

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

if VHStat<>"" then
	strSQL = strSQL & " and VHStat='" & VHStat & "'"
	strQuery = strQuery & "&VHStat=" & VHStat
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 VHName desc"

'Response.Write strSQL
'Response.End
%>
<script language="javascript"> 
<!--
function gotourl2()
{
   document.forms[0].action= "NotifyVHost.asp";
   document.forms[0].submit();
}
-->
</script>
<form name="form3" action="NotifyDo.asp" method="post">
<input type="hidden" name="Type" value="vhost">
<select name="ViewType" class="input" onchange="gotourl2()">
    <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>
    <option value="4" <% if ViewType="4" 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>"
	elseif ViewType="4" 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>
  </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("VHID")%>"></td>
        <td><a href="../vhost/ViewVHostDetail.asp?ID=<%=Rs("VHID")%>" class="a2"><%=Rs("VHName")%></a></td>
        <td><%=Rs("ServerType")%></td>
        <td><%=Rs("ServerIP")%></td>
        <td><%=Rs("MaxSize")%>M</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("VHStat")
        	Case "1"
        		Response.Write "试用"
        	Case "2"
        		Response.Write "正常"
        	Case "3"
        		Response.Write "过期"
        	Case "4"
        		Response.Write "关闭"
        	Case "5"
        		Response.Write "试用过期"
        End Select
        %>
        </td>
        <td>
        <%
        if Rs("MailTimes")="" or ISNull(Rs("MailTimes")) then
        	response.write "0"
        else
        	response.write Rs("MailTimes")
        end if        
        %>
        </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>');