📄 viewvhostdetail.asp
字号:
<% ModuleCode="M0410" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
VHID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from v_VHostList Where Stat='1' and VHID='" & VHID & "'"
if Session("ISADMIN")<>"YES" then
strSQL = strSQL & " and UserID=" & Session("UserID")
end if
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
%>
<!--#include file="VHostMenu.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
UsedSize=GetFtpUsedSize(Rs("ServerIP"),Rs("UserName"))
if UsedSize=-1 then
sUsedSize="未知 (服务器已断开)"
else
if UsedSize<0 then
sUsedSize="未知 (服务器已断开)"
else
sUsedSize=FormatNumber(CLng(UsedSize)/1024,2,,,-1) & "K"
end if
end if
%>
<!------------------------------------------------------------------------------------->
<TABLE align=center bgcolor="<%=Opt_Table_BGColor%>" border=0 cellPadding=5 cellSpacing=1 width="95%">
<TBODY>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" height=14 width="18%">
<DIV align=right>虚拟主机名</DIV></TD>
<TD bgcolor="<%=Opt_TD_BGColor2%>" height=14 width="82%"><a href=http://<%=Rs("ThiDN")%> target="_blank" class="a2"><%=Rs("VHName")%></a></TD>
</TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" height=14 width="18%">
<DIV align=right>产品名称</DIV></TD>
<TD bgcolor="<%=Opt_TD_BGColor2%>" height=14 width="82%"><%=Rs("ServerType")%></TD></TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" width="18%">
<DIV align=right>Web空间量</DIV></TD>
<TD width="82%">
<%=Rs("MaxSize")%>M
</TD></TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" width="18%">
<DIV align=right>已使用空间量</DIV></TD>
<TD width="82%">
<table border=0 cellPadding=0 cellSpacing=0 width="100%">
<tr>
<td colspan="2">
<%
if Clng(Rs("MaxSize"))=0 then
Per=0
else
Per=Cint((CLng(UsedSize)/1024000)/Clng(Rs("MaxSize"))*100)
end if
%>
<table style="BORDER-RIGHT: <%=Opt_TR_BGColor%> 1px solid; PADDING-RIGHT: 0px; BORDER-TOP: <%=Opt_TR_BGColor%> 1px solid; PADDING-LEFT: 0px; PADDING-BOTTOM: 1px; BORDER-LEFT: <%=Opt_TR_BGColor%> 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: <%=Opt_TR_BGColor%> 1px solid" cellspacing=0 cellpadding=0 width="100%" border=0 bgcolor="<%=Opt_Table_BGColor%>">
<tbody>
<tr>
<td width="100%">
<div style="FONT-SIZE: 3px; WIDTH: <%=Per%>%; HEIGHT: 6px; BACKGROUND-COLOR: <%=Opt_TR_BGColor%>"></div>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td>
<%=sUsedSize%>
</td>
<td align="right">
<%=Per%>%
</td>
</tr>
</table>
</TD></TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" height=14 width="18%">
<DIV align=right>服务器</DIV></TD>
<TD bgcolor="<%=Opt_TD_BGColor2%>" height=14 width="82%">
<%=Rs("ServerPubIP")%></TD></TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" height=14 width="18%">
<DIV align=right>操作系统</DIV></TD>
<TD bgcolor="<%=Opt_TD_BGColor2%>" height=14 width="82%"><%=Rs("ServerOS")%></TD></TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" height=14 width="18%">
<DIV align=right>数据库空间</DIV></TD>
<TD bgcolor="<%=Opt_TD_BGColor2%>" height=14 width="82%">
<%=Rs("ServerDataBase")%></TD></TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" height=14 width="18%">
<DIV align=right>语言支持</DIV></TD>
<TD bgcolor="<%=Opt_TD_BGColor2%>" height=14 width="82%">
<%=Rs("BPName")%></TD></TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" width="18%">
<DIV align=right>生效时间</DIV></TD>
<TD width="82%">
<%=Rs("STime")%> </TD></TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" width="18%">
<DIV align=right>租用年限</DIV></TD>
<TD width="82%">
<%=Rs("UYear")%>
<%
if Rs("VHStat")="1" then
Response.Write "天"
else
Response.Write "年"
end if
%>
</TD></TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" width="18%">
<DIV align=right>到期时间</DIV></TD>
<TD width="82%"><%=FormatDateTime(Rs("ETime"),vbShortDate)%></TD></TR>
<%
if Rs("VHStat")="2" or Session("ISADMIN")="YES" then
%>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" width="18%">
<DIV align=right>WEB状态</DIV></TD>
<TD width="82%">
<%
Select Case Rs("WebStat")
Case "1"
%>
开通 --> [<a href="ManageVHost.asp?OP=webclose&ID=<%=VHID%>" class="a2">关闭站点</a>]
<%
Case "2"
%>
关闭 --> [<a href="ManageVHost.asp?OP=webopen&ID=<%=VHID%>" class="a2">开通站点</a>]
<%
Case "3"
%>
站点已被管理员关闭
<%
if Session("ISADMIN")="YES" then
%>
--> [<a href="ManageVHost.asp?OP=webopen&ID=<%=VHID%>" class="a2">管理员开通站点</a>]
<%
end if
End Select
%>
</TD></TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" width="18%">
<DIV align=right>FTP状态</DIV></TD>
<TD width="82%">
<%
Select Case Rs("FTPStat")
Case "1"
%>
开通 --> [<a href="ManageVHost.asp?OP=ftpclose&ID=<%=VHID%>" class="a2">关闭FTP</a>]
<%
Case "2"
%>
关闭 --> [<a href="ManageVHost.asp?OP=ftpopen&ID=<%=VHID%>" class="a2">开通FTP</a>]
<%
Case "3"
%>
FTP已被管理员关闭
<%
if Session("ISADMIN")="YES" then
%>
--> [<a href="ManageVHost.asp?OP=ftpopen&ID=<%=VHID%>" class="a2">管理员开通FTP</a>]
<%
end if
End Select
%>
</TD></TR>
<%
end if
%>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" width="18%">
<DIV align=right>默认文档</DIV></TD>
<TD width="82%"><%=Rs("DefHomePage")%>
[<a href="ModiDefaultDoc.asp?ID=<%=VHID%>" class="a2">修改</a>]
</TD></TR>
<TR bgcolor="<%=Opt_TD_BGColor2%>">
<TD bgcolor="<%=Opt_TR_BGColor%>" width="18%">
<DIV align=right>主机状态</DIV></TD>
<TD width="82%">
<%
Select Case Rs("VHStat")
Case "1"
Response.Write "试用"
%>
--> [<a href="BuyTestVHost.asp?ID=<%=VHID%>" class="a2">购买主机</a>]
<%
Case "2"
Response.Write "正常"
Case "3"
Response.Write "过期"
Case "4"
Response.Write "关闭"
Case "5"
Response.Write "试用过期"
End Select
%>
<% if Session("ISADMIN")="YES" then %>
--> [<a href="DeleteVHost.asp?ID=<%=VHID%>" class="a2"><font color="red">删除主机</font></a>]
<% end if %>
</TD></TR>
</TBODY>
</TABLE>
<%
end if
Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -