<% data_path="../../../" 'ACC连接数据库路径，对SQL无效 %>
<%
if request.Cookies("masterflag")="" or request.Cookies("masterflag")="" then
response.write ""
response.end
end if
'权限限制^^^^^^^^^^^^^^^^^^^^
dim ishavegant
ishavegant=false
in_str=split(request.Cookies("masterflag"),",")
for each ins in in_str
if trim(ins)="04" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../../err.asp"
response.end
end if
id=request.QueryString("id")
if Chkrequest(id) then
Sql="Select * from benming_ch_NewsCat where id="&id
Set Rs=Server.Createobject("ADODB.RecordSet")
Rs.open Sql,conn,1,1
if Rs.eof and rs.bof then
call HOPE_err("错误","分类不存在","返回","Class.asp")
Response.End
else
CatName=Rs("CatName")
CatName_en=Rs("CatName_en")
ORderID=Rs("ORderID")
Classpic=Rs("classpic")
Infotype=Rs("infotype")
Root=Rs("Root")
end if
Rs.Close
Set Rs=nothing
else
call HOPE_err("错误","分类不存在","返回","Class.asp")
Response.End
end if
%>