📄 manage.asp
字号:
<!--#include file="../conn.asp"-->
<%
If (isnull(Session("WebID"))) or Session("WebID")="" Then
response.redirect "index.asp"
End If
%>
<%
'此模块是进行空间基本信息修改查询
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [Host_OK] where WebID=" & Session("WebID")
rs.open sql,conn,1,1
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
HostName=rs("HostName")
HostSize=rs("HostSize")
Connections=rs("Connections")
WebID=rs("WebID")
HostIp=rs("HostIp")
Session("HostIp")=HostIp
Price=rs("Price")
Years=rs("Years")
FtpName=rs("FtpName")
Session("FtpName")=FtpName
FtpPath=rs("FtpPath")
Session("FtpPath")=FtpPath
WebState=rs("WebState")
Session("WebState")=WebState
ScriptMaps=rs("ScriptMaps")
BeginDate=rs("BeginDate")
EndDate=rs("EndDate")
Session("EndDate")=EndDate
rs.close
if Cdate(Session("EndDate"))<Date then
session.abandon()
Response.Redirect("error.asp?id=017")
end if
if isnull(ScriptMaps) or len(ScriptMaps)=0 then ScriptMaps="全能型"
if WebState=2 then
State="运行中"
elseif WebState=4 then
State="<font color=red>停止中</font>"
elseif WebState=6 then
State="<font color=red>暂停中</font>"
end if
sql="select DomainName from [Domain_OK] where WebID=" & WebID & " and DomainType=1"
rs.open sql,conn,1,1
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
DomainName=rs("DomainName")
rs.close
'向服务器提交查询FTP使用空间大小
Set Autohost = Server.CreateObject("autohost.Createhost")
Autohost.HostIp=HostIp
Autohost.HostPort=Port
Autohost.Guid=Guid
Autohost.HostAction="info"
Autohost.Hostuser=FtpName
ReturnValue=Autohost.send
set Autohost=nothing
'以下是检查服务器的返回值,因为服务器返回值里有控制符,所以这个只对返回值进行查找过滤处理
if instr(ReturnValue,"BUSING") then
Response.Redirect("error.asp?ID=016")
'elseif instr(ReturnValue,"CLOSE") then
' Response.Redirect("error.asp?ID=017")
'elseif ReturnValue="" then
' Response.Redirect("error.asp?ID=017")
elseif ReturnValue="-1" then
Response.Redirect("error.asp?ID=011")
elseif instr(ReturnValue,"非法命令") then
Response.Redirect("error.asp?ID=019")
elseif instr(ReturnValue,"非法用户") then
Response.Redirect("error.asp?ID=020")
end if
if ReturnValue="" then ReturnValue=0
Session("ReturnValue")=ReturnValue
Set Autohost = Server.CreateObject("autohost.gethostip")
realip=Autohost.getip(HostIp)
Set Autohost = nothing
%>
<HTML><HEAD><TITLE>控制面板</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="虚拟主机、域名注册、Windows 虚拟主机、Windows 2000 虚拟主机、Windows 2003 虚拟主机、Unix 虚拟主FreeBSD 虚拟主机、电子商务虚拟主机、个人虚拟主机、专业虚拟主机、专业级虚拟主机、入门级虚拟主机、高级虚拟主机、域名、动态域名、域名申请、域名查询、网站空间、通用网址、申请域名、邮箱、信箱、邮局、电子邮箱、电子信箱、电子邮局、企业邮箱、企业信箱、国际域名、国内域名、英文域名、中文域名、企业上网、企业建站、动态主机、企业邮局、域名服务、虚拟主机服务、注册域名、顶级域名、虚拟主机租用、中文域名注册、国际域名注册、主机托管、独立主机、网站、网页、网站制作、网站建设、企业网站建设、建立网站、网页制作、网页设计、CGI、ASP、Perl、PHP、JSP、ASP.NET、MySQL、MS SQL SERVER、MS SQL SERVER 2000、ACCESS、FrontPage扩展、POP3、SMTP、WEB电子邮件、数据库、NAS、URL转发、虚拟主机控制面板、CHINANET骨干网、防火墙、数据备份、电信机房、防宕机、DNS轮巡、北京、上海、广州、深圳、成都、沈阳、南京、杭州、福州、佛山、泉州、南宁、苏州、江阴、重庆、汕头、顺德、珠海、温州、镇江、武汉、办公自动化、电子商务、OA、宽带域名、解决方案、供应链、供应链管理、分销、分销管理、分销管理软件、www、domain、webhosting、email、website、DRP、web design" name=description>
<META content=中国著名的、ICANN国际权威机构认证的顶级域名注册商,提供域名注册、虚拟主机、网站建设、增值业务、企业邮局、DRP、OA、通用网址、网站推广、企业网站应用解决方案等服务。在北京、上海、广州、深圳、成都、沈阳、南京、杭州、福州、佛山、泉州、南宁、苏州、江阴、重庆、汕头、顺德、珠海、温州、镇江、武汉等地均设有客户服务中心,全面满足中小企业用户的上网需求。咨询电话：（0523）5880920 name=keywords><LINK href="images/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY BGCOLOR=#FFFFFF leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<TABLE cellSpacing=0 cellPadding=0 width=720 align=center bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=61 background=images/Untitled-1_02.gif><IMG height=98 src="images/Untitled-1_01.gif" width=61></TD>
<TD align=right background=images/Untitled-1_02.gif><IMG height=1 src="images/spacer.gif" width=1></TD>
<TD align=right width=353 background=images/Untitled-1_02.gif><IMG height=98 src="images/Untitled-1_03.gif" width=353></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=19 background=images/Untitled-1_04.gif><IMG height=1 src="images/spacer.gif" width=1></TD>
<TD align=middle><BR>
<TABLE cellSpacing=0 cellPadding=0 width="96%" border=0>
<TBODY>
<TR>
<TD vAlign=top width="27%">
<TABLE cellSpacing=0 cellPadding=0 width=154 border=0>
<TBODY>
<TR>
<TD><IMG height=27 src="images/title_01.gif"
width=154></TD></TR>
<TR>
<TD vAlign=top align=middle background=images/table_bg.gif height=113><IMG height=8 src="images/shim.gif" width=1><BR>
<TABLE width=148 border=0>
<TBODY>
<tr>
<td width="42%" align="center" valign="top" colspan="2">主机服务器<br><font color=red><b><%=realip%></b></font></td>
</tr>
<TR>
<TD vAlign=top align=right>登陆用户:</TD>
<TD><%=FtpName%></TD></TR>
<TR>
<TD vAlign=top align=right>空间类型:</TD>
<TD><%=HostName%></TD></TR>
<TR>
<TD vAlign=top align=right>主机状态:</TD>
<TD><%=State%></TD></TR>
<TR>
<TD vAlign=top align=right>开始日期:</TD>
<TD><%=BeginDate%></TD></TR>
<TR>
<TD vAlign=top align=right>结束日期:</TD>
<TD><%if Cdate(Session("EndDate"))<Date then%><font color=red>过期</font><%else%><%=Session("EndDate")%><%end if%></TD></TR>
<TR>
<TD vAlign=top align=right>控件支持:</TD>
<TD>无</TD></TR>
<TR>
<TD vAlign=top align=right>数 据 库:</TD>
<TD>ACCESS</TD></TR>
<TR>
<TD vAlign=top align=right>脚本语言:</TD>
<TD><%=Ucase(ScriptMaps)%></TD></TR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -