changelevel.asp
来自「这是我做的毕业设计,企业管理系统.ASP连接SQL数据库,基本功能已经实现」· ASP 代码 · 共 85 行
ASP
85 行
<HTML>
<HEAD><TITLE>更改用户的级别权限</TITLE></HEAD>
<meta http-equiv="Content-Type"content="text/html;charset=gb2312">
</HEAD>
<BODY bgcolor="#abbaaa">
<%
dim cnn, rst ,ssql, hy_id ,level
if session("hy_id")="" or session("level")<>3 then
response.write "<p>您没有访问本页的权限！</p>"
response.end
end if
username=trim(request.form("txtusername"))
level=request.form("optlevel")
set cnn=server.createobject("adodb.connection")
set rst= server.createobject("adodb.recordset")
cnn.connectionstring="provider=sqloledb;data source=(local);"&_
"uid=sa;pwd=0335;database=vod"
cnn.open
ssql="select * from member where hy_id='"&username&"'"
set rst=cnn.execute(ssql, ,adcmdtext)
%>
<p><a href="vod1.asp">返回首页</a></p>
<hr width="100%" noshade size="1" color="red">
<tr><td> </td><td> </td></tr>
<div align="center">
<table align="center" cellpadding="3" cellspacing="3" width="400">
<form name="form1" method = "post" action = "changelevel.asp">
<tr>
<font color ="#116666" size="5"> 更 改 用 户 权 限 级 别</font>
</tr>
<tr>
<td> </td><td> </td>
</tr>
<tr>
<td align ="right">用户名:</td>
<td><input type="text" name="txtusername" size="20">
</td>
</tr>
<tr><td> </td><td> </td></tr>
<tr>
<td align="right">权限级别:</td>
<td>
<input type="radio" checked name="optlevel" value="1"><1>
<input type="radio" checked name="optlevel" value="2"><2>
<input type="radio" checked name="optlevel" value="3"><3>
</td>
</tr>
<tr>
<td> </td><td> </td>
</tr>
<tr align ="center">
<td>
<input type="submit" name="submit" value=" 提 交 ">
</td>
<td>
<input type="reset" name="submit2" value="全部重写">
</td>
</tr>
</form>
</table>
<table >
<tr><td> </td><td> </td></tr>
</table>
<%
'若未找到符合条件的记录
if username<>"" and rst.eof then%>
<align="center">
<%response.write"<font color=red>用户"&username&"不存在！</font>"
end if
if username<>"" and not rst.eof then
'更新数据
ssql="update member set level="&level&_
"where hy_id='"&username&"'"
cnn.execute ssql , , adcmdtext
response.write"<font color=red>用户"&username&"的权限已经更改为"&_
level &"级！</font>"
end if
%>
</div>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?