UC知道asp 后台删除用户代码
来源：百度知道 编辑：UC知道 时间：2024/05/17 04:09:26
<!--#include file="../include/config.asp"--> /连接数据库
<%
Call Deluser()
%>
<br><br>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#5C99DC">
<tr>
<td width="40%" background="images/bg.gif">管理员帐户</td>
<td width="15%" align="center" background="images/bg.gif">密码</td>
<td width="10%" align="center" background="images/bg.gif">操作</td>
<%
Dim PageNo
Dim mpage
dim PageNum
dim RCount
Dim adminname
Dim adminpws
PageNo = 18
call OpenDB()
sql = "Select * From coachinformation Order By id"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, DBConn, 1,1
If Not rs.EOF Then
c
<%
Call Deluser()
%>
<br><br>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#5C99DC">
<tr>
<td width="40%" background="images/bg.gif">管理员帐户</td>
<td width="15%" align="center" background="images/bg.gif">密码</td>
<td width="10%" align="center" background="images/bg.gif">操作</td>
<%
Dim PageNo
Dim mpage
dim PageNum
dim RCount
Dim adminname
Dim adminpws
PageNo = 18
call OpenDB()
sql = "Select * From coachinformation Order By id"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, DBConn, 1,1
If Not rs.EOF Then
c
sql = "DELETE FROM news_info WHERE news_id="& news_id &""
conn.execute(sql)
<!--#include file="../include/config.asp"-->
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from coachinformation where id="&request("id"),conn,1,3
if not rs.eof then
rs.delete
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>