<%
response.buffer=false
on error resume next
%>
<!--#include virtual="/incs/config.asp"-->
<!--#include virtual="/incs/top.asp"-->
<%
chk_log()
chk_newpwr 1,9,2

%>
<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>
        <br>
        <table  cellspacing='0' cellpadding='0'><tr><td align='center' valign='middle'><table cellspacing='0' cellpadding='2' style='font-size:9pt;'><tr><td style='border-width:1px; border-style: groove;'><img id='subokk' src="/imgs/submitimg.gif" border='0' width='398' height='4'></td></tr><tr><td style='border-width:0px;' align='center' height='10'></td></tr><tr>
                  <td style='border-width:0px; font-family:宋体; font-size: 9pt;' align='center' height="25"><b>进程处理中，请勿关闭浏览器……</b></td>
                </tr></table></td></tr></table>
        <br>
        <br>
        <br>
        <br>
        <br>
      </div>
      </td>
    </tr>
  </tbody> 
</table>

      <!--#include virtual="/incs/bottom.asp"-->

<%
conn.open constr
snme=SafeRequestform("snme")
if snme="" then
call errorpage(-2,"对不起，参数错误！")
end if
if session("sysclass")>=4 then
query="select * from v_setlst where s_nme='"&snme&"'"
else
query="select * from v_setlst where s_nme='"&snme&"' and s_unme='"& session("usrname")&"'"
end if
rs.open query,conn,1,1
if rs.recordcount<>1 then
call errorpage(-2,"对不起，该购买不存在或者您无权操作！")
end if
if trim(lcase(rs("s_unme")))<>trim(lcase(session("usrname"))) then
query="select * from memlst where u_nme='"&rs("s_unme")&"'"
rs1.open query,conn,1,1
entryuser=rs("s_unme")
entrypass=trim(rs1("u_pss"))
agentname=session("usrname")
agentpass=session("usrpass")
rs1.close
end if
rs.close


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理
   substrContent = "entryclass:setbuy"&Vend
   substrContent =substrContent& "entrytype:buy"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "proid:" & trim(SafeRequest("s_prd")) & Vend
   substrContent = substrContent & "s_nme:" & trim(SafeRequest("snme")) & Vend
   substrContent = substrContent & "years:" & trim(SafeRequest("years")) & Vend
   substrContent = substrContent & "s_prcstr:" & trim(SafeRequest("s_prcstr")) & Vend
   substrContent = substrContent & "bmode:3"  & Vend
   substrContent = substrContent & "s_pss:" & trim(SafeRequest("s_pss")) & Vend
   for i=1 to 5
   substrContent = substrContent & "s_prd"&i&":" & trim(SafeRequest("s_prd"&i)) & Vend
   substrContent = substrContent & "s_nme"&i&":" & trim(SafeRequest("s_nme"&i))&trim(SafeRequest("s_data"&i&"0")) & Vend
   substrContent = substrContent & "s_dat"&i&"1:" & trim(SafeRequest("s_dat"&i&"1")) & Vend
   substrContent = substrContent & "s_dat"&i&"2:" & trim(SafeRequest("s_dat"&i&"2")) & Vend
   substrContent = substrContent & "s_dat"&i&"3:" & trim(SafeRequest("s_dat"&i&"3")) & Vend
   substrContent = substrContent & "s_dat"&i&"4:" & trim(SafeRequest("s_dat"&i&"4")) & Vend
   substrContent = substrContent & "s_dat"&i&"5:" & trim(SafeRequest("s_dat"&i&"5")) & Vend
   next
   substrContent = substrContent & "u_copnme_cn:" & trim(SafeRequest("u_copnme_cn")) & Vend
   substrContent = substrContent & "u_copnme_en:" & trim(SafeRequest("u_copnme_en")) & Vend
   substrContent = substrContent & "u_copnme_ping:" & trim(SafeRequest("u_copnme_ping")) & Vend
   substrContent = substrContent & "u_copnme_suo:" & trim(SafeRequest("u_copnme_suo")) & Vend
   substrContent = substrContent & "u_surnme_cn:" & trim(SafeRequest("u_surnme_cn")) & Vend
   substrContent = substrContent & "u_nomin_cn:" & trim(SafeRequest("u_nomin_cn")) & Vend
   substrContent = substrContent & "u_surnme:" & trim(SafeRequest("u_surnme")) & Vend
   substrContent = substrContent & "u_nomin:" & trim(SafeRequest("u_nomin")) & Vend
   substrContent = substrContent & "u_con_cn:" & trim(SafeRequest("u_con_cn")) & Vend
   substrContent = substrContent & "u_con_en:" & trim(SafeRequest("u_con_en")) & Vend
   substrContent = substrContent & "u_prv_cn:" & trim(SafeRequest("u_prv_cn")) & Vend
   substrContent = substrContent & "u_prv_en:" & trim(SafeRequest("u_prv_en")) & Vend
   substrContent = substrContent & "u_cty_cn:" & trim(SafeRequest("u_cty_cn")) & Vend
   substrContent = substrContent & "u_cty_en:" & trim(SafeRequest("u_cty_en")) & Vend
   substrContent = substrContent & "u_adr_cn:" & trim(SafeRequest("u_adr_cn")) & Vend
   substrContent = substrContent & "u_adr_en:" & trim(SafeRequest("u_adr_en")) & Vend
   substrContent = substrContent & "u_cde:" & trim(SafeRequest("u_cde")) & Vend
   substrContent = substrContent & "u_tel:" & trim(SafeRequest("u_tel")) & Vend
   substrContent = substrContent & "u_fax:" & trim(SafeRequest("u_fax")) & Vend
   substrContent = substrContent & "u_eml:" & trim(SafeRequest("u_eml")) & Vend
   substrContent = substrContent & "newprice:"& SafeRequestform("newprice") & Vend
   substrContent = substrContent & "." & Vend
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
       If left5= "10000" Then
   session("set_doresult")=doresult
    ''''''''''''''''''''''''''''邮件发送		
%>
<!--#include file="set_snd.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''
   
   	Response.Write "<script language='javascript'>"&Vbcrlf
	Response.Write "location='set_rez_ok.asp';"&Vbcrlf
	Response.Write "</script>"&Vbcrlf
   Else
      call errorpage(-2,doresult)
   end if

%>