delete.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 15 行

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
	Dim objDB,strSQL
	Dim IntIDs

	IntIDs=Request.QueryString("IDs")
	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB objDB

	strSQL = "Update t_OA_EI_DataUP set IsValid=0 Where ID IN(" & IntIDs & ")" 
	objDB.Execute(strSQL)
	Response.Redirect "List.asp"
%>