save_cgys.asp

财务预算管理 财务支出

<!--#include file="conn.asp"-->
<title>数据导入</title><%
   dim recCnt,i,j,rs,sql,sqlstr,exname,k,rs1,sql2
   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
   response.write "<font color=#ff0000 >正在写入数据......</font><br><br>"  
   '批量录入数据
j=0
   for i=1 to recCnt
   kmbm=trim(request.form("kmbm")(i))
xiangmu_name=trim(request.form("xiangmu_name")(i))
pinmu=trim(request.form("pinmu")(i))
cost_number=trim(request.form("cost_number")(i))

 sql="select * from cgys_temp where kmbm='"&kmbm&"' and xiangmu_name='"&xiangmu_name& "' and pinmu='"&pinmu& "' and cost_number="&cost_number
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
 sqlStr="Insert cgys_temp (kmbm,xiangmu_name,pinmu,cost_number) values('"
 sqlStr=sqlStr &kmbm& "','"
 sqlStr=sqlStr &xiangmu_name& "','"
 sqlStr=sqlStr &pinmu& "',"
 sqlStr=sqlStr &cost_number& ")"
   Conn.execute(sqlStr)
   else
   j=j+1
'       response.write "<font color=#000000>excel表中的数据重复：</font><font color=red>"&kmbm&xiangmu_name&pinmu&cost_number&"</font><br>"  
   end if
   	rs.close
	set rs=nothing
   next 
 '     response.write "<font color=#000000>excel表---"&exname& "中的组数据 "& recCnt-j &" 条记录成功写入数据库！"&j&"条记录重复</font><br>"  






'从临时数据库分开数据
k=0
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
   '单位区分始
   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 rs_danwei.bof and rs_danwei.eof then
      response.write "<font color=red>单位"&danwei_name& "不存在，请先添加！！！</font><br>"      
   else
      guikou_id=rs_danwei("guikou_id")
      danwei_id=rs_danwei("id")
	'单位结束
	 end if  
	  rs_danwei.close
      set rs_danwei=nothing
else 
  '项目区分开始
      xiangmu_name=rs("xiangmu_name")
      sql_xiangmu="select * from xiangmu where guikou_id="&guikou_id&" and danwei_id="&danwei_id&" and xiangmu_name='"&xiangmu_anme&"' 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,cost_delete) values ("&guikou_id&","&danwei_id&",'"&xiangmu_name&"',0)"
   sql2="select @@identity as xiangmu_id"
    set rs1 = server.CreateObject("adodb.recordset")
    rs1.open sql2,conn,1,3
    xiangmu_id=rs1("xiangmu_id")
response.write "<font color=red>项目"&xiangmu_name&xiangmu_id&  "添加成功！！！</font><br>"
          
	 else   
	     xiangmu_id=rs_xiangmu("id")
         response.write "<font color=red>项目"&xiangmu_name&xiangmu_id& "已存在，不需要添加！！！</font><br>"  
       end if
   '项目结束
        rs_xiangmu.close
        set rs_xiangmu=nothing
   
    '分预算明细开始
       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
	   updatetime=now()
          Conn.execute "Insert cost_jh (guikou_id,danwei_id,xiangmu_id,pinmu,cost_number,updatetime,cost_delete,admin,yearless) values ("&guikou_id&","&danwei_id&","&xiangmu_id&",'"&pinmu&"',"&cost_number&",'"&updatetime&"',0,'admin',1)"
          k=k+1
		  response.write "<font color=red>第"&k&"个预算guikou_id="&guikou_id&",danwei_id="&danwei_id&",xiangmu_id="&xiangmu_id&",品目="&pinmu& ",cost_number="&cost_number&"添加成功！！！</font><br>"
       else   
           response.write "<font color=red>预算"&pinmu& cost_number&"已存在，不需要添加！！！</font><br>"  
      '明细结束
	  end  if
    rs_cost_jh.close
    set rs_cost_jh=nothing  
	
	 end if
	 '科目码区分结束	
rs.movenext
loop

'记录循环结束
end if
rs.close
set rs=nothing
response.write "<font color=red>预算"&k& "个添加成功！！！</font><br>"
   %>