📄 bzcl.asp

📁 经过一些更改的留言板
💻 ASP
字号:
<!--#include file="data.asp"-->
<%
if not session("bz")="bz" then
 	connclose()
	session("errmsg")="管理员账号错误！！！"
    response.redirect "glerror.asp"
end if


dim xxid,lei, exec,rs
xxid=encodestr(request("id"))
lei=encodestr(request("lei"))
exec="select * from blyh where id="&xxid
set rs=conn.execute(exec)
if rs.eof then
	rsclose()
	connclose()
	session("errmsg")="该用户不存在！！！"
	response.redirect("glerror.asp")
end if
         select case lei
         case "addman"
            exec="update blyh set bz=1 where id=" + CStr(xxid)
			conn.execute(exec)
	     case "delman"
            exec="update blyh set bz=0 where id=" + CStr(xxid)
            conn.execute(exec)
	     case "delete"
            exec="delete from blyh where id=" + CStr(xxid)
            conn.execute(exec)
			exec="update const set userNum=userNum-1"
			conn.execute(exec)
         end select
connclose()

%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>:: 永久的回忆 ::</title>
<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="tj.asp"-->

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -