<!--#include virtual="/incs/config.asp"-->
<!--#include virtual="/incs/web_top.asp"-->
      <%
chk_log_usr()
snme=SafeRequest("snme")
if snme="" then
call errorpage(-2,"对不起，参数错误(1)！")
end if
	rs.open "select * from v_setlst where s_unme='"&session("usrname")&"'  and s_nme ='"&snme&"'",conn,1,1
	  if rs.recordcount<=0 then
      call errorpage(-2,"对不起，该记录不存在！")
      end if
	  proid=rs("s_prd")
	  fromdate=rs("s_addtme")
	  todate=rs("s_exptme")
	  g_nme=trim(rs("g_nme"))
	  rs.close
%>
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <tr> 
          <td colspan=2><img height=3 
            src="/imgs/spacer.gif" width=3></td>
        </tr>
        <tr> 
          <td width=438 
          background=/imgs/bg_inside_pages_link.jpg 
          height=30><img height=11 
            src="/imgs/aword_square.gif" width=11 
            align=absMiddle> <a href="/">首 页</a> <strong>&gt;</strong> <a href="/control/">管理中心</a> 
            <b>&gt;</b> <a href="/control/set_mng/set_lst.asp">特惠套餐查询</a></td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td colspan=2><img height=10 
            src="/imgs/shadow_inside_pages.jpg" 
        width=438></td>
        </tr>
        </tbody> 
      </table>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY> 
        <TR> 
          <TD vAlign=top width=180 bgColor=#f3f3f3> 
            <!--#include virtual="/incs/control_left.asp"-->
            <br>
            <br>
            <br>
            <br>
            <br>
            <br>
            <br>
            <br>
            <br>
          </TD>
          <TD vAlign=top width=10 
          background=/imgs/bg_inside_pages_block.jpg><IMG 
            height=1 src="/imgs/bg_inside_pages_block.jpg" 
            width=10></TD>
          <TD vAlign=top> 
            <table cellspacing=2 cellpadding=0 width="100%" border=0>
              <tbody> 
              <tr> 
                <td  colspan=2 valign="middle"> 
                  <table class=line cellspacing=0 cellpadding=0 width="98%" 
                  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"><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"><font color="#000000">今天新开通</font></a> 
                        <font color="#000000">|</font> <a href="set_lst.asp?querytype=9"><font color="#000000">本周新开通</font></a> 
                        <font color="#000000">|</font> <a href="set_lst.asp?querytype=10"><font color="#000000">本周到期</font></a> 
                        <font color="#000000">| </font><a href="set_lst.asp?querytype=11"><font color="#000000">本月到期</font></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 bgcolor="#5F5F5F"></td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
              <tr> 
                <td  colspan=2 valign="middle" height="28" align="center"> 
                  <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
                    <tr> 
                      <td height=8></td>
                    </tr>
                  </table>
                  <br>
                  <!--#include file="menu.asp"-->
                  <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"><br>
                            特惠套餐续费</font></b></font><br>
                            <br>
                            注：续费套餐时，所含所有产品都将自动续费。<br>
                            <br>
                          </div>
                          <table align="center" border="0" cellpadding="4" cellspacing="1" width="98%" bordercolordark="#FFFFFF" bgcolor="#666666">
                            <tbody> 
                            <tr bgcolor="#8b8b8b" > 
                              <td height="26" width="35%"  align=center> 
                                <div align="center"><font color="#FFFFFF">需要续费的产品</font></div>
                              </td>
                              <td height="26"   align=left> 
                                <input type="text"  class=normalform name="textfield" readonly size="30" value="<%=snme%>" style="background-color:#cccccc;color:#ff0000">
                              </td>
                            </tr>
                            <tr bgcolor="#FFFFFF" > 
                              <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 bgcolor="#FFFFFF" > 
                              <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 bgcolor="#FFFFFF" > 
                              <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 bgcolor="#FFFFFF" > 
                              <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:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "proid:" & proid & Vend
   substrContent = substrContent & "pdtname:" & snme & 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_cls="&session("usrclass")&" and p_yar>=5 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=s_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=snme value="<%=snme%>">
                              </td>
                            </tr>
                            </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>
                  <%
Function showstatus(regstt,regtpe,exptme)
if cdate(exptme)-date()<0 then
regstt=20
elseif cdate(exptme)-date()<7 and regtpe<>0 then
regstt=19
elseif cdate(exptme)-date()<30 and regtpe<>0 then
regstt=18
end if
regtpe_str=right("000"&cstr(regtpe),2)
regstt_str=right("000"&cstr(regstt),2)
gifstr=regtpe_str&regstt_str&".gif"
showstatus="<img src=/icons/"&gifstr&">"   

End Function
%>
                  <br>
                  <br>
                </td>
              </tr>
              </tbody> 
            </table>
          </TD>
        </TR>
        </TBODY> 
      </TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY> 
        <TR> 
          <TD bgColor=#cccccc><IMG height=1 
            src="/imgs/spacer.gif" 
      width=1></TD>
        </TR>
        </TBODY> 
      </TABLE>
      <!--#include virtual="/incs/web_bottom.asp"-->


