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


<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"-->
<%
'''''''''''''''''''''''''''''''''''''''''表单处理 

unme=saferequest("unme")
if unme<>"" and trim(lcase(unme))<>trim(lcase(session("usrname"))) then
query="select * from memlst where u_nme='"&unme&"'"
rs1.open query,conn,1,1
entryuser=unme
entrypass=trim(rs1("u_pss"))
agentname=session("usrname")
agentpass=session("usrpass")
rs1.close
end if

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
   substrContent = "entryclass:ot"&diytpe&"_odr"&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(SafeRequestform("s_prd")) & Vend
   substrContent = substrContent & "s_prcstr:"& trim(SafeRequestform("s_prcstr")) & Vend
   substrContent = substrContent & "years:"& trim(SafeRequestform("years")) & Vend
   substrContent = substrContent & "bmode:"& trim(SafeRequestform("bmode")) & Vend
   substrContent = substrContent & "s_nme:"& trim(SafeRequestform("s_nme")) & Vend
for i=1 to 8
   substrContent = substrContent & "s_o"&i&":"& trim(SafeRequestform("s_o"&i)) & Vend
next
   substrContent = substrContent & "s_copnme_cn:" & trim(SafeRequestform("s_copnme_cn")) & Vend
   substrContent = substrContent & "s_prv_cn:" & trim(SafeRequestform("s_prv_cn")) & Vend
   substrContent = substrContent & "s_ctt_cn:" & trim(SafeRequestform("s_ctt_cn")) & Vend
   substrContent = substrContent & "s_adr_cn:" & trim(SafeRequestform("s_adr_cn")) & Vend
   substrContent = substrContent & "s_cde:" & trim(SafeRequestform("s_cde"))& Vend
   substrContent = substrContent & "s_tel:" & trim(SafeRequestform("s_tel")) & Vend
   substrContent = substrContent & "s_fax:" & trim(SafeRequestform("s_fax")) & Vend
   substrContent = substrContent & "s_eml:" & trim(SafeRequestform("s_eml")) & Vend
   substrContent = substrContent & "pstrotprd:" & trim(SafeRequest("pstrotprd")) & Vend
   substrContent = substrContent & "pstrotnme:" & trim(SafeRequest("pstrotnme")) & Vend
   substrContent = substrContent & "pstcolumn:" & trim(SafeRequest("pstcolumn")) & Vend
   substrContent = substrContent & "newprice:"& SafeRequestform("newprice") & Vend
   substrContent = substrContent & "." & Vend
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
   session("ot"&diytpe&"_doresult")=doresult
''''''''''''''''''''''''''''邮件发送		
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''寻参数
%>
<!--#include file="ot5_snd.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''

   
   	Response.Write "<script language='javascript'>"&vbcrlf
	Response.Write "location='ot"&diytpe&"_rez_ok.asp';"&vbcrlf
	Response.Write "</script>"&vbcrlf

   Else
      call errorpage(-2,doresult)
   end if

%>

