<%
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")
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/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">
              <div align="center"><font color="#007ACC"><br>
                <br>
                <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>
          </div>
            </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"-->

<%
'''''''''''''''''''''''''''''''''''''''''表单处理 
dnme=trim(SafeRequest("dnme"))
if dnme=""  then
call errorpage(-2,"对不起，参数错误！")
end if
conn.open constr
query="select * from dmtlst where d_dme='"&dnme&"' and d_unme='"&session("usrname")&"'"
rs.open query,conn,1,1
if rs.recordcount<>1 then
call errorpage(-2,"对不起，该购买不存在或者您无权操作(购买确认必须由所有者亲自操作)！")
elseif  cint(rs("d_regtpe"))<>1 then
call errorpage(-2,"对不起，操作不正确！")
elseif  cint(rs("d_regstt"))<>0 then
call errorpage(-2,"对不起，操作不正确！")
end if
d_dme=lcase(trim(rs("d_dme")))
rs.close

'''''''''''''''''''''''''''''''''''''''''表单处理
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 

   substrContent = "entryclass:dmt_odr"&Vend
   substrContent =substrContent& "entrytype:pay"&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:" & d_dme & Vend
   substrContent = substrContent & "d_url:" & trim(SafeRequestform("d_url")) & Vend
   substrContent = substrContent & "years:"& trim(SafeRequestform("years")) & Vend
   substrContent = substrContent & "d_prcstr:"& trim(SafeRequestform("d_prcstr")) & Vend
   substrContent = substrContent & "d_pps:"& trim(SafeRequestform("d_pps")) & Vend
   substrContent = substrContent & "d_cpr:"& trim(SafeRequestform("d_cpr")) & Vend
   substrContent = substrContent & "bmode:" & trim(SafeRequestform("paytype")) & Vend
   substrContent = substrContent & "dom_org_cn:" & trim(SafeRequestform("dom_org_cn")) & Vend
   substrContent = substrContent & "dom_org:" & trim(SafeRequestform("dom_org")) & Vend
   substrContent = substrContent & "dom_org_ping:" & trim(SafeRequestform("dom_org_ping")) & Vend
   substrContent = substrContent & "dom_org_suo:" & trim(SafeRequestform("dom_org_suo")) & Vend
   substrContent = substrContent & "dom_adr1_cn:" & trim(SafeRequestform("dom_adr1_cn")) & Vend
   substrContent = substrContent & "dom_adr1:" & trim(SafeRequestform("dom_adr1")) & Vend
   substrContent = substrContent & "dom_chf:" & trim(SafeRequestform("dom_chf")) & Vend
   substrContent = substrContent & "dom_pc:" & trim(SafeRequestform("dom_pc")) & Vend
   substrContent = substrContent & "dom_st_cn:" & trim(SafeRequestform("dom_st_cn")) & Vend
   substrContent = substrContent & "dom_ct_cn:" & trim(SafeRequestform("dom_ct_cn")) & Vend
   substrContent = substrContent & "admi_fn_cn:" & trim(SafeRequestform("admi_fn_cn")) & Vend
   substrContent = substrContent & "admi_ln_cn:" & trim(SafeRequestform("admi_ln_cn")) & Vend
   substrContent = substrContent & "admi_fn:" & trim(SafeRequestform("admi_fn")) & Vend
   substrContent = substrContent & "admi_ln:" & trim(SafeRequestform("admi_ln")) & Vend
   substrContent = substrContent & "admi_org_cn:" & trim(SafeRequestform("admi_org_cn")) & Vend
   substrContent = substrContent & "admi_org:" & trim(SafeRequestform("admi_org")) & Vend
   substrContent = substrContent & "admi_adr1_cn:" & trim(SafeRequestform("admi_adr1_cn")) & Vend
   substrContent = substrContent & "admi_adr1:" & trim(SafeRequestform("admi_adr1")) & Vend
   substrContent = substrContent & "admi_pc:" & trim(SafeRequestform("admi_pc")) & Vend
   substrContent = substrContent & "admi_ph_cc:" & trim(SafeRequestform("admi_ph_cc")) & Vend
   substrContent = substrContent & "admi_ph_ct:" & trim(SafeRequestform("admi_ph_ct")) & Vend
   substrContent = substrContent & "admi_ph:" & trim(SafeRequestform("admi_ph")) & Vend
   substrContent = substrContent & "admi_fax_cc:" & trim(SafeRequestform("admi_fax_cc")) & Vend
   substrContent = substrContent & "admi_fax_ct:" & trim(SafeRequestform("admi_fax_ct")) & Vend
   substrContent = substrContent & "admi_fax:" & trim(SafeRequestform("admi_fax")) & Vend
   substrContent = substrContent & "admi_em:" & trim(SafeRequestform("admi_em")) & 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


%>