<%@ Language=VBScript %>
<%
If Request.QueryString ("id")="" Then
	ef=True
	ec="请选择产品！"
ElseIf not IsNumeric(Request.QueryString ("id"))  Then
	ef=True
	ec="产品ID应该是数字！"
elseIf Request.QueryString ("type")<>"虚拟主机" And Request.QueryString ("type")<>"IDC产品" and Request.QueryString ("type")<>"数据库产品" and Request.QueryString ("type")<>"邮箱产品" and Request.QueryString ("type")<>"域名" and Request.QueryString ("type")<>"其他产品" and Request.QueryString ("type")<>"云服务器产品"   and Request.QueryString ("type")<>"CDN产品"  Then
	ef=True
	ec="产品类型不对！-"&Request.QueryString ("type")
end if
if not ef then

If Request.QueryString ("type")="虚拟主机" then Tablename="Host"
If Request.QueryString ("type")="数据库产品" then Tablename="SQL"
If Request.QueryString ("type")="邮箱产品" then Tablename="Email"
If Request.QueryString ("type")="其他产品" then Tablename="Other"
If Request.QueryString ("type")="IDC产品" then Tablename="IDC"
If Request.QueryString ("type")="云服务器产品" then Tablename="VPS"
If Request.QueryString ("type")="CDN产品" then Tablename="CDN"


Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsHostlist = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_"&Tablename&"Productlist where canbyenduser='y' and id='"&Request.QueryString ("id")&"'"
if session("agentname")<>"n" then Sql="Select * from FreeHost.FreeHost_"&Tablename&"Productlist where canbyagnenduser='y'  and id='"&Request.QueryString ("id")&"'"
		dsHostlist.Open Sql,conn,1,1
if dsHostlist.Eof then
	ef=True
	ec="产品不存在！"
else
'读取月付
PAY_Month=dsHostlist("PAY_Month")
PAY_Season=dsHostlist("PAY_Season")
PAY_halfyear=dsHostlist("PAY_halfyear")
PAY_Nextyear=dsHostlist("PAY_Nextyear")
PAY_2year=dsHostlist("PAY_2year")
PAY_3year=dsHostlist("PAY_3year")
PAY_4year=dsHostlist("PAY_4year")
PAY_5year=dsHostlist("PAY_5year")	
end if
end if



if not ef then
usermoney=dsHostlist("usermoney")
if agentname<>"n" then 
	Set dsendmoney = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Agent_user_price where prtype='"&Request.QueryString ("type")&"' and username='"&session("agentname")&"' and id="&dsHostlist("id")&""
		dsendmoney.Open Sql,conn,1,1
if not dsendmoney.eof then
usermoney=dsendmoney("usermoney")
end if
dsendmoney.close
end if

	info=dsHostlist("info")
	VPStype=dsHostlist(Tablename&"type")
if agentname<>"n" then 
	Set newname_host = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_"&Tablename&"Productlist_AGN  where agent1='"&session("agentname")&"' and id='"&dsHostlist("id")&"'"
		newname_host.Open Sql,conn,1,1
if not newname_host.eof then
info=newname_host("info")
VPStype=newname_host(Tablename&"type")
newname_host.close
end if
end if

end if




if not ef then
if session("agentname")<>"n" then
	Set agnserverid = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_"&Tablename&"Productlist_AGN where id='"&dsHostlist("id")&"' and agent1='"&session("agentname")&"'"
	agnserverid.Open Sql,conn,1,1
dim isAgnHostSer
if not agnserverid.Eof then
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
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html12")%>
　购买产品
<%=htmlwrite("html13")%>
<style type="text/css">
<!--
.font-12 {
	FONT-SIZE: 12px; COLOR: #666666; LINE-HEIGHT: 25px; TEXT-DECORATION: none
}
.font_1 {
	FONT-SIZE: 12px; COLOR: #ff6600; TEXT-DECORATION: none
}
.font_2 {
	FONT-SIZE: 12px; COLOR: #006600; TEXT-DECORATION: none
}
-->
</style>
<br>
<table width="100%"  border="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td height="75" align="center" bgcolor="#FFFFFF"><a href="/user/">您尚未登陆用户服务区，如果您已经是注册用户，请您先登陆</a>
  </tr>
</table>
<br><a name="A"></a>
<form name="form1" method="post" action="order-sub.asp">
<table width="100%"  border="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="#EFEFEF">
    <td height="37" colspan="2" align="center">    如果您并不是注册用户，您可以直接填写下面的订单信息，我们的客服人员会迅速联系您：    
  </tr>
  <tr bgcolor="#FFFFFF">
    <td width="21%" height="25" align="center" bgcolor="#F7F7F7"><font color="#666666">产品类型</font>  
    
    <td width="79%" align="left" bgcolor="#FFFFFF">　<font color="#ff6600"><%=VPStype%></font>  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="25" align="center" bgcolor="#F7F7F7"><font color="#666666">联系人： </font>
    <td height="25" align="left" bgcolor="#FFFFFF"><font color="#666666">　姓名：<strong>          <input name="truename" type="text" id="truename" maxlength="25">
    </strong> </font>  
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="25" align="center" bgcolor="#F7F7F7"><font color="#666666">联系办法一：  
    
    </font>
    <td width="79%" height="25" align="left" bgcolor="#FFFFFF"><font color="#666666">　QQ或MSN：
        <input name="qq" type="text" id="qq" size="20" maxlength="50">    
    </font></tr>
  <tr bgcolor="#FFFFFF">
    <td height="25" align="center" bgcolor="#F7F7F7"><font color="#666666">联系办法二：  
    </font>
    
    <td width="79%" height="25" align="left" bgcolor="#FFFFFF"><font color="#666666">　邮箱：
        <input name="email" type="text" id="email">    
    </font>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="25" align="center" bgcolor="#F7F7F7"><font color="#666666">联系办法三：</font>
    <td height="25" align="left" bgcolor="#FFFFFF">　<font color="#000000">联系电话：</font><font color="#666666">
      <input name="tel" type="text" id="tel" size="20" maxlength="50">
    </font>   
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="25" align="center" bgcolor="#F7F7F7"><font color="#666666">验证码：</font>  
    
    <td width="79%" height="25" align="left" bgcolor="#FFFFFF">　
      <input name="vcode" type="text" id="vcode" size="4" maxlength="10" />
      <img src="/style/info/vcode.asp" width="40" height="10" id="vcodeimg">　<a href="#" onClick="vcodeimg.src='/style/info/vcode.asp?id='+Math.random();">刷新验证码</a>  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="25" align="center" bgcolor="#F7F7F7"><font color="#666666">我还要补充几句：</font>  
    
    <td width="79%" height="140" align="left" bgcolor="#FFFFFF"><font color="#666666">
    　
    <textarea name="userremindinfo" cols="40" rows="5" id="userremindinfo"></textarea>
    <br>　
    </font>
     
        <input type="submit" name="Submit" value="将订单提交给客服人员">　　
        <a href="#A" onClick="tableX.style.display=''">您可以点击这儿补充更多订单的信息&gt;&gt;&gt;</a>
  </tr>
</table>    

 <br>
 <table width="100%"  border="0" cellspacing="1" bgcolor="#CCCCCC" id="tableX" style="display:none">
   <tr bgcolor="#f0f0f0">
     <td height="25" colspan="2" align="center">详细订单信息
   </tr>
<%If Request.QueryString ("type")="虚拟主机" then%>   
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7"><font color="#000000">FTP用户名：</font>   
     <td align="left" bgcolor="#FFFFFF">　
       <input name="Ftpname" type="text" id="Ftpname" size="10" maxlength="14"> 
   </tr>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7"><font color="#000000">FTP密　码：</font>   
     <td align="left" bgcolor="#FFFFFF">　
       <input name="Ftppassword" type="password" id="Ftppassword" size="10" maxlength="14">   
   </tr>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7">请选择机房：
     <td align="left" bgcolor="#FFFFFF">　
         <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Server"&Tablename&"list order by id asc"
		sql=replace(sql,"ServerHost","Server")
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
服务器列表为空.
<%else%>
<select name="ServerlistID" id="ServerlistID">
  <%while not dsX.Eof%>
  <%if dsHostlist("ServerlistID")=dsX("id") or dsHostlist("ServerlistID2")=dsX("id") or dsHostlist("ServerlistID3")=dsX("id") or dsHostlist("ServerlistID4")=dsX("id") or dsHostlist("ServerlistID5")=dsX("id") then%>
  <option value="<%=dsX("id")%>"><%=dsX("netby")%></option>
  <%end if%>
  <%
dsX.movenext
wend%>
</select>
<%end if%>      </tr>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7"><font color="#000000">域名：</font>
     <td align="left" bgcolor="#FFFFFF">　
         <input name="hostname" type="text" id="hostname" size="30" maxlength="100">
    </tr>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7"><font color="#000000">备案编号：</font>     
     <td align="left" bgcolor="#FFFFFF">　
      <INPUT size=20 name=ICP_SN>
      (没有备案可以不写)
   </tr>
<%end if%>
<%If Request.QueryString ("type")="虚拟主机" then%>
<input name="Hosttype" type="hidden" size="10" value="<%=VPStype%>">
<%end if%>
<%If Request.QueryString ("type")="邮箱产品" then%>
<input name="Emailtype" type="hidden" size="10" value="<%=VPStype%>">
<%end if%>
<%If Request.QueryString ("type")="数据库产品" then%>
<input name="SQLtype" type="hidden" size="10" value="<%=VPStype%>">
<%end if%>
<%If Request.QueryString ("type")="其他产品" then%>
<input name="Othertype" type="hidden" size="10" value="<%=VPStype%>">
<%end if%>
<%If Request.QueryString ("type")="IDC产品" then%>
<input name="IDCtype" type="hidden" size="10" value="<%=VPStype%>">
<%end if%>
<%If Request.QueryString ("type")="云服务器产品" then%>
<input name="VPStype" type="hidden" size="10" value="<%=VPStype%>">
<%end if%>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7"><font color="#000000">有效期限：</font>
     <td align="left" bgcolor="#FFFFFF">　
         <select name="year">
           <%if Request.QueryString ("type")<>"IDC产品" Then
           if dsHostlist("cantest")="y" then%>
           <option value="999">试用<%=Application("testtime")%>天</option>
           <%End If
           end if%>
           <%if dsHostlist("canmonth")="y" then%>
           <option value="<%=PAY_Month%>">一个月</option>
           <%end if%>
		   <%if dsHostlist("canseason")="y" then%>
		<option value="<%=PAY_Season%>">三个月</option>
<%end if%>
           <%if dsHostlist("canhalfyear")="y" then%>
           <option value="<%=PAY_halfyear%>">半年</option>
           <%end if%>
           <option value="1" selected>一年</option>
           <option value="<%=PAY_2year%>">两年</option>
           <option value="<%=PAY_3year%>">三年</option>
           <option value="<%=PAY_4year%>">四年</option>
           <option value="<%=PAY_5year%>">五年</option>
         </select>
         <input type="hidden" name="id" value="<%=Request.QueryString ("id")%>">
         <%=usermoney%> 元/年 <input type="hidden" name="usermoney" value="<%=usermoney%>">
		 <%session("ordermoney")=usermoney%> 
	    
   </tr>
   <tr bgcolor="#f0f0f0">
     <td height="25" colspan="2" align="center">   </tr>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7"><font color="#000000">邮政编码：</font>   
     <td align="left" bgcolor="#FFFFFF">　
      <input name="postid" type="text" id="postid" size="8" maxlength="10">   
   </tr>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7"><font color="#000000">省份：</font>
     <td align="left" bgcolor="#FFFFFF">　
         <select name="prv">
           <option selected value="">请选择: </option>
           <option value="北京">北京</option>
           <option value="广东">广东</option>
           <option value="上海">上海</option>
           <option value="广西">广西</option>
           <option value="天津">天津</option>
           <option value="重庆">重庆</option>
           <option value="河北">河北</option>
           <option value="河南">河南</option>
           <option value="黑龙江">黑龙江</option>
           <option value="吉林">吉林</option>
           <option value="辽宁">辽宁</option>
           <option value="内蒙古">内蒙古</option>
           <option value="海南">海南</option>
           <option value="山西">山西</option>
           <option value="陕西">陕西</option>
           <option value="山东">山东</option>
           <option value="江苏">江苏</option>
           <option value="浙江">浙江</option>
           <option value="安徽">安徽</option>
           <option value="江西">江西</option>
           <option value="福建">福建</option>
           <option value="甘肃">甘肃</option>
           <option value="宁夏">宁夏</option>
           <option value="青海">青海</option>
           <option value="新疆">新疆</option>
           <option value="湖北">湖北</option>
           <option value="湖南">湖南</option>
           <option value="四川">四川</option>
           <option value="贵州">贵州</option>
           <option value="云南">云南</option>
           <option value="西藏">西藏</option>
           <option value="香港">香港</option>
           <option value="澳门">澳门</option>
           <option value="台湾">台湾</option>
           <option value="其它">其它</option>
         </select>
    </tr>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7"><font color="#000000">城市：</font>
     <td align="left" bgcolor="#FFFFFF">　
         <input name="city" type="text" id="city" size="10">
    </tr>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7"><font color="#000000">地址：</font>       <td align="left" bgcolor="#FFFFFF">　
         <input name="address" type="text" id="address" size="30" maxlength="50">
    </tr>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7"><font color="#000000">身份证号码(或营业执照)：</font>
     <td align="left" bgcolor="#FFFFFF">　
         <input name="perid" type="text" id="perid" size="18" maxlength="18">
    (注册后不可更改)      
   </tr>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7"><font color="#000000">传　　真：</font>
     <td align="left" bgcolor="#FFFFFF">　
         <input name="fax" type="text" id="fax" size="18" maxlength="50">
    </tr>
   <tr bgcolor="#FFFFFF">
     <td height="25" align="center" bgcolor="#F7F7F7">     
     <td width="79%" align="left" bgcolor="#FFFFFF">　
       <input type="submit" name="Submit" value="提交订单">    
    </tr>
 </table> 
</form>
 <%=htmlwrite("html14")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
