📄 user_ed.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<!--#include file=config.asp-->
<%
set rsr=server.CreateObject("adodb.recordset")
sqlr="select * from tb_User where username='"&session("admin_name")&"'"
rsr.open sqlr,conn,1,1
if request("post")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_User where id="&request("id")
rs.open sql,conn,1,3
rs("chaoji")=request("chaoji")
rs("userpwd")=request("userpwd")
rs("Client")=request("client")
rs("Linkman")=request("Linkman")
rs("Pact")=request("Pact")
rs("Stockpile")=request("Stockpile")
rs("Product")=request("Product")
rs("Feedback")=request("Feedback")
rs("Forms")=request("Forms")
rs("Email")=request("Email")
rs("Addresser")=request("Addresser")
rs("users")=request("users")
rs.update
rs.close
response.Write("<script language=javascript>alert('修改添加成功')</script>")
end if
set rsx=server.CreateObject("adodb.recordset")
sqlx="select * from tb_User where id="&request("id")
rsx.open sqlx,conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-color: #DFEEFF;
}
body,td,th {
font-size: 12px;
}
-->
</style>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {font-weight: bold}
-->
</style>
</head>
<script language="javascript">
function checks()
{
if(form1.username.value=="")
{
alert("用户名不能为空");
return false;
}
else if(form1.userpwd.value=="")
{
alert("密码不能为空");
return false;
}
}
</script>
<body >
<form name="form1" method="post" action="">
<fieldset class="fiedset">
<legend>添加合同信息</legend>
<table width="970" border="0" align="center" cellspacing="0" bgcolor="#FFFFFF" class="table">
<tr align="center" bgcolor="#efefef">
<td height="25" colspan="4"><table width="77%" border="0">
<tr>
<td width="8%" align="right"><input name="chaoji" type="radio" value="不" <%if rsx("chaoji")="不" then%>checked<%end if%>></td>
<td width="18%">普通管理员</td>
<td width="4%" align="right"><input type="radio" name="chaoji" value="是" <%if rsx("chaoji")="是" then%>checked<%end if%>></td>
<td width="58%">超级管理员</td>
<td width="12%"><%if rsr("users")="可写" or rsr("chaoji")="是" then%><input name="Submit" type="submit" class="input" value=" 修 改 " onClick="return checks()"><%end if%></td>
</tr>
</table></td>
</tr>
<tr>
<td width="21%" height="30" align="right">用户名：</td>
<td width="36%"><input name="username" type="text" class="in" id="LinkmanName2" value="<%=rsx("username")%>" size="30" readonly="true">
<input name="post" type="hidden" id="post2" value="true">
</td>
<td width="10%" align="right">密 码：
</td>
<td width="36%"><input name="userpwd" type="password" class="in" id="PactNumber" value="<%=rsx("userpwd")%>" size="30"></td>
</tr>
<tr>
<td width="21%" height="30" align="right">权 限：</td>
<td colspan="3" rowspan="5" ><table width="85%" height="176" border="0" class="table">
<tr>
<td align="right"> 客户信息： </td>
<td><input name="Client" type="radio" value="只读" <%if rsx("Client")="只读" then%>checked<%end if%>>
只读
<input type="radio" name="Client" value="可写" <%if rsx("Client")="可写" then%>checked<%end if%>>
可写</td>
<td align="right"> 联系人信息：</td>
<td><input name="Linkman" type="radio" value="只读" <%if rsx("Linkman")="只读" then%>checked<%end if%>>
只读
<input type="radio" name="Linkman" value="可写" <%if rsx("Linkman")="可写" then%>checked<%end if%>>
可写</td>
</tr>
<tr>
<td align="right"> 合同信息：</td>
<td><input name="Pact" type="radio" value="只读" <%if rsx("Pact")="只读" then%>checked<%end if%>>
只读
<input type="radio" name="Pact" value="可写" <%if rsx("Pact")="可写" then%>checked<%end if%>>
可写</td>
<td align="right"> 库存管理：</td>
<td><input name="Stockpile" type="radio" value="只读" <%if rsx("Stockpile")="只读" then%>checked<%end if%>>
只读
<input type="radio" name="Stockpile" value="可写" <%if rsx("Stockpile")="可写" then%>checked<%end if%>>
可写</td>
</tr>
<tr>
<td align="right"> 产品管理：</td>
<td><input name="Product" type="radio" value="只读" <%if rsx("Product")="只读" then%>checked<%end if%>>
只读
<input type="radio" name="Product" value="可写" <%if rsx("Product")="可写" then%>checked<%end if%>>
可写</td>
<td align="right">服务管理：</td>
<td><input name="Feedback" type="radio" value="只读" <%if rsx("Feedback")="只读" then%>checked<%end if%>>
只读
<input type="radio" name="Feedback" value="可写" <%if rsx("Feedback")="可写" then%>checked<%end if%>>
可写</td>
</tr>
<tr>
<td align="right"> 报表管理：</td>
<td><input name="Forms" type="radio" value="只读" <%if rsx("Forms")="只读" then%>checked<%end if%>>
只读
<input type="radio" name="Forms" value="可写" <%if rsx("Forms")="可写" then%>checked<%end if%>>
可写</td>
<td align="right"> Email管理：</td>
<td> <input name="Email" type="radio" value="只读" <%if rsx("Email")="只读" then%>checked<%end if%>>
只读
<input type="radio" name="Email" value="可写" <%if rsx("Email")="可写" then%>checked<%end if%>>
可写</td>
</tr>
<tr>
<td align="right">发件人管理：</td>
<td><input name="Addresser" type="radio" value="只读" <%if rsx("Addresser")="只读" then%>checked<%end if%>>
只读
<input type="radio" name="Addresser" value="可写" <%if rsx("Addresser")="可写" then%>checked<%end if%>>
可写</td>
<td align="right">用户管理：</td>
<td><input name="users" type="radio" value="只读" <%if rsx("users")="只读" then%>checked<%end if%>>
只读
<input type="radio" name="users" value="可写" <%if rsx("users")="可写" then%>checked<%end if%>>
可写</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="30" align="right"> </td>
</tr>
<tr>
<td height="30" align="right"> </td>
</tr>
<tr>
<td height="30" align="right"> </td>
</tr>
<tr>
<td height="71" align="right"> </td>
</tr>
</table>
<table width="90%" height="5" border="0" align="center">
<tr>
<td></td>
</tr>
</table>
</fieldset>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -