bs_download_check_set.asp

多风格网站管理系统 进行网站的综合管理 后台数据库系统

<!--#include file="bsconfig.asp"-->
<!--#include file="../Inc/Config.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
'=========================================================
'
'产品名称：科技 公司(企业)网站管理系统（简称：www.web300.cn）
'版权所有：www.web300.cn
'程序制作：[e-mail]
'联系 方式：QQ ：812256
'Copyright 2006-2008 www.web300.cn - All Rights Reserved. 
'
'========================================================
%>
<%
dim Bs_DownID,Action,sqlDel,rsDel,FoundErr,ErrMsg,PurviewChecked,ObjInstalled

Bs_DownID=trim(request("Bs_DownID"))
Action=Trim(Request("Action"))
FoundErr=False
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")

if Bs_DownID="" or Action="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
end if
if FoundErr=False then
	if instr(Bs_DownID,",")>0 then
		dim idarr,i
		idArr=split(Bs_DownID)
		for i = 0 to ubound(idArr)
			call CheckArticle(clng(idarr(i)),Action)
		next
	else
		call CheckArticle(clng(Bs_DownID),Action)
	end if
end if
if FoundErr=False then
	call CloseConn()
	response.Redirect "Bs_Download_Check.asp"
else
	call CloseConn()
	call WriteErrMsg()
end if

sub CheckArticle(ID,CheckAction)
	PurviewChecked=False
	sqlDel="select * from Bs_Download where Bs_DownID=" & CLng(ID)
	Set rsDel= Server.CreateObject("ADODB.Recordset")
	rsDel.open sqlDel,conn,1,3
	if rsDel.bof and rsDel.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到文章：" & rsDel("Bs_DownID") & " </li>"
	end if
		if CheckAction="Check" then
			rsDel("Bs_Passed")=True
		elseif CheckAction="CancelCheck" then
			rsDel("Bs_Passed")=False
		end if
		rsDel.update
		set rsDel=nothing
end sub
%>