<%
on error resume next
response.buffer=false
%>
<!--#include virtual="/incs/config.asp"-->
<!--#include virtual="/incs/web_top.asp"-->
<%
gid=SafeRequest("proid")
if gid="" then
   call errorpage(-2,"对不起，请选择产品！")
end if
query="select * from v_pdtlst  where g_prd='"&gid&"'"
rs.open query,conn,1,1
if rs.eof then
    call errorpage(-2,"对不起，产品未找到！")
end if
pdttpenme=trim(rs("pt_nme"))
pdtclsnme=trim(Rs("pc_nme"))
pcid=rs("pc_id")
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="/pdtshw/emlshw/index.asp"><%=pdttpenme%></a> 
          <strong>&gt;</strong> <%=pdtclsnme%></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 file="menu.asp"-->
        </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 align=center> <br>
          <div align="center"><font color="#007ACC"><br>
            <br>
            <br>
            <br>
            </font> </div>
          <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>
          <br>
        </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>
    <%

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
   substrContent = "entryclass:eml_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(SafeRequest("proid")) & Vend
   substrContent = substrContent & "m_bindname:"& trim(SafeRequest("m_bindname")) & Vend
   substrContent = substrContent & "m_password:"& trim(SafeRequest("m_password")) & Vend
   substrContent = substrContent & "years:" & trim(SafeRequest("years")) & Vend
   substrContent = substrContent & "m_prcstr:" & trim(SafeRequest("m_prcstr")) & Vend
   substrContent = substrContent & "m_plc:" & trim(SafeRequest("m_plc")) & Vend
   substrContent = substrContent & "bmode:" & trim(SafeRequest("bmode"))& Vend
   substrContent = substrContent & "m_copnme_cn:" & trim(SafeRequest("m_copnme_cn")) & Vend
   substrContent = substrContent & "m_ctt_cn:" & trim(SafeRequest("m_ctt_cn")) & Vend
   substrContent = substrContent & "m_adr_cn:" & trim(SafeRequest("m_adr_cn")) & Vend
   substrContent = substrContent & "m_prv_cn:" & trim(SafeRequest("m_prv_cn")) & Vend
   substrContent = substrContent & "m_cde:" & trim(SafeRequest("m_cde")) & Vend
   substrContent = substrContent & "m_tel:" & trim(SafeRequest("m_tel")) & Vend
   substrContent = substrContent & "m_fax:" & trim(SafeRequest("m_fax")) & Vend
   substrContent = substrContent & "m_eml:" & trim(SafeRequest("m_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 & "." & Vend
   doresult = hzsocket(substrContent)
   left5=left(doresult,5) 
  If left5= "10000" Then
   session("eml_doresult")=doresult
         ''''''''''''''''''''''''''''邮件发送      		
   %>
    <!--#include file="eml_snd.asp"-->
    <%
''''''''''''''''''''''''''''''''''''''''''''

   
   
   
   
	Response.Write "<script language='javascript'>"
	Response.Write "location='eml_rez_ok.asp';"
	Response.Write "</script>"
   Else
      call errorpage(-2,doresult)
   end if

				
%>
