save.asp

财务预算管理 财务支出

<!--#include file="conn.asp"-->
<title>数据导入</title><%
   dim recCnt,i,j,sql,sqlstr,exname,id,sql2,rs
   recCnt=cint(request.form("recCnt"))
   ExName=trim(request.form("ExName"))  
   dim goodsitemcode,goodsitemname,kind
   response.write "<font color=#ff0000 >正在写入数据......</font><br><br>"  
   '批量录入数据
j=0
id=0
   for i=1 to recCnt
goodsitemcode=trim(request.form("goodsitemcode")(i))
goodsitemname=trim(request.form("goodsitemname")(i))
kind=trim(request.form("kind")(i))
 sql="select * from pinmu where goodsitemcode='"&goodsitemcode&"' and goodsitemname='"&goodsitemname& "' and kind='"&kind& "' order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1

if rs.bof and rs.eof then

sqlStr="Insert pinmu (goodsitemcode,goodsitemname,kind) values('"
sqlStr=sqlStr & goodsitemcode & "','"
sqlStr=sqlStr & goodsitemname & "','"
sqlStr=sqlStr & kind & "')"
Conn.execute(sqlStr)
sql2="select @@identity as pinmu_id"
set rs = server.CreateObject("adodb.recordset")
rs.open sql2,conn,1,3
id=rs("pinmu_id")
       response.write "<font color=#000000>id=：</font><font color=red>"&id&"</font><br>"  
   else
   j=j+1
      response.write "<font color=#000000>id=：</font><font color=red>"&rs("id")&"</font><br>"  
       response.write "<font color=#000000>excel表中的数据重复：</font><font color=red>"&goodsitemcode&goodsitemname&kind&"</font><br>"  
   end if
   next 
      response.write "<font color=#000000>excel表---"&exname&"中的组数据 "& recCnt-j & " 条记录成功写入数据库！"&j&"条记录重复</font>"  
   %>