member_del.asp

来自「这是一个物流网站的源代码」· ASP 代码 · 共 37 行

ASP
37
字号
<!--#include file="../inc/Config.asp"-->
<%
Dim Language
delid=Request("delid")
if delid="" then 
	response.Redirect(request.servervariables("HTTP_REFERER"))
	response.End
end if
%>
<!--#include file="../inc/conn.asp"-->
<%
errorstr="<center>已经成功删除您所选<a href='Member_Admin.asp'>返回</a></center>"
	sql="select * from Members where id in (" & delid & ")"
	set rsdel=createobject("adodb.recordset")
	rsdel.open sql,conn,1,3
	while not rsdel.eof
		rsdel.delete
		rsdel.update
		rsdel.movenext
	wend
	rsdel.close
	set rsdel=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="css_admin.css" rel="stylesheet" type="text/css">
</head>

<body>
<%	response.write errorstr %>
</body>
</html>


⌨️ 快捷键说明

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