?? wnp_user_save.asp
字號:
<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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -