<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
server.ScriptTimeout =240
If session("HOSTAUID")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。此功能只有代理可以操作。"
elseIf session("HOSTAUID")<>Clng(Request.Form ("id")) Then
	ef=True
	ec="授权非法，有可能是超时造成的。请返回上一步重新操作。"&Request.Form ("id")&"-"&session("HOSTAUID")
ElseIf not IsNumeric(session("HOSTAUID"))  Then
	ef=True
	ec="产品ID应该是数字！"
ElseIf Request.Form ("newusername")<>"" and RegExpTest("[^A-Za-z0-9]",Request.Form ("newusername")) Then
	ef=True
	ec="转移用户名中有非法字符！"
ElseIf Request.Form ("newusername")="" And Request.Form ("Submit")="马上转移" Then
	ef=True
	ec="请输入转移用户名！"
end if

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsph = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Host where id='"&session("HOSTAUID")&"'"
			if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
	dsph.Open Sql,conn,1,3
if dsph.Eof then
	ef=True
	ec="不存在的虚拟主机ID！"
end if
end If

if not ef then
if dsph("agent1")<>session("agentusername") then
	ef=True
	ec="此虚拟主机ID并不是当前代理名下所有！"
end If
end If

if not ef then
If Request.Form ("Submit")="马上转移" then
	Set dsNew = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_USER where  (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and username='"&Request.Form ("newusername")&"'"
		if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
		dsNew.Open Sql,conn,1,1
if dsNew.eof then
	ef=True
	ec="要转移的用户不存在或不是您名下的用户!"
end if
end if
end if

if not ef then
	Set dsHostpdlist = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_HostProductlist where Hosttype='"&dsph("Hosttype")&"'"
	if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
	dsHostpdlist.Open Sql,conn,1,1
if dsHostpdlist.Eof then
	ef=True
	ec="产品不存在！"
end if
end If

if not ef then
	Set dsserver = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Serverlist where id='"&dsph ("ServerlistID")&"'"
	dsserver.Open Sql,conn,1,1
if dsserver.Eof then
	ef=True
	ec="服务器不存在！"
Else
	ostype=dsserver("ostype")'linux
dim isAgnHostSer
if dsserver("agent1")=dsph("agent1") then
isAgnHostSer=true
Else
isAgnHostSer=false
end if
end if
end If

if not ef Then
if Request.Form ("Submit")="暂停" Or Request.Form ("Submit")="停止" Or Request.Form ("Submit")="恢复" Then
if dsph("status")="暂停" or dsph("status")="停止" then
if dsph("pausebyagn")="a" then
	ef=True
	ec="这个虚拟主机是由管理员暂停或停止的，只有管理员才有权恢复或暂停"
end If
end If
end If
end If

'if not ef Then
'if Not isAgnHostSer then
'if Request.Form ("Submit")="删除" Then
'if dsph("istest")<>"y" then
'	ef=True
'	ec="只有试用期的虚拟主机才有权删除"
'end If
'end If
'end If
'end If

if not ef then
  Set dsagent = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_AGENT where username='"&dsph("agent1")&"'"
		dsagent.Open Sql,conn,1,1
If dsagent.Eof Then
	ef=True
	ec="代理不存在!"
end if
end if

if not ef Then

username=dsph("Ftpname")
URL=dsserver("site")
FreeHostsharekey=dsserver("FreeHostsharekey")
ostype=dsserver("ostype")'linux
if Request.Form ("Submit")="暂停" Then
if len(dsagent(""&Request.Form ("pauseweb")&""))>3 then
tourl=dsagent(""&Request.Form ("pauseweb")&"")
end If
End if

%>
<!--#include virtual="/inc-freehost-function/template-hostadm-top.asp"-->
　代理 <%=session("agentusername")%> 管理名下用户 <%=dsph("username")%> 的虚拟主机 FTP用户名：<%=dsph("ftpname")%>


<br>
<br>
<%
if Request.Form ("Submit")="马上转移" then%>
用户 <%=dsph("username")%> 的虚拟主机成功转移：<br><br>
<%
'变更邮箱
Set dsphemail = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_Email where byhost='"&dsph ("id")&"'"
	dsphemail.Open Sql,conn,1,3
if not dsphemail.Eof then
dsphemail("username")=Request.Form ("newusername")
response.write "赠送的邮箱产品已转移到用户："&Request.Form ("newusername")&" 名下。<br>"
'dsphemail("agent1")=dsNEW("agent1")
dsphemail.update
dsphemail.close
end if
'变更SQL
Set dsphemail = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_Sql where byhost='"&dsph ("id")&"'"
	dsphemail.Open Sql,conn,1,3
while not dsphemail.Eof
dsphemail("username")=Request.Form ("newusername")
response.write "赠送的SQL产品已转移到用户："&Request.Form ("newusername")&" 名下。<br>"
'dsphemail("agent1")=dsNEW("agent1")
dsphemail.update
dsphemail.movenext
Wend
dsphemail.close
'变更域名
Set dsphemail = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_Domain where byid='"&dsph ("id")&"'"
	dsphemail.Open Sql,conn,1,3
if not dsphemail.Eof then
dsphemail("username")=Request.Form ("newusername")
response.write "赠送的域名产品已转移到用户："&Request.Form ("newusername")&" 名下。<br>"
'dsphemail("agent1")=dsNEW("agent1")
dsphemail.update
dsphemail.close
end if
'变更域名PRE
Set dsphemail = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Preopen_Product where byid='"&dsph ("id")&"'"
	dsphemail.Open Sql,conn,1,3
if not dsphemail.Eof then
dsphemail("username")=Request.Form ("newusername")
response.write "赠送的域名产品(未开通)已转移到用户："&Request.Form ("newusername")&" 名下。<br>"
dsphemail("agent1")=dsNEW("agent1")
dsphemail.update
dsphemail.close
end if
dsph("username")=Request.Form ("newusername")
response.write "产品已转移到用户："&Request.Form ("newusername")&" 名下。<br>"
'if Request.Form ("changeagn")="y" then
'dsph("agent1")=dsNEW("agent1")
'end if
dsph.update
dsph.close
'子目录
	Set dsph = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Host where allowsubbyid='"&session("HOSTAUID")&"'"
	dsph.Open Sql,conn,1,3
while not dsph.Eof
dsph("username")=Request.Form ("newusername")
response.write "子目录虚拟主机("&dsph("id")&")已转移到用户："&Request.Form ("newusername")&" 名下。<br>"
'if Request.Form ("changeagn")="y" then
dsph("agent1")=dsNEW("agent1")
'if dsph("agent1")<>"n" then
'response.write "产品已转移到代理："&dsph("agent1")&" 名下。<br>"
'end if
dsph.update
dsph.movenext
wend
dsph.close
end if


if Request.Form ("Submit")="暂停" Then
'tourl=dsserver(""&Request.Form ("pauseweb")&"")
pausereason=0
If Request.Form ("pauseweb")="pauseweb" Then pausereason=1
If Request.Form ("pauseweb")="pauseweb2" Then pausereason=2
If Request.Form ("pauseweb")="pauseweb3" Then pausereason=3
If Request.Form ("pauseweb")="pauseweb4" Then pausereason=4
op=1
if dsph("Hosttype")="子目录绑定" then
Response.Write PauseSiteSub(URL,FreeHostsharekey,IISID,tourl,op)
else
Response.Write PauseSite(URL,FreeHostsharekey,username,tourl,op)
end if
dsph("status")="暂停"
dsph("pausebyagn")="g"
dsph("pausereason")=pausereason
dsph.update
'处理子目录绑定
Set dsphsub = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Host where allowsubbyid='"&dsph("id")&"'"
	dsphsub.Open Sql,conn,1,3
while not dsphsub.eof
IISID=dsphsub("IISID")
Response.Write PauseSiteSub(URL,FreeHostsharekey,IISID,tourl,op)
dsphsub("status")="暂停"
dsphsub("pausebyagn")="g"
dsphsub("pausereason")=pausereason
dsphsub.update
dsphsub.movenext
wend
dsphsub.close
end If


if Request.Form ("Submit")="停止" then
op=1
if dsph("Hosttype")="子目录绑定" then
Response.Write OPSiteSub(URL,FreeHostsharekey,IISID,op)
else
Response.Write OPSite(URL,FreeHostsharekey,username,op)
end if
dsph("status")="停止"
dsph("pausebyagn")="g"
dsph.update
'处理子目录绑定
Set dsphsub = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Host where allowsubbyid='"&dsph("id")&"'"
	dsphsub.Open Sql,conn,1,3
while not dsphsub.eof
IISID=dsphsub("IISID")
Response.Write OPSiteSub(URL,FreeHostsharekey,IISID,op)
dsphsub("status")="停止"
dsphsub("pausebyagn")="g"
dsphsub.update
dsphsub.movenext
wend
dsphsub.close
end If

if Request.Form ("Submit")="恢复" then
op=0
if dsph("Hosttype")="子目录绑定" then
Response.Write PauseSiteSub(URL,FreeHostsharekey,IISID,tourl,op)
Response.Write OPSiteSub(URL,FreeHostsharekey,IISID,op)
dsph("pausereason")=0
else
if Not ostype="linux" Then Response.Write PauseSite(URL,FreeHostsharekey,username,tourl,op)
if Not ostype="linux" Then Response.Write OPSite(URL,FreeHostsharekey,username,op)
if Not ostype="linux" Then Response.Write FTPOP(URL,FreeHostsharekey,username,0)
end if
dsph("status")="正常"
dsph("pausebyagn")="n"
dsph("pausereason")=0
dsph.update
'处理子目录绑定
Set dsphsub = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Host where allowsubbyid='"&dsph("id")&"'"
	dsphsub.Open Sql,conn,1,3
while not dsphsub.eof
IISID=dsphsub("IISID")
Response.Write PauseSiteSub(URL,FreeHostsharekey,IISID,tourl,op)
Response.Write OPSiteSub(URL,FreeHostsharekey,IISID,op)
dsphsub("status")="正常"
dsphsub("pausebyagn")="n"
dsphsub("pausereason")=0
dsphsub.update
dsphsub.movenext
wend
dsphsub.close
dsph.update
dsph.close
end if

if Request.Form ("Submit")="删除" Then

'if Application("hostoneip")=true Then
Sql="update FreeHost.FreeHost_Product_Host_IP set HOSTID=0 where hostid='"&dsph("id")&"'"
conn.Execute Sql
'End if

Set dsphemail = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Email where byhost='"&dsph ("id")&"'"
	dsphemail.Open Sql,conn,1,1
if not dsphemail.Eof then
%>
<a href="/agent/emailadm2.asp?id=<%=dsphemail("id")%>&go=a" target="_blank">管理赠送的邮箱</a>
<%dsphemail.close
end if

Set dsphsql = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Sql where byhost='"&dsph ("id")&"'"
	dsphsql.Open Sql,conn,1,1
if not dsphsql.Eof then
%>
<br>
<a href="/agent/sqladm2.asp?id=<%=dsphsql("id")%>&go=a" target="_blank">管理赠送的数据库</a>
<%
dsphsql.close
end if
Set dsdom = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_Product_Domain where byid='"&dsph ("id")&"'"
dsdom.Open Sql,conn,1,1
if not dsdom.Eof then
%>
<br>
<a href="/agent/listmydomain.asp?id=<%=dsdom("id")%>" target="_blank">管理赠送的域名</a>
<%
dsdom.close
end if

Set dspre = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Preopen_Product where byid='"&dsph ("id")&"'"
	dspre.Open Sql,conn,1,3
if not dspre.Eof then%>
<br>
赠送的未开通的域名已删除
<%
dspre.delete
dspre.movenext
end if
dspre.close
'Response.end
'删除ICPDB
conn.Execute "delete from FreeHost.FreeHost_ICPDB where ftpname='"&dsph("ftpname")&"'"
ret=DelUser(URL,FreeHostsharekey,username)
'log
FreeHost_oplog session("agentusername"),"信息","代理删除"&username&"虚拟主机: "&ret
Response.Write ret&"<br>"

'处理子目录绑定
Set dsphsub = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Host where allowsubbyid='"&dsph("id")&"'"
	dsphsub.Open Sql,conn,1,3
while not dsphsub.eof
IISID=dsphsub("IISID")
ret=DelUserSub(URL,FreeHostsharekey,IISID)
Response.Write ret
FreeHost_oplog session("agentusername"),"信息","代理删除"&username&"子目录虚拟主机: "&ret
dsphsub.delete
dsphsub.update
dsphsub.movenext
wend
dsphsub.close

dsph.delete
dsph.close
End If

%>

<%if isAgnHostSer then%><b>独立模式专有内容：</b><br><br>
<%

'tourl=dsserver(""&Request.Form ("pauseweb")&"")
password=Request.Form ("password")

if ostype="linux" then Response.Redirect "e.asp?e=DA面板的Linux系统不能使用此功能。"

if Request.Form ("Submit")="回收池" then
returnstr = ShowUser2(URL,FreeHostsharekey,username)
if (instr(1,returnstr,"用户不存在！")>0) then 
Response.Write returnstr
Response.End 
end if 
if Not instr(returnstr,"用户名：")>1 then 
Response.Write "这台受控服务器自检没有通过，请在站点管理，虚拟主机中自检来分析原因。"
Response.End 
end if 
PoolName=GETvalue(returnstr,",;应用程序池名：",";默认首页：")
PoolName=trim(PoolName)
'if instr(PoolName,"1_")>0 then
Response.Write POOLOP(URL,FreeHostsharekey,poolname)
'else
'Response.Write "很抱歉，您所在的池不允许执行此项操作。"
'end if
end If








if Request.Form ("Submit")="下一步" Then
if not ef then
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_USER where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and username='"&dsph ("username")&"'"
		ds.Open Sql,conn,1,1
if ds.eof then
	ef=True
	ec="此用户不是您名下的用户!"&dsph ("username")
end if
end If

if not ef then
olduser_money=ds("usermoney")
oldtime=dsph ("endtime")
'数据库操作：
moneych=0

If Request.Form ("endtime")<>"" Then
dsph ("endtime")=Request.Form ("endtime")
end if
'response.write Request.Form ("endtime")

If Request.Form ("chmoney")<>"" Then
'变更金额
if Request.Form ("usermoney")<>"" then'手工指定变更金额
if Request.Form ("usermoney")>0 then'大于0才能操作
'ds("usermoney")=ds("usermoney")-Request.Form ("usermoney")
moneych=-Request.Form ("usermoney")
End if
end if
end if

newuser_money=ds("usermoney")
temptime=dsph ("endtime")
'ds.update

if Request.Form ("istestch1")="y" or Request.Form ("istestch2")="y" then
dsph("status")="正常"
dsph("istest")="n"
end if

End If

'调用开通function
hostname=dsph("hostname")
 
hostnamestr=replace(hostname, ":80:","")
hostname_arry=Split(hostnamestr, ",")
for i=0 to ubound(hostname_arry)
hostname_arry(i)=ComX.idntoac_7i24_com(cstr(hostname_arry(i)))
next
hostname=""
for i=0 to ubound(hostname_arry)
hostname=hostname&":80:"&replace(replace(hostname_arry(i), " ",""),":80:","")&","
next
if right(hostname,1)="," then hostname=left(hostname,len(hostname)-1)

dsph.update

URL=dsserver("site")
FreeHostsharekey=dsserver("FreeHostsharekey")
username=dsph ("Ftpname")
password=dsph("Ftppassword")
comment=dsph ("username")
'homedir=Request.Form("homedir")
'spacelimit=dshost ("spacelimt")
starttime=dsph("starttime")
endtime=dsph("endtime")
type1=dsph("Hosttype")
email=ds("email")
'host=dsph("hostname")
'hostcomment_arry=Split(dsph("hostname"), ",")
'hostcomment=Replace(hostcomment_arry(0),":80:","")&"_"&username&"_"&dsph ("username")
'MaxConnections=dshost("MaxConnections")
'EnumAppsInPool=dshost ("AppPoolnum")

DefaultDoc=Request.Form ("DefaultDoc")
if trim(Request.Form ("ScriptMaps"))<>"" then
ScriptMaps=trim(Request.Form ("ScriptMaps"))&"|"&dsserver("infosafe")
ScriptMaps=trim(replace(ScriptMaps,"||","|"))
end if

AccessFlags=Request.Form ("AccessFlags")
LogFileDirectory=Request.Form ("LogFileDirectory")
HttpErrors=Request.Form ("HttpErrors")
MaxBandwidth=Request.Form ("MaxBandwidth")


If Request.Form ("Submit")<>"" Then
if Request.Form ("spacelimit")<>"" then spacelimit=Request.Form  ("spacelimit")
if Request.Form ("MaxConnections")<>"" then MaxConnections=Request.Form  ("MaxConnections")
if Request.Form ("AppPoolnum")<>"" then EnumAppsInPool=Request.Form  ("AppPoolnum")
end if

'hostname=host
 
hostnamestr=replace(hostname, ":80:","")
hostname_arry=Split(hostnamestr, ",")
for i=0 to ubound(hostname_arry)
hostname_arry(i)=ComX.idntoac_7i24_com(cstr(hostname_arry(i)))
next
hostname=""
for i=0 to ubound(hostname_arry)
hostname=hostname&":80:"&replace(replace(hostname_arry(i), " ",""),":80:","")&","
next
if right(hostname,1)="," then hostname=left(hostname,len(hostname)-1)
dsph("hostname")=hostname
dsph.update
host=hostname

if Request.Form ("AppPoolnum")<>"" then dsph("AppPoolnum")=Request.Form ("AppPoolnum")'2011

If Not IsNull(dsph("CurPoolname")) Then
dsph("CurPoolname")=Null
dsph.update
If EnumAppsInPool="" Then EnumAppsInPool=dshost("AppPoolnum")
'response.write "新的受控..........."
'新的受控
CurPoolname=dsph("AppPoolnum")&"_FreeHost_1"
Curpoolid=1
haneemptypool=False
	Set dsPooldist = Server.CreateObject("ADODB.Recordset")	
Sql="Select distinct CurPoolname from FreeHost.FreeHost_Product_Host where serverlistid='"&dsph("ServerlistID")&"' and hosttype<>'子目录绑定' and AppPoolnum='"&EnumAppsInPool&"' and CurPoolname is not null and CurPoolname like '"&EnumAppsInPool&"_F%' order by CurPoolname Asc"
	dsPooldist.Open Sql,conn,1,1
'	response.write sql
If dsPooldist.Eof Then haneemptypool=true'一个这样的池也没有
Do Until dsPooldist.Eof
CurPoolname=dsPooldist("CurPoolname")
If CInt(Replace(CurPoolname,dsph("AppPoolnum")&"_FreeHost_",""))>Curpoolid Then Curpoolid=CInt(Replace(CurPoolname,dsph("AppPoolnum")&"_FreeHost_",""))
'response.write "<br>"&CurPoolname&"<br>"
Set dsCurPcount = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_Host where serverlistid='"&dsph("ServerlistID")&"' and hosttype<>'子目录绑定' and CurPoolname='"&CurPoolname&"'"
	dsCurPcount.Open Sql,conn,1,1
'	response.write dsCurPcount(0)&"<br>"
	If dsCurPcount(0)<CInt(EnumAppsInPool) Then'池没装完
	If dsCurPcount(0)>0 Then CurPoolname=dsPooldist("CurPoolname")'池名不变
	haneemptypool=true
	Exit do
	End if
	dsCurPcount.close
dsPooldist.movenext
loop
dsPooldist.close
if haneemptypool=False Then CurPoolname=EnumAppsInPool&"_FreeHost_"&CStr(Curpoolid+1)
dsph("CurPoolname")=CurPoolname
dsph.update
End If




If Not IsNull(dsph("CurPoolname")) Then
outpoolname=dsph("CurPoolname")
op=1
Response.Write "新受控"&ModifyUser3(URL,FreeHostsharekey,username,comment,homedir,spacelimit,starttime,endtime,type1,type2,type3,email,host,hostcomment,MaxConnections,EnumAppsInPool,DefaultDoc,ScriptMaps,AccessFlags,LogFileDirectory,HttpErrors,MaxBandwidth,outpoolname,op)
else
Response.Write ModifyUser2(URL,FreeHostsharekey,username,comment,homedir,spacelimit,starttime,endtime,type1,type2,type3,email,host,hostcomment,MaxConnections,EnumAppsInPool,DefaultDoc,ScriptMaps,AccessFlags,LogFileDirectory,HttpErrors,MaxBandwidth)

End if



%>
<br>

<br>
<br>
<table width="75%"  border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FF0000">
  <tr align="center" bgcolor="#CCCCCC">
    <td height="39" colspan="4"><font color="#000000">　　　<font color="#990000">虚拟主机修改成功，以下是相关的资料：</font></font></td>
  </tr>
  <tr bordercolor="#000000" bgcolor="#EEEEEE">
    <td width="53%" height="30"><font color="#000000"> 　　　 用户的原金额：</font></td>
    <td width="47%" colspan="3"><font color="#000000"><%=olduser_money%>元</font></td>
  </tr>
  <tr bordercolor="#000000" bgcolor="#EEEEEE">
    <td height="41"><font color="#000000">　　　 用户的金额变化：</font></td>
    <td colspan="3"><font color=red><%=moneych%></font><font color=#FF0000> 元</font></td>
  </tr>
  <tr bordercolor="#000000" bgcolor="#EEEEEE">
    <td height="39"><font color="#000000">　　　 用户的新金额：</font></td>
    <td colspan="3"><font color="#000000"><%=newuser_money%> 元</font></td>
  </tr> 
  <tr bordercolor="#000000">
    <td height="37" bgcolor="#eeeeee"><font color="#000000"> 　　　 原来的到期时间是:</font></td>
    <td colspan="3" bgcolor="#eeeeee"><font color="#000000"><%=oldtime%></font></td>
  </tr>
  <tr bordercolor="#000000">
    <td height="37" bgcolor="#eeeeee"><font color="#000000"> 　　　 现在的到期时间是:</font></td>
    <td colspan="3" bgcolor="#eeeeee"><%=temptime%></td>
  </tr>
  <tr bordercolor="#000000">
    <td height="37" bgcolor="#eeeeee"><font color="#000000"> 　　　 目前此虚拟主机状态是：</font></td>
    <td colspan="3" bgcolor="#eeeeee"><%=dsph("status")%></td>
  </tr>
</table>
<%end If'是下一步


if ef then
Response.Redirect "e.asp?e="&ec
end if
%>

<%end if%>
<br>
<br>
　<a href="selfhostmodify.asp?id=<%=session("HOSTAUID")%>"><font color="#000000">[返回上一页]</font></a>
<!--#include virtual="/inc-freehost-function/template-hostadm-end.asp"-->
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
