<%@ Language=VBScript %> <% selectedserverid=0'默認選擇的服務器ID isagentpd=False If session("agentusername")<>"" Then Response.Redirect "/agent/admvps2.asp?username="&session("agentusername")&"&id="&Request.QueryString ("id") If session("username")="" Then If Application("hpsystem")=false And Application("canuseorder")=true and Request.ServerVariables("HTTP_FreeHostAPI")<>"7i24.com" Then Response.Redirect "order.asp?type=云服務器產品&id="&Request.QueryString ("id") ef=True ec="請您先登陸會員區。" ElseIf Request.QueryString ("id")="" Then ef=True ec="請選擇產品!" ElseIf Instr(1, Request.QueryString ("id"), "'", 1)>0 then ef=True ec="非法產品ID!" ElseIf not IsNumeric(Request.QueryString ("id")) Then ef=True ec="產品ID應該是數字!" end if if not ef then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsHost = Server.CreateObject("ADODB.Recordset") agentname=session("agentname") if session("AgnRunasUser")=True then Set dsagent = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent where username='"&agentname&"'" dsagent.Open Sql,conn,1,1 if Not dsagent.eof then Set dsagnettype = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent_pers where agenttype='"&dsagent("agenttype")&"'" dsagnettype.Open Sql,conn,1,1 if Not dsagnettype.eof Then canshowagnpric=True Else canshowagnpric=false End if end If dsagent.close end If Sql="Select * from FreeHost.FreeHost_VPSProductlist where id='"&Request.QueryString ("id")&"'" if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then Response.Write "非法字符!" Response.End end if dsHost.Open Sql,conn,1,1 if dsHost.Eof then ef=True ec="產品不存在!" Else If dsHost ("isagentpd")=True Then isagentpd=true'代理的產品 VPStype=dsHost("VPStype") '讀取月付 PAY_Month=dsHost("PAY_Month") PAY_Season=dsHost("PAY_Season") PAY_halfyear=dsHost("PAY_halfyear") PAY_Nextyear=dsHost("PAY_Nextyear") PAY_2year=dsHost("PAY_2year") PAY_3year=dsHost("PAY_3year") PAY_4year=dsHost("PAY_4year") PAY_5year=dsHost("PAY_5year") end if end If '彈性部分1 if not ef then if dshost("cancloud")=true then ef=True ec="彈性購買產品請用另一個購買界面" end if end If if not ef then if agentname<>"n" then Set agnserverid = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_VPSProductlist_AGN where id='"&dsHost ("id")&"' and agent1='"&agentname&"'" agnserverid.Open Sql,conn,1,1 dim isAgnHostSer if not agnserverid.Eof then VPStype=agnserverid("VPStype") if agnserverid ("ServerlistID")<>0 then ServerlistID=agnserverid ("ServerlistID") isAgnHostSer=true else isAgnHostSer=false end if end if end if end if if not ef then %> <%session("FreeHostCom").FreeHost_WR("html2")%>  云服務器自助開通 <%session("FreeHostCom").FreeHost_WR("html3")%>
<%if isAgnHostSer=False And isagentpd=false then%> <%end if%>
  填寫資料:  產品名:  <%=VPStype%>
   云服務器自命名:
 
 云服務器 密碼: (3至14個字母或數字)
 有效期限: "> <% usermoney=dsHost("usermoney") if agentname<>"n" then Set dsendmoney = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent_user_price where prtype='云服務器產品' and username='"&agentname&"' and id="&dsHost("id")&"" dsendmoney.Open Sql,conn,1,1 if not dsendmoney.eof then usermoney=dsendmoney("usermoney") end if dsendmoney.close end If if canshowagnpric then%>    (代理成本價格 <% Set dsagnpri = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent_price where prtype='云服務器產品' and username='"&agentname&"' and id="&dsHost("id")&"" dsagnpri.Open Sql,conn,1,1 if dsagnpri.eof then usermoney=dsHost("usermoney")*dsagnettype("pers") else usermoney=dsagnpri("usermoney") end if dsagnpri.close %> ) <%End if%> <% If canshowagnpric And isAgnHostSer then%> (當前此產品為獨立模式產品) <% usermoney=0 End if%>
 請選擇機房: <% Set dsX = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_ServerVPSlist where agent1='n' order by orderbyid desc" if isAgnHostSer then Sql="Select * from FreeHost.FreeHost_ServerVPSlist where agent1='"&agentname&"' order by orderbyid desc" dsX.Open Sql,conn,1,1 If dsX.Eof Then%> 默認機房 <%else%> <%end if%>
 


<%session("FreeHostCom").FreeHost_WR("html4")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>北京pk开奖历史记录 文具店怎么样赚钱 下载99赚钱APP 今天上证指数 看广告新闻赚钱的软件哪个好 我的新生活1.8赚钱 光卖粉面能赚钱吗 唱歌赚钱好的软件 德国股票指数 国际股票涨跌颜色 巴菲特一千种赚钱方法 高中生炒股 客机如何赚钱 人力资源外包公司怎么赚钱 学啥子赚钱 2018年如何利用视频赚钱 歌房可以赚钱吗