wnp_user_save.asp

U盘身份识别软件

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="WNP_INCLUDE.ASP" -->
<%
     tableName="WNT_USER"
     fieldName="WND_USER_Order"
     orderNumber=request("userOrder")
     fieldId="WND_USER_ID"
     recordId=request("userid")
	 valid=request("WND_USER_VALID")
	 userid=request("userid")
if userid<>"" then
     call modOrder(tableName,fieldName,orderNumber,fieldId,recordId)
     sql="select * from WNT_USER where WND_USER_ID="&userid
	 rs.open sql,conn,1,3
	 rs("WND_USER_USERNAME")=request("WND_USER_USERNAME")
	 rs("WND_USER_PASSWORD")=request("WND_USER_PASSWORD")
	 
	 sql="select * from WNT_UNIT where WND_UNIT_ID="&request("WND_USER_UNITID")
	 rssub.open sql,conn,1,1
	 if not rssub.eof then
	   user_dwbm=rssub("UNIT_BM")
	 end if
	 rssub.close
	 
	 rs("USER_DWBM")=user_dwbm
	 rs("WND_USER_UNITID")=request("WND_USER_UNITID")
	 rs("WND_USER_TYPE")=request("userType")
	 rs("WND_USER_Order")=request("userOrder")
	 rs("WND_USER_DATE")=date()
	 dim selectyear,selectmonth,selectday
	 selectyear=CStr(request("selectyear"))
	 selectmonth=request("selectmonth")
	 selectday=request("selectday")
	 rs("WND_USER_TIME")=selectyear&"-"&selectmonth&"-"&selectday
	 rs.update
	 rs.close
response.Redirect "WNP_USER_EDIT.ASP"
else
	 password=request("WND_USER_PASSWORD")
	 sql="select * from WNT_USER where WND_USER_PASSWORD='"&password&"'"
	 rs.open sql,conn,1,3
	 if not rs.eof then
	 rs.close
	 response.Write "<script language=javascript>alert('口令重复！');location.href='WNP_USER_EDIT.ASP';</script>"
	 else
	 rs.close
     call addOrder(tableName,fieldName,orderNumber)

	 dim reselectyear,reselectmonth,reselectday
	 reselectyear=CStr(request("selectyear"))
	 reselectmonth=request("selectmonth")
	 reselectday=request("selectday")
	 unitid=request("WND_USER_UNITID")
     sql="select * from WNT_USER where WND_USER_Order="&orderNumber&""
	 rs.open sql,conn,1,3
	 sql="select * from WNT_UNIT where WND_UNIT_ID="&unitid
	 rssub.open sql,conn,1,1
	 if not rs.eof then
	    rs("WND_USER_AREA")=rssub("WND_UNIT_Province")
		rssub.close
     end if
	 rs("WND_USER_USERNAME")=request("WND_USER_USERNAME")
	 rs("WND_USER_PASSWORD")=request("WND_USER_PASSWORD")
	 
	 sql="select * from WNT_UNIT where WND_UNIT_ID="&request("WND_USER_UNITID")
	 rssub.open sql,conn,1,1
	 if not rssub.eof then
	   user_dwbm=rssub("UNIT_BM")
	 end if
	 rssub.close
	 
	 rs("USER_DWBM")=user_dwbm
	 rs("WND_USER_UNITID")=request("WND_USER_UNITID")
	 rs("WND_USER_TYPE")=request("userType")
	 rs("WND_USER_TIME")=reselectyear&"-"&reselectmonth&"-"&reselectday
	 rs("WND_USER_WHO")=request("WND_USER_WHO")
	 rs("WND_USER_DATE")=date()
     rs("WND_USER_VALID")=true
	 rs.update
	 rs.close
response.Redirect "WNP_USER_EDIT.ASP"
	 end if
end if
%>