%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim ChannelID
ChannelID = 28
dim ClassID
ClassID = 376
dim ArticleID
ArticleID = 1149
dim Keyword
Keyword = "|石渠宝笈初编|"
dim AccessPermission
AccessPermission = 0
%>
<%
function InPms(nStr1,nStr2)
dim nStrArray1,nStrArray2,n1,n2,returnValue
returnValue = false
nStrArray1 = split(nStr1,",")
nStrArray2 = split(nStr2,",")
for each n1 in nStrArray1
for each n2 in nStrArray2
if isNumeric(n1) and isNumeric(n2) then
if CLng(n1) = CLng(n2) Then
returnValue = true
exit for
end if
end if
next
next
inPms = returnValue
end function
if not isEmpty(AccessPermission) then
if isNumeric(AccessPermission) then
if AccessPermission > 0 then
if not InPms(session("CnitcMemberPermission"),AccessPermission) then
response.Redirect("/Error.asp?err=权限不足!")
response.end
end if
end if
end if
end if
%>