wnp_uj_save_other.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
%>
<%
'-------------获取表单值
ujId = request("ujId")
ujOrder=Cint(request("para1"))
para2=Cint(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 max(WND_UJ_Order) as tempOrder1 from WNT_UJ"
rs.open sql,conn,1,1
if not rs.eof then
  tempOrder=rs("tempOrder1")+1
end if
rs.close
'-------------取得当前Id记录信息
sql="select * from WNT_UJ where WND_ID="&ujId
rs.open sql,conn,1,1
if not rs.eof then
  fisrtIdOrder=rs("WND_UJ_Order")
  fisrtId=ujId
  fisrtStep=rs("WND_UJ_Step")
end if
rs.close

  sql="select * from WNT_UJ where WND_UJ_Order="&ujOrder&" and WND_ID<>"&ujId
  rs.open sql,conn,1,1
  if not rs.eof then '如果操作为移动
    rs.close
    sql="select * from WNT_UJ where WND_ID="&ujId
	rs.open sql,conn,1,1
	tempUJ_Order=rs("WND_UJ_Order")
	rs.close
	if tempUJ_Order>ujOrder then '向前移动操作
      sql="update WNT_UJ set WND_UJ_Order=WND_UJ_Order+1 where (WND_UJ_Order>="&ujOrder&" and WND_UJ_Order <"&tempUJ_Order&")"
    else '向后移动操作
      sql="update WNT_UJ set WND_UJ_Order=WND_UJ_Order-1 where (WND_UJ_Order<="&ujOrder&" and WND_UJ_Order >"&tempUJ_Order&")"
    end if
    conn.execute(sql)

'-----------取得目的序号记录信息
if tempUJ_Order>ujOrder then
  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
else
  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
end if

	sql="select * from WNT_UJ where WND_ID="&ujId
	rs.open sql,conn,1,3
	if ujOrder<>"" then
      rs("WND_UJ_Order")=ujOrder
	end if
	if (para2>2 and para4<>"") or (para2<3 and para4="") then
      rs("WND_UJ_Step")=para2
	end if
	if para3<>"" then
      rs("WND_UJ_UJ")=para3
	end if
	if para2>2 and para4<>"" then
      rs("WND_UJ_FUNCTION")=para4
    elseif para2<3 and para4="" then
	  rs("WND_UJ_FUNCTION")=null
	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

'-------------移动后 同步编码
	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 then
      sql="update WNT_UJ set WND_UJ_HYBM='"&para8&"'+'"&right(WND_UJ_HYBM,len(para8))&"',WND_UJ_UserType="&para5&",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 then
  sql="update WNT_UJ set WND_UJ_TYPE="&newWND_UJ_TYPE&",WND_UJ_XXJB="&newWND_UJ_XXJB&",WND_UJ_HYBM='"&newWND_UJ_HYBM&"' where WND_ID="&fisrtId
  conn.execute(sql)
end if

	response.Redirect("WNP_UJ_LIST.ASP")
  else '操作不为移动
    rs.close
	sql="select * from WNT_UJ where WND_ID="&ujId
	rs.open sql,conn,1,3
	if ujOrder<>"" then
      rs("WND_UJ_Order")=ujOrder
	end if
	if (para2>2 and para4<>"") or (para2<3 and para4="") then
      rs("WND_UJ_Step")=para2
	end if
	if para3<>"" then
      rs("WND_UJ_UJ")=para3
	end if
	if para2>2 and para4<>"" then
      rs("WND_UJ_FUNCTION")=para4
    elseif para2<3 and para4="" then
	  rs("WND_UJ_FUNCTION")=null
	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

'-------------不为移动 同步编码
	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 then
      sql="update WNT_UJ set WND_UJ_HYBM='"&para8&"'+'"&right(WND_UJ_HYBM,len(para8))&"',WND_UJ_UserType="&para5&",WND_UJ_TYPE="&para6&",WND_UJ_XXJB="&para7&" where WND_UJ_Order>="&ujOrder&" and WND_UJ_Order<"&tempOrder
	  conn.execute(sql)
	end if
	conn.execute(sql)

	response.Redirect("WNP_UJ_LIST.ASP")
  end if
%>