test.asp

财务预算管理 财务支出

<!--#include file="conn.asp"-->
<title>数据导入</title>
<%
   dim recCnt,i,j,rs,sql,sqlstr,exname
   dim id,guikou_id,danwei_id,xiangmu_id
   dim danwei_name,rs_danwei,sql_danwei,rs_xiangmu,rs_xiangmu1,sql_xiangmu,sql_xiangmu1
   recCnt=cint(request.form("recCnt"))
   ExName=trim(request.form("ExName"))  
   dim kmbm,xiangmu_name,pinmu,cost_number
'从临时数据库分开数据
sql="select * from cgys_temp"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
do while not rs.eof

   if rs("kmbm")="" then
   '单位区分
    guikou_id=0
      danwei_id=0
   danwei_name=rs("xiangmu_name")
   sql_danwei="select * from danwei where danwei_name='"&danwei_name&"' order by id desc"
   Set rs_danwei= Server.CreateObject("ADODB.Recordset")
   rs_danwei.open sql_danwei,conn,1,1
   if not (rs_danwei.bof and rs_danwei.eof) then
      guikou_id=rs_danwei("guikou_id")
      danwei_id=rs_danwei("id") 
	  response.write "<font color=red>单位"&danwei_name& "存在，归口ID="&guikou_id&",单位ID="&danwei_id&"！！！</font><br><br>" 
   else
      response.write "<font color=red>单位"&danwei_name& "不存在，请先添加！！！</font><br>"  
   end if
      rs_danwei.close
      set rs_danwei=nothing
	  '单位区分结束
 else 
  '项目区分开始
   if not(guikou_id=0 and danwei_id=0) then
      xiangmu_name=rs("xiangmu_name")
      sql_xiangmu="select * from xiangmu where guikou_id="&guikou_id&" and danwei_id="&danwei_id&" order by id desc"
      Set rs_xiangmu= Server.CreateObject("ADODB.Recordset")
      rs_xiangmu.open sql_xiangmu,conn,1,3
      if rs_xiangmu.bof and rs_xiangmu.eof then
         Conn.execute "Insert xiangmu (guikou_id,danwei_id,xiangmu_name) values ("&guikou_id&","&danwei_id&",'"&xiangmu_name&"')"
         response.write "<font color=red>项目"&xianmu_name& "添加成功！！！</font><br>"
         sql_xiangmu1="select @@identity as xiangmu_id"
         set rs_xiangmu1 = server.CreateObject("adodb.recordset")
         rs_xiangmu1.open rs_xiangmu1,conn,1,1
         xiangmu_id=rs_xiangmu1("xiangmu_id")
      else   
	     xiangmu_id=rs_xiangmu("id")
          response.write "<font color=red>项目"&xiangmu_name& "已存在，不需要添加！！！</font><br>"  
     end if
         rs_xiangmu1.close
         set rs_xiangmu1=nothing
   end if
   '项目结束
        rs_xiangmu.close
        set rs_xiangmu=nothing
   if not(guikou_id=0 and danwei_id=0 and xiangmu_id=0) then
    '分预算明细
       pinmu=rs("pinmu")
       cost_number=rs("cost_number")
       sql_cost_jh="select * from cost_jh where guikou_id="&guikou_id&" and danwei_id="&danwei_id&"and xiangmu_id="&xiangmu_id&"and pinmu='"&pinmu&"' and cost_number="&cost_number&"order by id desc"
       Set rs_cost_jh= Server.CreateObject("ADODB.Recordset")
       rs_cost_jh.open sql_cost_jh,conn,1,3
       if rs_cost_jh.bof and rs_cost_jh.eof then
          Conn.execute "Insert cost_jh (guikou_id,danwei_id,xiangmu_name,pinmu,cost_number,updatetime) values ("&guikou_id&","&danwei_id&","&xiangmu_id&",'"&pinmu&"',"&cost_number&","&now()&")"
          response.write "<font color=red>预算"&pinmu& "添加成功！！！</font><br>"
       else   
           response.write "<font color=red>预算"&pinmu& "已存在，不需要添加！！！</font><br>"  
        end if
   end if
   '明细结束
    rs_cost_jh.close
    set rs_cost_jh=nothing  
 end if 
rs.movenext
loop
rs.close
set rs=nothing
end if
   %>