update_user.asp

这是一个很好的图书管理借阅登记系统,有这爱好的可以下载下来看看,很完整的

<%if session("LHB_MiMa")<>"" then%>
<%
dim IIID
IIID=request("id")
%>

<%
if request("LouHB_GH")="" or request("LouHB_MM")="" or Request("LouHB_XM")="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('所有项目不能为空！');" & "history.back()" & "</script>" 
    Response.End
	end if
	
'LHB_GongHao=request("LouHB_GH")
'if LHB_GongHao<>session("LHB_GongHao") then
'response.write "<script language=JavaScript>" & chr(13) & "alert('工号是管理员指定唯一的，不能修改！');" & "history.back()" & "<script>" 
'Response.End
'end if

LHB_MiMa=request("LouHB_MM")
LHB_MiMa2=request("LouHB_MM2")

if LHB_MiMa<>LHB_MiMa2 then
    response.write "<script language=JavaScript>" & chr(13) & "alert('您两次输入的密码不一致，请核对后重新输入！');" & "history.back()" & "</script>"
    Response.End
end if

LHB_GongHao=request("LouHB_GH")
LHB_MiMa=request("LouHB_MM")
LHB_XingMing=request("LouHB_XM")
LHB_sex=request("LouHB_sex")
LHB_KeShiBM=request("LouHB_KeShiBM")
LHB_group=request("LouHB_group")
LHB_DengLuQX=Request("LouHB_DengLuQX")

Select Case LHB_DengLuQX
Case 0,1
LHB_ZhuXiao_RiQi= null
Case 2
LHB_ZhuXiao_RiQi=Date()
End Select
%>
<!-- #include file="config.asp" -->
<%
'set Lours=Louconn.execute("update admin(LHB_GongHao,LHB_MiMa,LHB_XingMing,LHB_sex,LHB_KeShiBM)values('"&LHB_GongHao&"','"&LHB_MiMa&"','"&LHB_XingMing&"','"&LHB_sex&"','"&LHB_KeShiBM&"')")
sql="update LHB_USER_DATA set LHB_GongHao='"&LHB_GongHao&"',LHB_MiMa='"&LHB_MiMa&"' ,LHB_XingMing='"&LHB_XingMing&"' ,LHB_sex='"&LHB_sex&"' ,LHB_KeShiBM='"&LHB_KeShiBM&"',LHB_group='"&LHB_group&"',LHB_DengLuQX='"&LHB_DengLuQX&"',LHB_ZhuXiao_RiQi='"&LHB_ZhuXiao_RiQi&"' where id="&IIID
'response.write sql
'response.end
Lours.Open sql,Louconn,1,3

set Lours=nothing
set Louconn=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('个人资料更新成功');"&"window.location.href = 'LHB_user.asp'"&" </script>" 
%>
<%else
Response.Redirect "login.asp"
end if%>