function DeleteMe(i){
if (confirm("确定要删除该主机吗?\n\n注：假如此站点有BBS或是大空间\n请先手动删除用户目录，防止ASP运行超时\n切记")==1){
window.location="HostDel.asp?WebID="+i
}
}
//-->
输入用户名：
输入FTP用户名：
输入到期时间：
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select A.WebID,A.HostID,A.HostName,A.HostSize,A.Price,A.Years,A.FtpName,A.WebState,A.ScriptMaps,A.BeginDate,A.EndDate,B.ID,B.UserID,B.Name from [Host_OK] A, [Agent_User] B where A.UserID=B.ID and B.UserID like '%"&request("usrid")&"%' and A.FtpName like '%"&request("useridf")&"%' and A.EndDate like '%"&request("EndDate")&"%' ORDER BY HostID DESC"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write ""
response.end()
else
RowCount=PageNum
Tmp=IsNumeric(Request("PageNo"))
if (Tmp=False) then
PageNo=1
else
PageNo=Request("PageNo")
end if
TSum=INT(rs.RECORDCOUNT/RowCount*-1)*-1
if PageNo="" or PageNo=0 then
PageNo=1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
if CINT(PageNo)>1 then
if CINT(PageNo)>CINT(TSum) then
PageNo=1
end if
end if
if PageNo PageNo=1
End if
RS.PageSize=RowCount
RS.AbsolutePage=PageNo
RECORDCOUNT=rs.RECORDCOUNT
%>
网站运行中 网站暂停中 网站停止中 网站试用中 网站已过期
序号
商品名称
FTP
空间大小
空间类型
交易价格
购买年限
购买时间
到期时间
状态
所属会员
编辑
删除
DO WHILE NOT rs.EOF AND RowCount>0
HostID=rs("HostID")
ScriptMaps=ucase(rs("ScriptMaps"))
if isnull(rs("ScriptMaps")) or rs("ScriptMaps")="" then ScriptMaps="全能型"
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select WebIP,WebDefaultDomain from [Host_List] where HostID=" & HostID
rs1.open sql1,conn,1,1
webip=rs1("WebIP")
DefDomain=rs1("WebDefaultDomain")
%>
M
元/年
年
if rs("WebState")=0 then
Response.Write ("")
elseif rs("WebState")=2 then
Response.Write ("")
elseif rs("WebState")=4 then
Response.Write ("")
elseif rs("WebState")=6 then
Response.Write ("")
end if
if Cdate(rs("EndDate")) %>
()
RowCount = RowCount - 1
rs.MoveNext
i=i+1
Loop
rs1.close
set rs1 = nothing
rs.close
set rs = nothing
end if%>
共有信息 条 当前第 / 页
已开通主机IP管理
3 then%>
第页
if TSum>1 then
if PageNo=1 then
NextPage=PageNo+1
response.write"首页 上一页 下一页 尾页"
end if
if PageNo=TSum then
PrwePage=PageNo-1
response.write "首页 上一页 下一页 尾页"
end if
if PageNo>1 and TSum>PageNo then
NextPage=PageNo+1
PrwePage=PageNo-1
response.write "首页 上一页 下一页 尾页"
end if
else
response.write "首页 上一页 下一页 尾页"
end if
End Function%>
