bldysave.asp

OFFICE办公自动化

<%
'功能：公文办理定义保存
'作者：展亮
'时间：2003-12-11 21:50
%>

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
'------------------------------------------------设置参数
  xgbz=Request.Form("xgbz")
  lcbgbz=Request.Form("lcbgbz")
  gzbh=request.form("gzbh")
  gzmc=Request.Form("gzmc")
  qtgzbh=Request.Form("qtgzbh")
  mbthdg=Request.Form("mbthdg")
  zwzt=Request.Form("bodymod")
  dyzwbb=Request.Form("dyzwbb")
  fjzt=Request.Form("accessory")
  xyblr=Request.Form("xyblr")

  if lcbgbz="" then lcbgbz="0"
  if mbthdg="" then mbthdg="0"
  if dyzwbb="" then dyzwbb="0"

  dim array_sx(12)
  array_sx(0)="chwh"
  array_sx(1)="chlb"
  array_sx(2)="chbt"
  array_sx(3)="chztc"
  array_sx(4)="chzy"
  array_sx(5)="chfwdw"
  array_sx(6)="chzsdw"
  array_sx(7)="chcsdw"
  array_sx(8)="chswdw"
  array_sx(9)="chfz"
  array_sx(10)="chnzxx"
  array_sx(11)="chqfxx"
  array_sx(12)="chdjxx"

dim dtcs1,dtcs2,dtcs3,dtcs4

dim j
'------------------------------------------------


for i=lbound(array_sx) to ubound (array_sx)

    j=array_sx(i)&"1"

   if trim(Request.form(j))<>"" then
      dtcs1=dtcs1&"1"
   else
      dtcs1=dtcs1&"0"
   end if

    j=array_sx(i)&"2"
   if trim(Request.form(j))<>"" then
      dtcs2=dtcs2&"1"
   else
      dtcs2=dtcs2&"0"
   end if

    j=array_sx(i)&"3"

   if trim(Request.form(j))<>"" then
      dtcs3=dtcs3&"1"
   else
      dtcs3=dtcs3&"0"
   end if

    j=array_sx(i)&"4"

   if trim(Request.form(j))<>"" then
      dtcs4=dtcs4&"1"
   else
      dtcs4=dtcs4&"0"
   end if


next

dim sql,rs,rs1
set rs=createobject("adodb.recordset")
set rs1=createobject("adodb.recordset")
'Response.Write xgbz
if xgbz="add" then

   sql="select * from tbioaOffice_Flow_Bldy where blgzbh='"&gzbh&"'"
   rs.Open sql,oConn,1,1
   'Response.Write sql
   if not rs.eof and not rs.BOF then%>
      <script language="vbscript">
         alert("工作编号重复，不能保存请返回")
          history.back(0)
       </script>

   <%  rs.Close
       set rs=nothing
       oConn.close
       set oConn=nothing
       Response.end
    else
        rs1.open "select * from tbioaOffice_Flow_Bldy",oConn,3,2
        rs1.addnew
            rs1("blgzbh")=gzbh
            rs1("blgzmc")=gzmc
            rs1("qtgzbh")=qtgzbh
            rs1("dzlcqx")=lcbgbz
            rs1("mbthdg")=mbthdg
            rs1("zwzt")=zwzt
            rs1("dyzwbb")=dyzwbb
            rs1("fjzt")=fjzt
            rs1("xyblr")=xyblr
            rs1("dtcs1")=dtcs1
            rs1("dtcs2")=dtcs2
            rs1("dtcs3")=dtcs3
            rs1("dtcs4")=dtcs4
         rs1.update
         rs1.close
         set rs1=nothing
   end if

elseif xgbz="edit" then

       sql="select * from tbioaOffice_Flow_Bldy where blgzbh='"&gzbh&"'"
       response.write sql
       rs.Open sql,oConn,3,2
       if not rs.EOF and not rs.BOF then
            rs("blgzmc")=gzmc
            rs("qtgzbh")=qtgzbh
            rs("dzlcqx")=lcbgbz
            rs("mbthdg")=mbthdg
            rs("zwzt")=zwzt
            rs("dyzwbb")=dyzwbb
            rs("fjzt")=fjzt
            rs("xyblr")=xyblr
            rs("dtcs1")=dtcs1
            rs("dtcs2")=dtcs2
            rs("dtcs3")=dtcs3
            rs("dtcs4")=dtcs4
            rs.update
       else%>
          <script language="vbscript">
               alert("异常错误，可能此工作点已被删除，请返回")
               history.back(0)
          </script>
       <% rs.Close
          set rs=nothing
          oConn.close
          set oConn=nothing
          Response.end

       end if

end if

  rs.close
  set rs=nothing
Response.Write haha
Response.Redirect "BldyIndex.asp"
%>

<%'释放对象变量
oConn.close
%>