<% on error resume next %>
<!--#include virtual="/incs/config.asp"-->
<!--#include virtual="/incs/top.asp"-->
<!--#include virtual="/incs/present.asp"-->
<%chk_log()
chk_newpwr 4,31,2
conn.open constr
query="select * from pdttpe where pt_tag='ot5'"
rs.open query,conn,1,1
if not rs.eof then
ptnme=trim(rs("pt_nme"))
end if
rs.close
%>


<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><%=ptnme%>手工录入</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"-->
<%
'''''''''''''''''''''''''''''''''''''''''表单处理 



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
   substrContent = "entryclass:ot5_odr"&Vend
   substrContent =substrContent& "entrytype:odr"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent &"agentname:"&agentname&VEnd
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "s_unme:"& trim(SafeRequestform("s_unme")) & Vend
   substrContent = substrContent & "s_prd:"& trim(SafeRequestform("s_prd")) & Vend
   substrContent = substrContent & "s_prcstr:"& trim(SafeRequestform("s_prcstr")) & Vend
   substrContent = substrContent & "years:"& trim(SafeRequestform("years")) & Vend
   substrContent = substrContent & "s_yarcnt:"& trim(SafeRequestform("s_yarcnt")) & Vend
   substrContent = substrContent & "s_regtpe:"& trim(SafeRequestform("s_regtpe")) & Vend
   substrContent = substrContent & "s_regstt:"& trim(SafeRequestform("s_regstt")) & Vend
   substrContent = substrContent & "s_addtme:"& trim(SafeRequestform("s_addtme")) & Vend
   substrContent = substrContent & "s_exptme:"& trim(SafeRequestform("s_exptme")) & Vend
   substrContent = substrContent & "s_nme:"& trim(SafeRequestform("s_nme")) & Vend
   substrContent = substrContent & "s_stenme:"& trim(SafeRequestform("s_stenme")) & Vend
   substrContent = substrContent & "s_o1:"& trim(SafeRequestform("s_o1")) & Vend
   substrContent = substrContent & "s_o2:"& trim(SafeRequestform("s_o2")) & Vend
   substrContent = substrContent & "s_o3:"& trim(SafeRequestform("s_o3")) & Vend
   substrContent = substrContent & "s_o4:"& trim(SafeRequestform("s_o4")) & Vend
   substrContent = substrContent & "s_o5:"& trim(SafeRequestform("s_o5")) & Vend
   substrContent = substrContent & "s_o6:"& trim(SafeRequestform("s_o6")) & Vend
   substrContent = substrContent & "s_o7:"& trim(SafeRequestform("s_o7")) & Vend
   substrContent = substrContent & "s_o8:"& trim(SafeRequestform("s_o8")) & Vend
   substrContent = substrContent & "s_cnt:"& trim(SafeRequestform("s_cnt")) & Vend
   substrContent = substrContent & "s_copnme_cn:" & trim(SafeRequestform("s_copnme_cn")) & Vend
   substrContent = substrContent & "s_prs_cn:" & trim(SafeRequestform("s_prs_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 & "pstprd1:" & trim(SafeRequestform("pstprd1")) & Vend
   substrContent = substrContent & "pstprd2:" & trim(SafeRequestform("pstprd2")) & Vend
   substrContent = substrContent & "pstprd3:" & trim(SafeRequestform("pstprd3")) & Vend
   substrContent = substrContent & "pstnme1:" & trim(SafeRequestform("pstnme1")) & Vend
   substrContent = substrContent & "pstnme2:" &trim(SafeRequestform("pstnme2"))  & Vend
   substrContent = substrContent & "pstnme3:" & trim(SafeRequestform("pstnme3"))  & Vend
   substrContent = substrContent & "setnme:" & trim(SafeRequestform("setnme")) & Vend
   substrContent = substrContent & "pstrotprd:" & trim(SafeRequestform("pstrotprd")) & Vend
   substrContent = substrContent & "pstrotnme:" & trim(SafeRequestform("pstrotnme"))  & Vend
   substrContent = substrContent & "." & Vend
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
call okpage("/master/odradd/ot5_add/ot5_frm.asp?module=odradd&gid="&trim(SafeRequest("s_prd")))
   Else
      call errorpage(-2,doresult)
   end if

%>

