<% 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
CatName=request.form("CatName")
CatName_en=request.form("CatName_en")
ORderID=request.form("ORderID")
Root=request.form("Root")
Set Rs=Server.Createobject("ADODB.RecordSet")
if request.QueryString("action")="add" then
Sql="Select * from benming_ch_NewsCat"
Rs.open Sql,conn,1,3
Rs.addnew
rs("CatName")=trim(CatName)
rs("CatName_en")=trim(CatName_en)
rs("classpic")=replace(Request.form("classpic"),"../../../U","../U")
rs("infotype")=request.Form("infotype")
rs("Root")=Root
rs("ORderID")=ORderID
Rs.update
Rs.close
set Rs=nothing
%>
操作成功
<%
elseif request.querystring("action")="del" then
id=request.querystring("id")
sql="delete from benming_ch_NewsCat where id="&id
Conn.execute(sql)
%>
操作成功