zwdel.asp

人事管理系统 人事管理系统 人事管理系统 人事管理系统

<!--#include file="inc/Conndb.asp"-->
<!--#include file="inc/Function.asp"-->
<!--#include file="inc/Config.asp"-->
<%
dim ID,Action,sqlDel,rsDel,FoundErr,ErrMsg,ObjInstalled
id=trim(request("id"))
Action=Trim(Request("Action"))
FoundErr=False
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")

if id="" or Action<>"Del" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>2?êy2?×?￡?</li>"
end if
if FoundErr=False then
	if instr(id,",")>0 then
		dim idarr,i
		idArr=split(id)
		for i = 0 to ubound(idArr)
			call DelArticle(clng(idarr(i)))
		next
	else
		call DelArticle(clng(id))
	end if
end if
if FoundErr=False then
	call CloseConn()
	response.Redirect "zwwh.asp"
else
	call CloseConn()
	call WriteErrMsg()
end if

sub DelArticle(ID)
	PurviewChecked=False
	sqlDel="select * from zwda where id=" & CLng(ID)
	Set rsDel= Server.CreateObject("ADODB.Recordset")
	rsDel.open sqlDel,conn,1,3
	if FoundErr=False then		
		rsDel.delete
		rsDel.update
		set rsDel=nothing
		'conn.execute "delete from Comment where id=" & CLng(ID)
	end if
end sub
%>