<%
response.buffer=false
on error resume next
chk_log()
%>
<!--#include virtual="/incs/config.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''检验是否登录 
if session("hst_doresult")="" or isnull(session("hst_doresult")) then
call errorpage(-2,"非法访问")

end if

dud_result=split(session("hst_doresult"),"|")
%>
<!--#include virtual="/incs/top.asp"-->
<table cellspacing=2 cellpadding=0 width="100%" border=0>
  <tbody> 
  <tr> 
    <td  colspan=2 valign="middle"> 
      <table class=line cellspacing=0 cellpadding=0 width="100%" 
                  border=0 align="center">
        <tbody> 
        <tr> 
          <td valign=bottom width="25%" height=20><font color="#000000" class=ddropshadow><b><span class=enbold><strong>虚拟主机申请</strong></span></b></font></td>
          <td valign=bottom noWrap align=right 
                        width="75%">&nbsp;</td>
        </tr>
        <tr> 
          <td align=middle width="100%" colspan=2 height=5> </td>
        </tr>
        <tr> 
          <td align=middle width="100%" colspan=2 height=2 class=menuline></td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
  <tr> 
    <td  colspan=2 valign="top" height="28"> 
      <div align="center"><br>
        <br>
        <br>
        <br>
        <table border=0 cellpadding="0" cellspacing="0" width="60%"  align="center" class=datalist>
          <tr> 
            <th class=datalistheader height="25" colspan="2"> 
              <div align="center"><font color="#FF0000"><b><font color="#FFFFFF">虚拟主机购买结果</font></b></font></div>
            </th>
          </tr>
          <tr> 
            <td  class=datalistgridb  width="140" height="28"> 
              <div align="right">主机种类:</div>
            </td>
            <td class=datalistgrida >&nbsp;<b><%=getval(session("hst_doresult"),"g_nme")%>&nbsp;(&nbsp;<%=getval(session("hst_doresult"),"h_prd")%>&nbsp;)</b></td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">主机名称:</div>
            </td>
            <td class=datalistgrida>&nbsp;<b><font color=#ff0000><%=getval(session("hst_doresult"),"h_ftpusr")%></font></b></td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">免费网址:</div>
            </td>
            <td class=datalistgrida >&nbsp; <a href="<%="http://"&getval(session("hst_doresult"),"h_ftpusr")&"."&getval(session("hst_doresult"),"h_svrnme")%>" target=_blank><%="http://"&getval(session("hst_doresult"),"h_ftpusr")&"."&getval(session("hst_doresult"),"h_svrnme")%></a> 
            </td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">上传地址:</div>
            </td>
            <td class=datalistgrida >&nbsp; 
              <%h_svrip=getval(session("hst_doresult"),"h_svrip")
							  if h_svrip="" then
							  response.write "尚未分配IP地址"
							  else
							  response.write h_svrip&"&nbsp;（建议使用域名作为地址，便于记忆）"
							  end if
							  %>
            </td>
          </tr>
          <tr> 
            <td  class=datalistgridb height="28"> 
              <div align="right">上传帐号:</div>
            </td>
            <td class=datalistgrida >&nbsp; <%=getval(session("hst_doresult"),"h_ftpusr")
							  %> </td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">上传密码:</div>
            </td>
            <td class=datalistgrida >&nbsp; 
              <%h_ftppss=getval(session("hst_doresult"),"h_ftppss")
							  if h_ftppss="" then
							  response.write "您没有填写主机管理密码"
							  else
							  response.write h_ftppss&"&nbsp;（本系统独有的各项管理也基于此密码）"
							  end if
							  %>
            </td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">管理地址:</div>
            </td>
            <td class=datalistgrida >&nbsp; 
              <%
							  if h_ftppss="" then
							  response.write "您没有填写主机管理密码"
							  else
							  response.write "<a href='"&pl_hstctr_url&"'  target=_blank>"&pl_hstctr_url&"</a>（注册会员可以在本系统直接管理）"
							  end if
							  %>
            </td>
          </tr>
          <tr> 
            <td  class=datalistgridb height="28"> 
              <div align="right">购买方式:</div>
            </td>
            <td class=datalistgrida >&nbsp; 
              <%paytype=getval(session("hst_doresult"),"h_mod")
							  if paytype="0" then
							  response.write "实时开通并直接扣除款项"
							  elseif paytype="1" then
							  response.write "先下订单待汇款后再正式开通"
elseif paytype="2" then
							  response.write "试用七天满意后付款"
elseif paytype="5" then
							  response.write "赠送开通"
							  end if
							  %>
            </td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">购买期限:</div>
            </td>
            <td class=datalistgrida >&nbsp; <%=getval(session("hst_doresult"),"h_yarcnt")%>&nbsp;<%=tmenmes(getval(session("hst_doresult"),"p_tmetpe"))%></td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">购买结果:</div>
            </td>
            <td class=datalistgrida >&nbsp;<b><font color=#ff0000> 
              <%if left(session("hst_doresult"),5)="10000" then
							  response.write "提交成功！"
							  else
							  response.write "提交失败！"
							  end if %>
              </font></b></td>
          </tr>
        </table>
        <br>
        <br>
        <br>
        <br>
        <br>
      </div>
    </td>
  </tr>
  </tbody> 
</table>
<!--#include virtual="/incs/bottom.asp"-->




