📄 usercode_confirm_edit.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="0203"%>
<!--#include file="../Include/ModuleUserCheck.asp"-->
<%
strsql=Request.QueryString ("strsql")
usercode=Request.QueryString ("code")
page=Request.QueryString ("page")
topdepartcode=left(usercode,3)
'取出当前用户的user表中的记录
set objres1=server.CreateObject ("adodb.recordset")
objres1.CursorType =3
objres1.CursorLocation =3
objres1.LockType =2
strsql1="select * from xt_tc_user where 用户编码='"+usercode+"'"
objres1.Open strsql1,strconn
'取出当前用户所在主管部门的所有处室
set objres=server.CreateObject ("adodb.recordset")
objres.CursorType =3
objres.CursorLocation =3
objres.LockType =2
strsql2="select * from xt_tc_depart where left(部门编码,3)='"+topdepartcode+"'"
objres.Open strsql2,strconn
%>
<%
'提交后用户信息设置存入数据库
edit=Request.QueryString ("edit")
if not edit="" then
depart=request("depart")
youxiao=request("youxiao")
strsql="update xt_tc_user set 部门编码='"+depart+"',有效标志='"+youxiao+"' where 用户编码='" +usercode+"'"
conn.execute strsql,1
Response.Redirect "/system/SystemUser_EditList.asp?code="+usercode+"&strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(Request.QueryString ("page"))
end if
%>
<html>
<head>
<title>用户信息设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../CssLib/Cssbutton.css">
</head>
<body text="#000000" bgcolor="#ffffff">
<img src="Images/title_edit_userinfo.gif" width="200" height="27"><font color="#00CCFF" size="1">★★★★★<font color="#00CCFF" size="1">★★★★★</font><font color="#00CCFF" size="1">★★★★★</font><font color="#00CCFF" size="1">★★★★★</font>★★</font><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="22" height="20"><img src="../public/images/edit_bg_zs.gif" width="21" height="20"></td>
<td background="../public/images/bg_left.gif" bgcolor="#0099FF">
<div align="center"></div>
</td>
<td width="10"><img src="../public/images/edit_bg_ys.gif" width="21" height="20"></td>
</tr>
<tr>
<td background="../public/images/bg_left.gif"> </td>
<td bgcolor="#FFFFFF" height="200">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="#FFFFFF">
<td height="20" width="6%"> </td>
<td height="20" width="31%"> </td>
<td height="20" width="54%"> </td>
<td height="20" width="9%"> </td>
</tr>
<form name="conlist" method="post" action="../user/usercode_confirm_edit.asp?code=<% = usercode %>&strsql=<%=server.URLEncode (strsql)%>&page=<% =Request.QueryString ("Page")%>&edit=edit">
<tr bgcolor="#EAEAEA">
<td height="20" width="6%" bgcolor="#EAEAEA"> </td>
<td height="20" width="31%" bgcolor="#EAEAEA">
<div align="center">用户姓名</div>
</td>
<td height="20" width="54%"> <%=objres1("用户姓名")%></td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="white">
<td height="20" width="6%"> </td>
<td height="20" width="31%" bgcolor="white">
<div align="center"></div>
</td>
<td height="20" width="54%"> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#EAEAEA">
<td height="20" width="6%" bgcolor="#EAEAEA"> </td>
<td height="20" width="31%" bgcolor="#EAEAEA">
<div align="center">用户编码</div>
</td>
<td height="20" width="54%" bgcolor="#EAEAEA"><%=usercode%> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="white">
<td height="20" width="6%"> </td>
<td height="20" width="31%">
<div align="center"></div>
</td>
<td height="20" width="54%"> </td>
<td height="20" width="9%"> </td>
</tr>
<%if left(UserCode,3)="Kjj" then %>
<tr bgcolor="#EAEAEA">
<td height="20" width="6%"> </td>
<td height="20" width="31%" bgcolor="#EAEAEA">
<div align="center">处室分配</div>
</td>
<td height="20" width="54%">
<select name="Depart">
<option value="" <%if objres1("部门编码")="" then Response.write "selected" end if%>>
</option>
<%for i=1 to objres.RecordCount %>
<option value="<%Response.Write objres.Fields("部门编码").Value%>" <%if objres1("部门编码")=objres("部门编码")then Response.Write "selected" end if%>><%=objres.Fields("部门名称").Value %></option>
<%objres.MoveNext
next
objres.Close
%>
</select>
</td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="white">
<td height="20" width="6%"> </td>
<td height="20" width="31%">
<div align="center"></div>
</td>
<td height="20" width="54%"> </td>
<td height="20" width="9%"> </td>
</tr>
<%end if%>
<tr bgcolor="#EAEAEA">
<td height="20" width="6%"> </td>
<td height="20" width="31%" bgcolor="#EAEAEA">
<div align="center">有效</div>
</td>
<td height="20" width="54%">
<%
if not objres1("有效标志")="1" then checked="" else checked="checked" end if
%>
<input type="checkbox" name="youxiao" value="1" <%=checked%>>
</td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="white">
<td height="20" width="6%"> </td>
<td height="20" width="31%">
<div align="center"></div>
</td>
<td height="20" width="54%"> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" colspan="4">
<div align="center">
<input class="button" type="submit" name="Submit4" value="提交">
<input class="button" type="reset" name="Submit22" value="重填">
</div>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" width="6%"> </td>
<td height="20" width="31%"> </td>
<td height="20" width="54%" bgcolor="#FFFFFF"> </td>
<td height="20" width="9%"> </td>
</tr>
</form>
</table>
</td>
<td bgcolor="#FFFFFF" background="../public/images/bg_left.gif"> </td>
</tr>
<tr>
<td width="22"><img src="../public/images/edit_bg_zx.gif" width="21" height="20"></td>
<td bgcolor="#FFFFFF" background="../public/images/bg_left.gif" height="20"> </td>
<td width="10">
<div align="right"><img src="../public/images/edit_bg_yx.gif" width="21" height="20"></div>
</td>
</tr>
</table>
</body>
</html>
<script language="vbscript">
function checkfun() '校验表单
checkfun=true
if ConList.ModuleCode.value="" then
checkfun=false
window.alert "模块编码不能为空，请重新输入！"
exit function
end if
if ConList.ModuleName.value ="" then
checkfun=false
window.alert "模块名称不能为空，请重新输入！"
exit function
end if
if ConList.ModulePath.value ="" then
checkfun=false
window.alert "路径不能为空，请重新输入！"
exit function
end if
end function
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -