<%
response.buffer=false
on error resume next
%>
<!--#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>&nbsp;<img height=11 
            src="/imgs/aword_square.gif" width=11 
            align=absMiddle> <a href="/">首 页</a> <strong>&gt;</strong> <a href="/pdtshw/sqlshw/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>
            <table cellspacing='0' cellpadding='2' style='font-size:9pt;' width="349">
              <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>
            <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:sql_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 & "ftpuser:sq_"& trim(SafeRequest("ftpuser")) & Vend
   substrContent = substrContent & "ftppass:"& trim(SafeRequest("ftppass")) & Vend
   substrContent = substrContent & "years:" & trim(SafeRequest("years")) & Vend
   substrContent = substrContent & "sq_prcstr:" & trim(SafeRequest("sq_prcstr")) & Vend
   substrContent = substrContent & "sq_plc:" & trim(SafeRequest("sq_plc")) & Vend
   substrContent = substrContent & "bmode:" & trim(SafeRequest("bmode"))& Vend
   substrContent = substrContent & "sq_copnme_cn:" & trim(SafeRequest("sq_copnme_cn")) & Vend
   substrContent = substrContent & "sq_ctt_cn:" & trim(SafeRequest("sq_ctt_cn")) & Vend
   substrContent = substrContent & "sq_prv_cn:" & trim(SafeRequest("sq_prv_cn")) & Vend
   substrContent = substrContent & "sq_adr_cn:" & trim(SafeRequest("sq_adr_cn")) & Vend
   substrContent = substrContent & "sq_cde:" & trim(SafeRequest("sq_cde")) & Vend
   substrContent = substrContent & "sq_tel:" & trim(SafeRequest("sq_tel")) & Vend
   substrContent = substrContent & "sq_fax:" & trim(SafeRequest("sq_fax")) & Vend
   substrContent = substrContent & "sq_eml:" & trim(SafeRequest("sq_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("sql_doresult")=doresult
    ''''''''''''''''''''''''''''邮件发送		
%>
<!--#include file="sql_snd.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''

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

   Else
      call errorpage(-2,doresult)
   end if
%>