modiy_user.asp

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

<%if session("LHB_MiMa")<>"" then%>
<!-- #include file="LHB_head.asp" -->
<!-- #include file="LHB_DHT_01.asp" -->
<table width="752" border="0" align="center" cellpadding="0" cellspacing="0" class="table4">
<tr>
<td><!-- #include file="LHB_DHT_02.asp" --></td>
</tr>
</table>
<!--#include file="config.asp"-->
<%
IID=trim(Request("id"))
sqlcmd = ("select a.*,b.L_MingCheng from LHB_USER_DATA a Left join LHB_GongYong b on (a.LHB_KeShi_FLBM=b.L_FenLeiBM and a.LHB_KeShiBM=b.L_MingChengBM) where a.id="&IID)          '查询id(ID号)这条记录
Lours.Open sqlcmd,Louconn,1,3

LHB_GongHao = Lours("LHB_GongHao")
LHB_MiMa = Lours("LHB_MiMa")
LHB_XingMing = Lours("LHB_XingMing")
LHB_Sex = Lours("LHB_Sex")
LHB_KeShiBM = Lours("LHB_KeShiBM")
LHB_Group = Lours("LHB_Group")
LHB_DengLuQX = Lours("LHB_DengLuQX")
L_MingCheng = Lours("L_MingCheng")
id = Lours("id")

Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
%>
<br>
<table width="406" border="0" cellspacing="0" cellpadding="0" align="center">
<form method="POST" action="update_user.asp?id=<%=id%>&<%=LHB_GongHao%>&<%=LHB_XingMing%>">
<tr>
<td height="25" colspan="3" align="center">只允许修改密码，若信息有误请联系管理员</td>
</tr>
<tr>
<td width="64" height="25" align="center">工号</td>
<td width="13" height="25">　</td>
<td width="329" height="25">
<input name="LouHB_GH" size="25" maxlength="30"  class="button1" value="<%=LHB_GongHao%>" <%if session("LHB_group")>="2" then %> readonly <%end if%>></td>
</tr>
<tr>
<td height="25" align="center">密码</td>
<td width="13" height="25">&nbsp;</td>
<td width="329" height="25">
<input name="LouHB_MM" type="password" class="button1" value="<%=LHB_MiMa%>" size="27" maxlength="30"></td>
</tr>
<tr>
<td height="25" align="center">密码确认</td>
<td height="25">&nbsp;</td>
<td height="25">
<input name="LouHB_MM2" type="password" class="button1" value="<%=LHB_MiMa%>" size="27" maxlength="30"></td>
</tr>
<tr>
<td height="25" align="center">姓名</td>
<td height="25">&nbsp;</td>
<td height="25"><input name="LouHB_XM" class="button1" value="<%=LHB_XingMing%>" size="25" maxlength="30" <%if session("LHB_group")>="2" then %> readonly <%end if%>></td>
</tr>
<tr>
<td height="25" align="center">性别</td>
<td height="25">&nbsp;</td>
<td height="25">
<%if session("LHB_group")<="1" then %><!--如果是系统管理员则执行此段代码-->
<select name="LouHB_sex" type="text" id="LouHB_Sex" size=1 class="button1">
<option value="1" <% if LHB_sex="1" then%>selected="selected"<%end if%>>男</option>
<option value="2" <% if LHB_sex="2" then%>selected="selected"<%end if%>>女</option></select>
<%else%><!--如果不是系统管理员则执行如下代码，防止用户随意更改性别-->
<%if LHB_sex="1" then
response.write("<input readonly class='button1' size='25' maxlength='30' value='男'>")
elseif LHB_sex="2" then
response.write("<input readonly class='button1' size='25' maxlength='30' value='女'>")
else
end if
%>
<input name="LouHB_sex" class="button1" size="25" maxlength="30" value="<%=LHB_sex%>" style="display:none">
<%end if%></td>
</tr>
<!--#include file="config.asp"-->
<tr>
<td height="25" align="center">科室</td>
<td height="25">&nbsp;</td>
<td height="25">
<%
L_FenLeiBM = 2

sqlcmd="select * from LHB_GongYong where L_FenLeiBM= '"& L_FenLeiBM &"'"
Lours.Open sqlcmd,Louconn,1,1

if Lours.EOF and Lours.BOF then
response.write("请先至管理科室页面添加科室")
else
%>
<%if session("LHB_group")<="1" then %><!--如果是系统管理员则执行此段代码-->
<select name="LouHB_KeShiBM" type="text" size=1 class="button1">
<%do while not Lours.eof%>
<option value="<%=Lours("L_MingChengBM")%>" <% if Lours("L_MingChengBM") = LHB_KeShiBM then%>selected="selected"<%end if%>><%=Lours("L_MingCheng")%></option>
<%
Lours.movenext
loop
%>
</select>
<%else%><!--如果不是系统管理员则执行如下代码，防止用户随意更改所在科室-->
<input readonly class="button1" size="25" maxlength="30" value="<%=L_MingCheng%>">
<input name="LouHB_KeShiBM" class="button1" size="25" maxlength="30" value="<%=LHB_KeShiBM%>" style="display:none">
<%end if
end if
Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
%>
</td>
</tr>
<tr>
<td height="25" align="center">分组</td>
<td height="25">&nbsp;</td>
<td height="25">
<%if session("LHB_group")<="1" then %><!--如果是系统管理员则执行此段代码-->
<select name="LouHB_group" type="text" id="LouHB_group" size=1 class="button1">
<option value="1" <% if LHB_group="1" then%>selected="selected"<%end if%>>系统管理员</option>
<option value="2" <% if LHB_group="2" then%>selected="selected"<%end if%>>超级管理员</option>
<option value="3" <% if LHB_group="3" then%>selected="selected"<%end if%>>管理员</option>
<option value="4" <% if LHB_group="4" then%>selected="selected"<%end if%>>一般用户</option>
</select>
<%else%><!--如果不是系统管理员则执行如下代码，防止用户随意更改所在组-->
<% if LHB_group="1" then
response.write("<input readonly class='button1' size='25' maxlength='30' value='系统管理员'>")
elseif LHB_group="2" then
response.write("<input readonly class='button1' size='25' maxlength='30' value='超级管理员'>")
elseif LHB_group="3" then
response.write("<input readonly class='button1' size='25' maxlength='30' value='管理员'>")
elseif LHB_group="4" then
response.write("<input readonly class='button1' size='25' maxlength='30' value='一般用户'>")
end if
%>
<input name="LouHB_group" class="button1" size="25" maxlength="30" value="<%=LHB_group%>" style="display:none">
<%end if%></td>
</tr>
<tr>
<td height="25" align="center">登录权限</td>
<td>&nbsp;</td>
<td>
<%if session("LHB_group")<="2" then %><!--如果是系统管理员则执行此段代码-->
<select name="LouHB_DengLuQX" type="text" id="LouHB_DengLuQX" size=1 class="button1">
<option value="0" <% if LHB_DengLuQX="0" then%>selected="selected"<%end if%>>允许登录</option>
<option value="1" <% if LHB_DengLuQX="1" then%>selected="selected"<%end if%>>不允许登录</option>
<option value="2" <% if LHB_DengLuQX="2" then%>selected="selected"<%end if%>>注销该用户</option>
</select>
<%else%><!--如果不是系统管理员则执行如下代码，防止用户随意更改所在组-->
<% if LHB_DengLuQX="0" then
response.write("<input readonly class='button1' size='25' maxlength='30' value='允许登录'>")
elseif LHB_DengLuQX<>"0" then
response.write("<input readonly class='button1' size='25' maxlength='30' value='不允许登录'>")
end if
%>
<input name="LouHB_DengLuQX" class="button1" size="25" maxlength="30" value="<%=LHB_DengLuQX%>" style="display:none">
<%end if%>
</td>
</tr>
<tr>
<td height="25" align="center">说明</td>
<td></td>
<td>1、凡是离开本院的职工请使用注销功能（如退休、辞职等）<br>
2、注销后不能登录，个人资料仍保存在数据库中。</td>
</tr>
<tr>
<td height="25" colspan="3">　　　　　　　　
<input class="button1" name="modiyuser" type="submit" value="修改记录">
<input class="button1" name="modiyuser2" type="reset" value="重新填写"></td>
</tr>
</form>
</table>
<br>
<!--#include file="LHB_copy.asp"-->
<%
else
Response.Redirect "login.asp"
end if
%>