deleteuser.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 80 行

ASP
80 行
字号 
<%@ Language=VBScript %>

<!--#include virtual="/Include/Option.asp"-->
<!--#include virtual="/Include/Const.asp"-->
<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<!--#include file="Function.asp"-->
<html>
<head>
<title><%=Application("Site_Name")%>--DeleteUsers</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content=" ">
<link rel="stylesheet" href="../Css/Css.css" type="text/css">
<script language="Javascript" src="/JS/CheckInput.js"></script>
</head>
<body>
<!--#Include file = "Menu.asp" -->
<!------------------------->
<!--删除Users-->
<!--注意事项-->
<!-- 以下内容由程序自动生成 -->
<%
	Dim Check
	Dim Count
	Dim DoType
	Dim i
	Dim ErrMsg

	
	Check = Split(Request("ListCheck").Item)
	Count=Ubound(Check)
	DoType=Request.Form("DoType")
	
	Select Case  DoType
		Case "删除"

			For i=1 to Count+1
				'删除记录
				Conn.Execute "Delete From Users Where UserID="&Request("ListCheck").Item(i)&""
				'ErrMsg = DeleteMember( Request("ListCheck").Item(i) )

			Next

				'####################################################
		Case "开放"

			For i=1 to Count+1
				'更新记录
				Conn.Execute "Update Users Set State=1 Where UserID="&Request("ListCheck").Item(i)&""
				'ErrMsg = UpStateMember( Request("ListCheck").Item(i) , 1)
			Next

				'记录操作日志 End
				'####################################################
		Case "关闭"
			For i = 1 to Count + 1
				'更新记录
				Conn.Execute "Update Users Set State=0 Where UserID="&Request("ListCheck").Item(i)&""
				'ErrMsg = UpStateMember( Request("ListCheck").Item(i) , 0)
			Next

	End Select
	
		
	If Err.number <> 0  Then
		Response.Write "<p>发生错误！</p>"
		Response.Write "<p>错误号：" & Err.number & "</p>"
		Response.Write "<p>错误描述：" & Err.Description  & "</p>"
	Else
		Response.Write "<p>操作成功！</p>"
		Response.Redirect "UserManage.asp"
	End If
		
	Response.Write "<p><input type=""button"" name=""btnBack"" value=""返  回"" onclick=""window.history.go(-2)""></p>"
%>
<!------------------------->
<!--#include virtual="/Include/DBClose.asp"-->
</body>
</html>

deleteuser.asp - 源码说明

本页面展示了「ASP编写的一个公司网站的源程序」中的 deleteuser.asp 源码文件，采用 ASP 编程语言编写，共 80 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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