📄 admin_user_do.asp

📁 9seek 留言本源代码5.0版

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file=const.asp -->
<%
if not theUser.admin then
	connclose()
	response.redirect ("index.asp")
end if


dim xxid,lei, exec,rs
xxid=encodestr(request("id"))
lei=encodestr(request("lei"))
exec="select * from [user] where userid="&xxid
set rs=conn.execute(exec)
if rs.eof then
	rsclose()
	connclose()
	session("errmsg")="该用户不存在！！！"
	response.redirect("admin_error.asp")
end if
select case lei
	case "addman"
		exec="update [user] set userClass=19 where userid=" + CStr(xxid)
		conn.execute(exec)
	case "delman"
		exec="update [user] set userClass=1 where userid=" + CStr(xxid)
		conn.execute(exec)
		case "delete"
		exec="delete from [user] where userid=" + CStr(xxid)
		conn.execute(exec)
		exec="update GBconst set userNum=userNum-1"
		conn.execute(exec)
end select
connclose()

%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitetitle%></title>
<META name="Author" content="木鸟">
<link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
</head>

<body>
<script language="JavaScript">
<!--
function namosw_goto(url, targetstr)
{
  if (url == 'backward')
    history.back(1);
  else if (url == 'forward')
    history.forward(1);
  else {
     if (targetstr == 'blank') {
       window.open(url, 'win1');
     } else {
       var frameobj;
       if ((frameobj = eval(targetstr)) != null)
       frameobj.location = url;
     }
  }
}

// -->
</script>
<!--#include file="head.asp"-->
      
<br>
<br>
<table border="0" width="40%" cellspacing="0" cellpadding="10" align="center" class="table004">
 <tr> 
  <td width="100%" class="table001"> 
   <p align="center" style="line-height: 200%"><font color="#FF0000"><b>管理成功了！！！</b></font><br>
	继续努力呀！！！<br>
	哈哈！！！ 
   <form name="form">
	<p align="center"> 
	 <input type="button" value="返回前页" OnClick="namosw_goto('backward')" class="input2" >
	</p>
   </form>
   <p align="center">：：： <a href="index.asp">返 回 留 言 首 页 面</a> ：：：<br>
  </td>
 </tr>
</table>

<!--#include file="foot.asp"-->

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -