<%
response.buffer=false
on error resume next
%>
<!--#include virtual="/incs/config.asp"-->
<!--#include virtual="/incs/web_top.asp"-->
<%
gid=SafeRequest("gid")
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")
%>    
    
      <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>&nbsp;<img height=11 
            src="/imgs/aword_square.gif" width=11 
            align=absMiddle> <a href="/">首 页</a> <strong>&gt;</strong> <a href="/pdtshw/dmeshw/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>
              <br>
              <br>
              </font> </div>
            <div align="center"><font color="#007ACC"> </font> </div>
            <div align="center"><font color="#007ACC"> </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>
      <!--#include virtual="/incs/web_bottom.asp"-->
<%
'''''''''''''''''''''''''''''''''''''''''表单处理 

conn.open constr

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
   substrContent = "entryclass:dmc_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 & "d_dme:" & trim(SafeRequestform("d_dme")) & Vend
   substrContent = substrContent & "years:"& trim(SafeRequestform("years")) & Vend
   substrContent = substrContent & "d_prcstr:"& trim(SafeRequestform("d_prcstr")) & Vend
   substrContent = substrContent & "d_pss:"& trim(SafeRequestform("d_pss")) & Vend
   substrContent = substrContent & "d_cpr:"& trim(SafeRequestform("d_cpr")) & Vend
   substrContent = substrContent & "bmode:" & trim(SafeRequestform("paytype")) & Vend
   substrContent = substrContent & "d_dnshst1:" & trim(SafeRequestform("d_dnshst1")) & Vend
   substrContent = substrContent & "d_dnshst2:" & trim(SafeRequestform("d_dnshst2")) & Vend
   substrContent = substrContent & "d_dnsip1:" & trim(SafeRequestform("d_dnsip1"))& Vend
   substrContent = substrContent & "d_dnsip2:" & trim(SafeRequestform("d_dnsip2")) & Vend
   substrContent = substrContent & "u_copnme_cn:" & trim(SafeRequestform("u_copnme_cn")) & Vend
   substrContent = substrContent & "u_copnme_en:" & trim(SafeRequestform("u_copnme_en")) & Vend
   substrContent = substrContent & "u_surnme_cn:" & trim(SafeRequestform("u_surnme_cn")) & Vend
   substrContent = substrContent & "u_nomin_cn:" & trim(SafeRequestform("u_nomin_cn")) & Vend
   substrContent = substrContent & "u_surnme:" & trim(SafeRequestform("u_surnme")) & Vend
   substrContent = substrContent & "u_nomin:" & trim(SafeRequestform("u_nomin")) & Vend
   substrContent = substrContent & "u_con_cn:" & trim(SafeRequestform("u_con_cn")) & Vend
   substrContent = substrContent & "u_con_en:" & trim(SafeRequestform("u_con_en")) & Vend
   substrContent = substrContent & "u_prv_cn:" & trim(SafeRequestform("u_prv_cn")) & Vend
   substrContent = substrContent & "u_prv_en:" & trim(SafeRequestform("u_prv_en")) & Vend
   substrContent = substrContent & "u_cty_cn:" & trim(SafeRequestform("u_cty_cn")) & Vend
   substrContent = substrContent & "u_cty_en:" & trim(SafeRequestform("u_cty_en")) & Vend
   substrContent = substrContent & "u_adr_cn:" & trim(SafeRequestform("u_adr_cn")) & Vend
   substrContent = substrContent & "u_adr_en:" & trim(SafeRequestform("u_adr_en")) & Vend
   substrContent = substrContent & "u_cde:" & trim(SafeRequestform("u_cde")) & Vend
   substrContent = substrContent & "u_tel:" & trim(SafeRequestform("u_tel")) & Vend
   substrContent = substrContent & "u_fax:" & trim(SafeRequestform("u_fax")) & Vend
   substrContent = substrContent & "u_eml:" & trim(SafeRequestform("u_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("dme_doresult")=doresult
   ''''''''''''''''''''''''''''邮件发送		
%>
<!--#include file="dme_snd.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''
   
   
   
   	Response.Write "<script language='javascript'>"&VbCrlf
	Response.Write "location='dme_rez_ok.asp';"&VbCrlf
	Response.Write "</script>"&VbCrlf

   Else
      call errorpage(-2,doresult)
   end if

%>