wnp_uj_save_other1.asp

U盘身份识别软件

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="CONN.asp" -->
<%
if session("USERID")="" then
response.Redirect "WNP_LOGIN.ASP"
end if
%>
<%
  ujOrder=Cint(request("para1"))
  para2=trim(request("para2"))
  para3=trim(request("para3"))
  para4=trim(request("para4"))
  para5=trim(request("para5"))
  para6=trim(request("para6"))
  para7=trim(request("para7"))
  para8=trim(request("para8"))
  sql="select * from WNT_UJ where WND_UJ_Order="&ujOrder
  rs.open sql,conn,1,1
  if not rs.eof then '添加时如果序号与已有记录序号重复
    rs.close
    sql="update WNT_UJ set WND_UJ_Order=WND_UJ_Order+1 where WND_UJ_Order>="&ujOrder
    conn.execute(sql)
	sql="select * from WNT_UJ"
	rs.open sql,conn,1,3
	rs.addnew
	if ujOrder<>"" then
      rs("WND_UJ_Order")=ujOrder
	end if
	if para2<>"" then
      rs("WND_UJ_Step")=para2
	end if
	if para3<>"" then
      rs("WND_UJ_UJ")=para3
	end if
	if para4<>"" then
      rs("WND_UJ_FUNCTION")=para4
	end if
	if para5<>"" then
      rs("WND_UJ_UserType")=para5
	end if
	if para6<>"" then
      rs("WND_UJ_TYPE")=para6
	end if
	if para7<>"" then
      rs("WND_UJ_XXJB")=para7
	end if
	if para8<>"" then
      rs("WND_UJ_HYBM")=para8
	end if
	rs("WND_UJ_DATE")=date()
	rs.update
	rs.close
  else '添加时如果序号与已有记录序号不重复
    rs.close
	sql="select * from WNT_UJ"
	rs.open sql,conn,1,3
	rs.addnew
	if ujOrder<>"" then
      rs("WND_UJ_Order")=ujOrder
	end if
	if para2<>"" then
      rs("WND_UJ_Step")=para2
	end if
	if para3<>"" then
      rs("WND_UJ_UJ")=para3
	end if
	if para4<>"" then
      rs("WND_UJ_FUNCTION")=para4
	end if
	if para5<>"" then
      rs("WND_UJ_UserType")=para5
	end if
	if para6<>"" then
      rs("WND_UJ_TYPE")=para6
	end if
	if para7<>"" then
      rs("WND_UJ_XXJB")=para7
	end if
	if para8<>"" then
      rs("WND_UJ_HYBM")=para8
	end if
	rs("WND_UJ_DATE")=date()
	rs.update
	rs.close
  end if

'----------插入后编码同步：1，查找上级
sql="select * from WNT_UJ where WND_UJ_Order<"&ujOrder&" and WND_UJ_Step=1 order by WND_UJ_Order desc"
rs.open sql,conn,1,1
if not rs.eof then
  newWND_UJ_TYPE=rs("WND_UJ_TYPE")
  newWND_UJ_XXJB=rs("WND_UJ_XXJB")
  newWND_UJ_HYBM=rs("WND_UJ_HYBM")
  newWND_UJ_UserType=rs("WND_UJ_UserType")
end if
rs.close
'----------插入后编码同步：1，查找上级
	sql="select * from WNT_UJ where WND_UJ_Step=1 and WND_UJ_Order>"&ujOrder&" order by WND_UJ_Order asc"
	rs.open sql,conn,1,1
	if not rs.eof then
	  tempOrder=rs("WND_UJ_Order")
	end if
	rs.close
	
	if para2=1 and tempOrder<>0 then
	  sql="select * from WNT_UJ where WND_UJ_Order>="&ujOrder&" and WND_UJ_Order<"&tempOrder
	  rs.open sql,conn,1,3
	  do while not rs.eof
	    rs("WND_UJ_HYBM") = para8 + right(WND_UJ_HYBM,len(para8))
	    rs("WND_UJ_TYPE") = para6
	    rs("WND_UJ_XXJB") = para7
	  rs.movenext
	  loop
	  rs.close
      'sql="update WNT_UJ set WND_UJ_HYBM='"&para8&"'+'"&right(WND_UJ_HYBM,len(para8))&"',WND_UJ_TYPE="&para6&",WND_UJ_XXJB="&para7&" where WND_UJ_Order>="&ujOrder&" and WND_UJ_Order<"&tempOrder
	  'conn.execute(sql)
	end if
'------------同步级别不为1的下级编码和等级
if fisrtStep<>1 and tempOrder<>0 then
  sql="update WNT_UJ set WND_UJ_TYPE="&newWND_UJ_TYPE&",WND_UJ_XXJB="&newWND_UJ_XXJB&",WND_UJ_HYBM='"&newWND_UJ_HYBM&"',WND_UJ_UserType="&newWND_UJ_UserType&" where WND_UJ_Order="&ujOrder
  conn.execute(sql)
end if
	response.Redirect "WNP_UJ_LIST.ASP"

%>