麻烦高手详细翻译下ASP 谢谢~

来源:百度知道 编辑:UC知道 时间:2024/05/01 17:30:39
<%
UserID = request.QueryString("UserID")
%>

<%
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_EmpMain_STRING
MM_editQuery = "delete from UserRight where id = " & UserID & ""
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
call fnCreateLog("删除系统用户")
%>

<%
UserID = request.QueryString("UserID") '获取地址栏传过来的变量ID
%>

<%
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_EmpMain_STRING
MM_editQuery = "delete from UserRight where id = " & UserID & "" '从数据库中查找ID
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute '执行命令
call fnCreateLog("删除系统用户") '调用写入日志
%>

<%
UserID = request.QueryString("UserID") '得到用户的ID号
%>

<%
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_EmpMain_STRING
MM_editQuery = "delete from UserRight where id = " & UserID & "" '建立与数据表的连接并删除刚的到用户ID的帐号
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
call fnCreateLog("删除系统用户") '提示删除成功
%>

从数据库删除用户ID的权限,