📄 deluser.asp

📁 单版面小型论坛单版面小型论坛

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="func.asp"-->
<%
logchk session("userid"),session("password")

if session("userid")<>"" and session("password")<>"" and session("manbid")=0 then
    id=request.querystring("id")
    if isempty(id) or id="" then
    	errmsg="删 除 ID 错 误 ！"
    	errshow(errmsg)
    else
    set delreco=server.createobject("adodb.recordset")
    sqlstr="delete from manboard where id=" &id
    delreco.open sqlstr,conn
    if err.number<>0 then
                 response.write "数据库操作失败："&err.description
    end if
%>
<html>
<head>
<title>my bbs－删除用户</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body bgcolor="#FFFFFF" background="images/bg.gif">
<table width="100%" border=0 class=buinput>
  <tr>
    <td align='center'>成 功 删 除 该 用 户 ！</td>
  </tr>
  <tr>
    <td align='center' class=trtop>刷 新 便 可 ！</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td align='center'>[ <a href="#" onclick="javascript:self.close()" title="关闭此窗口">关闭窗口</a> ]</td>
  </tr>
</table>
</body>
</html>
<%
    end if
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -