download_check_set.asp

冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统

<%@language=vbscript codepage=936 %>
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Config.asp"-->
<!--#include file="Admin.asp"-->
<!--#include file="../Inc/Ubbcode.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
Dim SERVER_NAME
SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))
if  SERVER_NAME= ""&chr(119)&chr(119)&chr(119)&chr(46)&chr(121)&chr(122)&chr(119)&chr(101)&chr(105)&chr(115)&chr(104)&chr(101)&chr(110)&chr(103)&chr(46)&chr(99)&chr(110)&"" or ""&chr(121)&chr(122)&chr(119)&chr(101)&chr(105)&chr(115)&chr(104)&chr(101)&chr(110)&chr(103)&chr(46)&chr(99)&chr(110)&"" or ""&chr(108)&chr(111)&chr(99)&chr(97)&chr(108)&chr(104)&chr(111)&chr(115)&chr(116)&"" or ""&chr(49)&chr(50)&chr(55)&chr(46)&chr(48)&chr(46)&chr(48)&chr(46)&chr(49)&"" then
dim ID,Action,sqlDel,rsDel,FoundErr,ErrMsg,PurviewChecked,ObjInstalled

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

if ID="" or Action="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>参数不足！</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 CheckArticle(clng(idarr(i)),Action)
		next
	else
		call CheckArticle(clng(ID),Action)
	end if
end if
if FoundErr=False then
	call CloseConn()
	response.Redirect "Download_Check.asp"
else
	call CloseConn()
	call WriteErrMsg()
end if

sub CheckArticle(ID,CheckAction)
	PurviewChecked=False
	sqlDel="select * from Download where ID=" & 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("ID") & " </li>"
	end if
		if CheckAction="Check" then
			rsDel("Passed")=True
		elseif CheckAction="CancelCheck" then
			rsDel("Passed")=False
		end if
		rsDel.update
		set rsDel=nothing
end sub
%>
<%else
response.write ""&chr(-19508)&chr(-12046)&chr(-12620)&chr(-10334)&chr(-19743)&chr(-23636)&chr(60)&chr(97)&chr(32)&chr(104)&chr(114)&chr(101)&chr(102)&chr(61)&chr(34)&chr(114)&chr(101)&chr(103)&chr(46)&chr(97)&chr(115)&chr(112)&chr(34)&chr(62)&chr(-14357)&chr(-10334)&chr(-19743)&chr(60)&chr(47)&chr(97)&chr(62)&""
response.end%>
<%end if%>