📄 changelevel.asp

📁 (1)开发学生成绩管理系统的总体任务是实现企学生管理的系统化和自动化.学生管理为学校提供学生质料管理,课程设置管理,成绩数据管理,访问权限管理等,为学生提供了方便的个人信息查询等. (2)本系统的主

💻 ASP

字号:

<HTML>
<HEAD>
<TITLE>更改用户的权限级别</TITLE>
<STYLE>
P, TABLE, INPUT{FONT-SIZE: 9pt}
</STYLE>  
</HEAD>
<BODY>
<%
Dim cnn, rts, sSQL, UserName, Level
If Session("UserName") = "" 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=g6;" & _
  "UID=sa;;DATABASE=test"
cnn.Open
sSQL = "SELECT * FROM users WHERE user_name='" & UserName & "'"
Set rst = cnn.Execute(sSQL, ,adCmdText)
%>
<P><A HREF = "index.asp">返回首页</A></P>
<DIV ALIGN = "center">
<P><B>更改用户的权限级别</B></P>
<HR NOSHADE SIZE = "1" COLOR = "red">
<FORM METHOD = "POST" ACTION = "changeLevel.asp">
<TABLE BGCOLOR = "#D6D3CE" CELLPADDING = "3" CELLSPACING = "3"
WIDTH = "379">
<TR>
<TH BGCOLOR = "#0053FF" COLSPAN = "2">
<FONT COLOR = "#FFFFFF">更改用户的权限级别</FONT></TH>
</TR>
<TR>
<TD>&nbsp;</TD><TD>&nbsp;</TD>
</TR>
<TR>
<TD ALIGN = "right">用户名：</TD>
<TD><INPUT TYPE = "text" NAME = "txtUserName" SIZE="20"
VALUE = <% = UserName %>></TD>
</TR>
<TR>
<TD ALIGN = "right">要设置的权限级别：</TD>
<TD>
<INPUT TYPE = "radio" CHECKED NAME = "optLevel" VALUE = "1">1
<INPUT TYPE="radio" NAME="optLevel" VALUE="2">2
<INPUT TYPE="radio" NAME="optLevel" VALUE="3">3
</TD>
</TR>
<TR>
<TD>&nbsp;</TD><TD>&nbsp;</TD>
</TR>
<TR ALIGN = "center">
<TD><INPUT TYPE = "submit" VALUE = "提交" NAME = "btnSubmit"></TD>
<TD><INPUT TYPE = "reset" VALUE = "全部重写" NAME = "btnReset"></TD>
</TR>
</TABLE>
</FORM>
<%
' 若未找到符合条件的记录
If UserName <> "" And rst.EOF Then
  Response.Write "<FONT COLOR = red>用户“" & UserName & "”不存在！</FONT>"
End If
If UserName <> "" And Not rst.EOF Then
  sSQL = "UPDATE users SET purview_level=" & Level & _
  " WHERE user_name='" & UserName & "'"
  ' 执行UPDATE语句，以更改用户的权限级别
  cnn.Execute sSQL, , adCmdText
  Response.Write "用户“"  & UserName & "”的权限级别已被更改为" & _
  Level & "级！"
End If
%>
</DIV>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -