<%@ Language=VBScript %> <% If session("username")="" Then ef=True ec="授权非法,有可能是超时造成的。" If session("HOSTAUID")<>"" Then ec="主机面板中不能操作用户区的内容,请您先登陆用户区。" If session("EmailAUID")<>"" Then ec="邮箱面板中不能操作用户区的内容,请您先登陆用户区。" If session("SQLAUID")<>"" Then ec="数据库面板中不能操作用户区的内容,请您先登陆用户区。" If session("VPSAUID")<>"" Then ec="VPS面板中不能操作用户区的内容,请您先登陆用户区。" ElseIf Request("vpsname")<>"" and RegExpTest("[^A-Za-z0-9]",Request("vpsname")) Then ef=True ec="VPS户名中有非法字符!" ElseIf Request("starttime")<>"" And Not IsDate(Request("starttime")) Then ef=True ec="时间格式无效startime" ElseIf Request("endtime")<>"" And Not IsDate(Request("endtime")) Then ef=True ec="时间格式无效endtime" end If If Request.QueryString("ip")<>"" and not IsNumeric(Replace(Request.QueryString("ip"),".","")) Then ef=True ec="IP不对!" End if if not ef Then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") If Request.QueryString("ip")<>"" Then Set dsph = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_VPS_IP where ip='"&Request.QueryString ("ip")&"' and vpsid>0" dsph.Open Sql,conn,1,1 if dsph.Eof Then ef=True ec="IP不存在!" Set dsph = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_VPS where AgnUpIP like '%"&Request.QueryString ("ip")&"%'" dsph.Open Sql,conn,1,1 if dsph.Eof Then ef=True ec="IP不存在!" Else ef=False vpsid=dsph("id") dsph.close 'Response.redirect "handvps1agn.asp?vpsname="&dsph("vpsname") End if Else vpsid=dsph("vpsid") dsph.close End If End If End If if not ef then %> 云服务器管理 <% Set dsphVPS = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_VPS where username='"&session("username")&"' order by endtime desc" if Request("vpsname")<>"" then Sql="Select * from FreeHost.FreeHost_Product_VPS where username='"&session("username")&"' and vpsname='"&Request("vpsname")&"'" if Request.QueryString ("ip") <>"" then Sql="Select * from FreeHost.FreeHost_Product_VPS where username='"&session("username")&"' and id='"&vpsid&"'" if Request.QueryString ("starttime") <>"" then Sql="Select * from FreeHost.FreeHost_Product_VPS where username='"&session("username")&"' and starttime>'"&Request.QUERYSTRING ("starttime")&"' order by id desc" if Request.QueryString ("endtime") <>"" then Sql="Select * from FreeHost.FreeHost_Product_VPS where username='"&session("username")&"' and endtime<'"&Request.QUERYSTRING ("endtime")&"' order by endtime desc" if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then Response.Write "非法字符!" Response.End end if dsphVPS.PageSize = 25 dsphVPS.Open Sql,conn,1,1 if dsphVPS.Eof then%> 没有开通的云服务器产品. <%else%> <% if Request.ServerVariables("QUERY_STRING")<>"" then ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn") else ask=Split("freehost=1", "") ask(0)="freehost=lsoft" end if pn=1 if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn") If dsphVPS.RecordCount <> 0 Then dsphVPS.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dsphVPS.PageCount<=10 then endini=dsphVPS.PageCount else endini=10 end if end if %> <%if clng(pn)<=10 then%>最新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>[<%=i%>]<%end if%> <%next%> <%else%> 最新[1]--[10]  现在是第[<%=pn%>]页  共<%=dsphVPS.PageCount%>页 <%end if%><%If Clng(pn)>1 Then%>上一页<%End If%>|<%If Clng(pn)下一页 <%End If%> <% For N=1 To dsphVPS.PageSize If dsphVPS.RecordCount=0 Then Exit For %> <% VPStype=dsphVPS("VPStype") Set ori_VPS_name = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_VPSProductlist where VPStype='"&dsphVPS("VPStype")&"'" ori_VPS_name.Open Sql,conn,1,1 if not ori_VPS_name.eof then Set newname_VPS = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_VPSProductlist_AGN where agent1='"&session("agentname")&"' and id='"&ori_VPS_name("id")&"'" newname_VPS.Open Sql,conn,1,1 if not newname_VPS.eof then VPStype=newname_VPS("VPStype") end if end if %> <%if ori_VPS_name("cancloud")=true then%> <%end if%> <% If clng(pn)=dsphVPS.PageCount Then I = dsphVPS.RecordCount - (dsphVPS.PageCount-1) * dsphVPS.PageSize If N=I Then Exit For End If dsphVPS.movenext Next%>
产品类型 云服务器名 IP 地址 开通日期 到期日期 操作 状态 操作
<%=VPStype%> <%=dsphVPS("vpsname")%> <% if dsphVPS("isagentpd")=true then%> <%if not isnull(dsphVPS("AgnUpIP")) then%><%=replace(dsphVPS("AgnUpIP"),"|","
")%><%end if%> <% else Set dsX = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_VPS_IP where VPSID="&dsphVPS("id") dsX.Open Sql,conn,1,1 while not dsX.eof %> <%=dsX("IP")%>
<% if dsX("portstart")>0 then Set dsserver = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_ServerVPSlist where id='"&dsphVPS ("ServerlistID")&"'" dsserver.Open Sql,conn,1,1 isONEip=dsserver("isONEip") if isONEip=true then Set dsPORTserver = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_ServerPORTlist where id='"&dsserver("useportserver")&"'" dsPORTserver.Open Sql,conn,1,1%> <%=dsPORTserver("IP")%>(公网)
<%end if end if dsX.movenext wend end if %> ">(管理>>)<% if not isnull(dsphVPS("ADSLName")) then %>拨号资源(手工录入):<%=dsphVPS("ADSLName")%>/<%=dsphVPS("ADSLpass")%>
<%else Set dsADSL = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_VPS_ADSL where VPSID="&dsphVPS("id") dsADSL.Open Sql,conn,1,1 while not dsADSL.eof%> 拨号资源:<%=dsADSL("ADSLName")%>/<%=dsADSL("ADSLpass")%>
<% dsADSL.movenext wend end if%>
<%=formatdatetime(dsphVPS("starttime"),1)%> <%if Application("VPStestHour")>0 then%><%=dsphVPS("endtime")%><%else%><%=formatdatetime(dsphVPS("endtime"),1)%><%end if%> vpsadmrepay1.asp<%else%>vpsadm2.asp<%end if%>?id=<%=dsphVPS("id")%>&go=c">延期 <%if dsphVPS("endtime")>NOW then%> <%if dsphVPS("istest")="y" then%> 试用<%else%> <%=dsphVPS("status")%> <%end if%> <%else%> 过期 <%if dsphVPS("status")="暂停" then%>
暂停 <%end if%> <%end if%>
&go=a" target="_blank">管理
  &go=a">弹性云:内存<%=dsphVPS("MaXRam")%>M CPU个数:<%=dsphVPS("cpunum")%> 硬盘:<%=dsphVPS("maxspace")%>G 月流量上限:<%if dsphVPS("CDNMaxMb")=0 then%>不限流量<%else%><%=dsphVPS("CDNMaxMb")%>MB<%end if%> 带宽上限:<%if dsphVPS("MaxMbps8")=0 then%>不限<%else%><%=dsphVPS("MaxMbps8")%>Mbps<%end if%> <%if not isnull(dsphVPS("corewhatuser")) then%>
备注:<%=dsphVPS("corewhatuser")%>&go=e">>>><%else%>  设置备注&go=e">>>> <%end if%>
<%dsphVPS.close set dsphVPS=nothing end if %>
查找云服务器:

 云服务器名:  或IP: <%if Request.QueryString ("op") ="" then%> 今天新开通 | ">一周新开通 | ">一周到期 | ">30天到期 | <%end if%>

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