vhostlist.asp

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

<% ModuleCode="M0410" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
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")

strQuery=""
strSQL="Select * from v_VHostList Where Stat='1' "
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
else
	if UserID<>"" then
		strSQL = strSQL & " and UserID like '%" & UserID & "%'"
		strQuery = strQuery & "&UserID=" & UserID
	end if
end if

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 VHStat,STime desc"

'Response.Write strSQL
'Response.End

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>目前您还没有虚拟主机！</p>"
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>服务器IP</td>
    <td>空间大小</td>
    <% if Session("ISADMIN")="No" then %>
    <td>开通日期</td>
    <% end if %>
    <td>到期日期</td>
	<% if Session("ISADMIN")="YES" then %>
    <td>&nbsp;Id</td>
    <td>用户</td>
    <td>Web</td>
    <% end if %>
    <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_BGColor1%>" height="20"> 
    <% end if %>
    <td><a href=http://<%=Rs("ThiDN")%> target="_blank" class="a2"><%=Rs("VHName")%></a></td>
    <td><%=Rs("ServerType")%></td>
    <td><%=Rs("ServerPubIP")%></td>
    <td><%=Rs("MaxSize")%>M</td>
    <% if Session("ISADMIN")="No" then %>
    <td><%=FormatDateTime(Rs("STime"),vbShortDate)%></td>
    <% End if %>
    <td><%=FormatDateTime(Rs("ETime"),vbShortDate)%></td>
	<% if Session("ISADMIN")="YES" then %>
    <td><%=Rs("DNseq")%></td>
    <td><%=Rs("UserID")%></td>
    <td>
      <% Select Case Rs("WebStat") 
	       Case "1" %>
      <img src="../../images/green1.gif" alt="该站点Web正在运行"> 
      <% Case "2" %>
      <img src="../../images/green2.gif" alt="该站点Web已暂停"> 
      <% Case "3" %>
      <img src="../../images/sysstop.gif" alt="该站点Web被管理员关闭"> 
      <% End Select %>
    </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> <a href="ViewVHostDetail.asp?ID=<%=Rs("VHID")%>" class="a2" target="_blank">管理</a> 
    </td>
  </tr>
  <%
	Rs.MoveNext
	line=line+1
  Loop
%>
</table>
<!-------------------------------------分页导航--------------------------------------->
  
<table width="100%" cellspacing="0" cellpadding="0" border="0">
  <tbody> 
  <form name="pageform" method="Post" action="<%=Request("SCRIPT_NAME")%>?px=<%=px%><%=strQuery%>">
    <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>
      <td align="right"> 转到: 
        <input type="text" name="currentpage" size="2" maxlength="6" class="input" value="<%=currentpage%>">
        页 </td>
    </tr>
  </form>
  </tbody> 
</table>
<%
end if

Rs.Close
Set Rs=Nothing
%>
<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>');
document.writeln('    <table border=0 cellspacing=1 cellpadding=0 width=140 height=120 bgcolor=#FFFFFF>');
var n=0; for (j=0;j<5;j++){ document.writeln (' <tr align=center>'); for (i=0;i<7;i++){
document.writeln('<td width=20 height=20 id=meizzDay'+n+' style="font-size:12px" Author=meizz onclick=meizzDayClick(this.innerText)></td>');n++;}
document.writeln('</tr>');}
document.writeln('      <tr align=center><td width=20 height=20 style="font-size:12px" id=meizzDay35 Author=meizz ');
document.writeln('         onclick=meizzDayClick(this.innerText)></td>');
document.writeln('        <td width=20 height=20 style="font-size:12px" id=meizzDay36 Author=meizz onclick=meizzDayClick(this.innerText)></td>');
document.writeln('        <td colspan=5 align=right Author=meizz><span onclick=closeLayer() style="font-size:12px;cursor: hand"');
document.writeln('         Author=meizz title=""><u>关闭</u></span>&nbsp;</td></tr>');
document.writeln('    </table></td></tr><tr><td>');
document.writeln('        <table border=0 cellspacing=1 cellpadding=0 width=100% bgcolor=#FFFFFF>');
document.writeln('          <tr><td Author=meizz align=left><input Author=meizz type=button value="< " title="向前翻　年" onclick="meizzPrevY()" ');
document.writeln('             onfocus="this.blur()" class="button"><input Author=meizz title="向前翻　月" type=button ');
document.writeln('             value="<<" onclick="meizzPrevM()" onfocus="this.blur()" class="button"></td><td ');
document.writeln('             Author=meizz align=center><input Author=meizz type=button value="今天" onclick="meizzToday()" ');
document.writeln('             onfocus="this.blur()" title="现在的年月" class="button"></td><td ');
document.writeln('             Author=meizz align=right><input Author=meizz type=button value=">>" onclick="meizzNextM()" ');
document.writeln('             onfocus="this.blur()" title="往后翻　月" class="button"><input ');