<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/top.asp" -->
<%=chk_log()%> 
<%
chk_newpwr 1,0,1
	snme=SafeRequest("snme")
	If snme="" Then
	call errorpage(-2,"对不起，参数错误a！")
	End If
if session("sysclass")>=5 then
query="select * from v_setlst   where s_nme ='"&snme&"'"
elseif session("sysclass")>=4 then
query="select * from v_setlst  where s_nme ='"&snme&"'  and  ((("&session("sysarestr")&" or u_myare=0) and u_rotnme='') or u_rotnme='"&session("usrname")&"')"
else
query="select * from v_setlst   where s_nme ='"&snme&"' s_unme='"&session("usrname")&"'"
end if
conn.open constr
rs.open query,conn,1,1
if rs.recordcount<>1 then
     call errorpage(-2,"对不起，该订单不存在或者不属于您的会员号，管理员请先切换到该订单会员！...")
elseif cint(rs("s_regstt"))=0 then
     call errorpage(-2,"对不起，该主机还没有开通！...")
elseif rs("s_regtpe")=0 then
     call errorpage(-2,"对不起，试用主机请先转正！...")
elseif rs("s_regtpe")<>1 then
     call errorpage(-2,"对不起，主机购买类型不正确！...")
else
        proid=ucase(trim(rs("s_prd")))
		setname=trim(rs("s_nme"))
		If rs("s_addtme")<> "" Then
			fromdate=rs("s_addtme")
		End If
		If rs("s_exptme")<> "" Then
			todate=rs("s_exptme")
		End If
query="select * from memlst where u_nme='"&rs("s_unme")&"'"
rs1.open query,conn,1,1
if not rs1.eof then
ownerclass=rs1("u_prc")
owneruser=rs("s_unme")
ownerpass=rs1("u_pss")
if trim(lcase(session("usrname")))<>trim(lcase(owneruser)) then
agentname=session("usrname")
agentpass=session("usrpass")
end if
end if
rs1.close
end if
rs.close
query="select * from v_pdtlst where g_prd='"&proid&"'"
rs.open query,conn,1,1
if not rs.eof then
g_nme=trim(rs("g_nme"))
end if
rs.close
'''''''''''''
%>
<script>
	function chk_frm2()
	{
		
		 
		if (confirm("如果确认，系统将扣除续费的相应款项！"))
		return true;
		else
		return false;	
		
	}
	</script>
<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>套餐<font color="#000000">列表<a href="index.asp"  class=commonface ><font color="#FF0000">（查询）</font></a></font></strong></span></b></font></td>
          <td valign=bottom noWrap align=right 
                        width="75%"><a href="set_lst.asp?querytype=8" class=commonface >今天新开通</a> 
            <font color="#000000">|</font> <a href="set_lst.asp?querytype=9" class=commonface >本周新开通</a> 
            <font color="#000000">|</font> <a href="set_lst.asp?querytype=10" class=commonface >本周到期</a> 
            <font color="#000000">| </font><a href="set_lst.asp?querytype=11" class=commonface >本月到期</a></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>
      <br>
    </td>
  </tr>
  <tr> 
    <td  colspan=2 valign="middle" height="28"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td> 
            <!--#include file="menu.asp" -->
          </td>
        </tr>
      </table>
      <br>
      <table   bordercolor="#5785B2" cellpadding="0" cellspacing="0" id="AutoNumber3" style="border-collapse: collapse" width="100%" align="center">
        <form action="set_rnw_rez.asp" name=renew method=post>
          <tr> 
            <td valign="top"> 
              <div align="center"><font color="#0000FF"><b><font color="#0000B5">特惠套餐续费</font></b></font><br>
                <br>
                注：如果该主机有赠送品，续费的同时，赠送品也将顺延使用；单独续费赠送品，系统将扣费。<br>
                <br>
              </div>
              <table border=0 cellpadding=0 
                        cellspacing=0 class=datalist align="center"  width="100%">
                <tbody> 
                <tr > 
                  <th height="26" width="35%" class=datalistheader align=center> 
                    <div align="center">需要续费的产品</div>
                  </th>
                  <th height="26"  class=datalistheader align=left> 
                    <input type="text"  class=normalform name="textfield" readonly size="30" value="<%=setname%>" style="background-color:#cccccc;color:#ff0000">
                  </th>
                </tr>
				                <%if trim(owneruser)<>trim(entryuser) then %>
                <tr > 
                  <td height="28" class=datalistgrida  align=center>注意事项</td>
                  <td height="28" class=datalistgrida>该产品所属会员为：<b><%=owneruser%></b>，续费将扣除会员 
                    <b><%=owneruser%></b> 的款项！ </td>
                </tr>
                <%end if %>

                <tr > 
                  <td height="25" class=datalistgrida  align=center>产品类型</td>
                  <td height="25"  class=datalistgrida  align=left> 
                    <input type="text" class=normalform name="textfield2" readonly size="30" value="<%=g_nme%>（<%=proid%>）" >
                  </td>
                </tr>
                <tr > 
                  <td height="25"  class=datalistgrida  align=center>注册时间</td>
                  <td height="25" class=datalistgrida   align=left> 
                    <input type="text" name="textfield32" class=normalform  readonly size="30" value="<%=fromdate%>">
                  </td>
                </tr>
                <tr > 
                  <td height="25"  class=datalistgrida  align=center>到期时间</td>
                  <td height="25"  class=datalistgrida  align=left> 
                    <input type="text" name="textfield32" class=normalform  readonly size="30" value="<%=todate%>">
                  </td>
                </tr>
                <tr > 
                  <td   a class=datalistgrida align="center" >续费期限</td>
                  <td  class=datalistgrida align="left" > 
                    <input type="text" name="years"    class=normalform size="10" value="1">
                    X 
                    <select name="s_prcstr"  class=normalform >
                      <%
	  
   substrContent = "entryclass:pdtrnw"&Vend
   substrContent =substrContent& "entrytype:getaddprc"&Vend
   substrContent =substrContent& "entryuser:"&owneruser&Vend
   substrContent =substrContent& "entrypass:"&ownerpass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "proid:" & proid & Vend
   substrContent = substrContent & "pdtname:" & setname & Vend
   substrContent = substrContent & "." & Vend
   wstr = hzsocket(substrContent)
  if left(wstr&"10001",5)="10001" then
                       call errorpage(-2, "对不起，产品附加价格获取失败(" & wstr & ")！")
  end if
					  
					query="select * from v_prclst where p_prd='"&proid&"'  and p_tmetpe>=5 and  p_cls="&ownerclass&" order by p_tmetpe,p_yar"
					rs.open query,conn,1,1
					mny_szeadd=0
					If rs.EOF Then
                       call errorpage(-2, "对不起，系统未定义该产品购买价格(" & proid & ")！")
                   End If
					while not rs.eof 
s_yar = rs("p_yar")
p_prcstr=rs("p_prcstr")
prc_prd = CInt(rs("p_prc")) 
g_nme = Trim(rs("g_nme"))
p_tmetpe = rs("p_tmetpe")
fcount=h_yar
if s_yar="1" then
fcount="" 
end if
                    prc_cnsadd = get_cst(5, p_tmetpe, 1, s_yar, wstr)
        			p_prc=prc_prd +prc_cnsadd
					%>
                      <option value="<%=p_prcstr%>"><%=p_prc%>元/<%=fcount%><%=tmenmes(p_tmetpe)%></option>
                      <%
rs.movenext
wend
%>
                    </select>
                    <input type=hidden name=proid value="<%=proid%>">
                    <input type=hidden name=pdtname value="<%=setname%>">
                  </td>
                </tr>
             				<% if session("sysclass")>=4 then %>
                <tr > 
                  <td   a class=datalistgrida align="center" >特殊价格</td>
                  <td  class=datalistgrida align="left" > 
                    <input type="text" name="newprice" class=normalform   size="28">
                    元 (如果特殊价格不为空，则所扣金额以特殊价格为准；特别注意：如果特殊价格填写为0，则扣款时将扣0元) </td>
                </tr>
				<% end if %>
   </tbody> 
              </table>
              <div align="center"><br>
                <input type="submit" name="Submit" value="续  费" class=btxx onClick="javascript:return chk_frm2();">
                <input type="reset" name="Submit2" value="放  弃"  class=btxx >
              </div>
            </td>
          </tr>
        </form>
        <tr> 
          <td> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" style="display:none;" id=identity>
              <tr> 
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td>&nbsp; </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <br>
    </td>
  </tr>
  </tbody> 
</table>
<!--#include virtual="/incs/bottom.asp"-->





