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

end if

%>
<!--#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>
        <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("set_doresult"),"g_nme")%>&nbsp;(&nbsp;<%=getval(session("set_doresult"),"s_prd")%>&nbsp;)</b></td>
          </tr>
			  <tr> 
            <td class=datalistgridb  height="5" colspan=2 style="font-size:2px;">&nbsp; 
             </td>
          </tr>
	  <% conn.open constr
		  query="select * from v_setlst where s_nme='"&getval(session("set_doresult"),"s_nme") &"'"
		  rs.open query,conn,1,1
		  if rs.eof then
		  call errorpage(-2,"对不起，订单未找到！") 
		  end if
		  j=0
		  for i=1 to 5
		  prdnme="s_prd"&i
		  pdt_prd=trim(rs(prdnme))
		  if pdt_prd<>"" and isnull(pdt_prd)=false then
		  j=j+1
		  query="select * from v_pdtlst where g_prd='"&pdt_prd&"'"
		  rs1.open query,conn,1,1
		  if rs1.eof then
		  call errorpage(-2,"对不起，意外错误！")
		  end if
		  g_tag=trim(rs1("g_tag"))
		  pt_tag=trim(Rs1("pt_tag"))
		  g_nme=trim(rs1("g_nme"))
		  rs1.close
		  %>
		  <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">产品<%=j%>名称:</div>
            </td>
            <td class=datalistgrida>&nbsp;<b><font color=#ff0000><%=g_nme&"（"&pdt_prd&"）"%></font></b></td>
          </tr>
		  <%
		  select case pt_tag
		  case "dme"
		  if g_tag="dmc" or g_tag="dmh" or g_tag="dmt" then
		  %>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">域名或通用网址:</div>
            </td>
            <td class=datalistgrida>&nbsp;<b><%=trim(rs("s_nme"&i))%></b></td>
          </tr>
		  <tr> 
            <td class=datalistgridb  height="5" colspan=2 style="font-size:2px;">&nbsp; 
             </td>
          </tr>
		  <%
		  else
		  %>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">域名名称:</div>
            </td>
            <td class=datalistgrida>&nbsp;<b><%=trim(rs("s_nme"&i))%></b></td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">管理密码:</div>
            </td>
            <td class=datalistgrida>&nbsp;<%=getpassoutcode(trim(rs("s_pss")))%></td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">管理地址:</div>
            </td>
            <td class=datalistgrida>&nbsp;<a href="<%=pl_dmectr_url%>"  target=_blank><%=pl_dmectr_url%></a>（注册会员可以在本系统直接管理）</td>
          </tr>
		  <tr> 
            <td class=datalistgridb  height="5" colspan=2 style="font-size:2px;">&nbsp; 
             </td>
          </tr>
		  <%
		  end if
		  case "hst"
		  %>
		  <tr> 
            <td  class=datalistgridb height="28"> 
              <div align="right">上传帐号:</div>
            </td>
            <td class=datalistgrida >&nbsp;<b><%=trim(rs("s_nme"&i))%></b></td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">上传密码:</div>
            </td>
            <td class=datalistgrida >&nbsp;<%
							  response.write getpassoutcode(trim(rs("s_pss")))&"&nbsp;"
							  %>
            </td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">管理地址:</div>
            </td>
            <td class=datalistgrida >&nbsp;<%
							 
							  response.write "<a href='"&pl_hstctr_url&"'  target=_blank>"&pl_hstctr_url&"</a>（注册会员可以在本系统直接管理）"
							
							  %>
            </td>
          </tr>
		  <tr> 
            <td class=datalistgridb  height="5" colspan=2 style="font-size:2px;">&nbsp; 
             </td>
          </tr>
		  <%
		  case "ftp"
		  %>
		  <tr> 
            <td  class=datalistgridb height="28"> 
              <div align="right">管理帐号:</div>
            </td>
            <td class=datalistgrida >&nbsp;<b><%=trim(rs("s_nme"&i))%></b></td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">管理密码:</div>
            </td>
            <td class=datalistgrida >&nbsp;<%
							  response.write getpassoutcode(trim(rs("s_pss")))&"&nbsp;"
							  %>
            </td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">管理地址:</div>
            </td>
            <td class=datalistgrida >&nbsp;<%
							 
							  response.write "<a href='"&pl_ftpctr_url&"'  target=_blank>"&pl_ftpctr_url&"</a>（注册会员可以在本系统直接管理）"
							
							  %>
            </td>
          </tr>
		  <tr> 
            <td class=datalistgridb  height="5" colspan=2 style="font-size:2px;">&nbsp; 
             </td>
          </tr>
		  <%
		  case "eml"
		  %>
		  <tr> 
            <td  class=datalistgridb height="28"> 
              <div align="right">邮局域名:</div>
            </td>
            <td class=datalistgrida  >&nbsp;<b><%=trim(rs("s_nme"&i))
							  %></b></td>
          </tr>
		  <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">管理密码:</div>
            </td>
            <td class=datalistgrida >&nbsp;<%
							  response.write getpassoutcode(trim(rs("s_pss")))&"&nbsp;"
							  %>
            </td>
          </tr>
		  <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">邮箱地址:</div>
            </td>
            <td class=datalistgrida  >&nbsp;<a href="<%="http://mail."&trim(rs("s_nme"&i))%>" target=_blank><%="http://mail."&trim(rs("s_nme"&i))%></a> 
            </td>
          </tr>
          
         
          <tr> 
            <td  class=datalistgridb height="28"> 
              <div align="right">管理地址:</div>
            </td>
            <td class=datalistgrida  >&nbsp;<%
							  response.write "<a href='"&pl_emlctr_url&"'  target=_blank>"&pl_emlctr_url&"</a>（注册会员可以在本系统直接管理）"
							  %>
            </td>
          </tr>
		  <tr> 
            <td class=datalistgridb  height="5" colspan=2 style="font-size:2px;">&nbsp; 
             </td>
          </tr>
		  <%
		  case "sql"
		  %>
		  <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">数据库名称:</div>
            </td>
            <td class=datalistgrida >&nbsp;<b><font color=#ff0000><%=trim(rs("s_nme"&i))%></font></b></td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">数据库密码:</div>
            </td>
            <td class=datalistgrida >&nbsp;<b><font color=#ff0000><%=getpassoutcode(trim(rs("s_pss")))%></font></b></td>
          </tr>

          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">管理地址:</div>
            </td>
            <td class=datalistgrida >&nbsp;<%
							  response.write "<a href='"&pl_sqlctr_url&"'  target=_blank>"&pl_sqlctr_url&"</a>（注册会员可以在本系统直接管理）"
							  %>
            </td>
          </tr>
		  <tr> 
            <td class=datalistgridb  height="5" colspan=2 style="font-size:2px;">&nbsp; 
             </td>
          </tr>
		  <%
		  case else
		  %>
		  <tr> 
            <td  class=datalistgridb height="28"> 
              <div align="right">管理用户名:</div>
            </td>
            <td class=datalistgrida  >&nbsp;<b><%=trim(rs("s_nme"&i))
							  %></b></td>
          </tr>
		  <tr> 
            <td class=datalistgridb  height="5" colspan=2 style="font-size:2px;">&nbsp; 
             </td>
          </tr>
		  <%
		  end select
		  end if
		   next 
		  rs.close
		  %>
		  
		  
         
          <tr> 
            <td  class=datalistgridb height="28"> 
              <div align="right">购买方式:</div>
            </td>
            <td class=datalistgrida >&nbsp; 
              <%paytype=getval(session("set_doresult"),"s_mod")
							  if paytype="0" then
							  response.write "实时开通并直接扣除款项"
							  elseif paytype="1" then
							  response.write "先下订单待汇款后再正式开通"
elseif paytype="2" then
							  response.write "试用七天满意后付款"
							  end if
							  %>
            </td>
          </tr>
          <tr> 
            <td class=datalistgridb  height="28"> 
              <div align="right">购买期限:</div>
            </td>
            <td class=datalistgrida >&nbsp; <%=getval(session("set_doresult"),"s_yarcnt")%>&nbsp;<%=tmenmes(getval(session("set_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("set_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"-->




