<% 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
newsid=Request.QueryString("newsid")
Sql="Select * from benming_ch_news where newsid="&newsid
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.open Sql,Conn,1,1
if Rs.eof=False and Rs.bof=False then
title=Rs("title")
title_en=Rs("title_en")
linkstr=Rs("linkstr")
key=Rs("key")
key_en=Rs("key_en")
desc=Rs("desc")
desc_en=Rs("desc_en")
Dateandtime=Rs("Dateandtime")
content=Rs("content")
content_en=Rs("content_en")
typeid=Rs("typeid")
picture=rs("picture")
memourl=rs("memourl")
videourl=rs("videourl")
videostr=rs("videostr")
tjhome=Rs("tjhome")
bigpic=Rs("bigpic")
OtherPic=Rs("OtherPic")
motekapic=Rs("motekapic")
motedate=Rs("motedate")
end if
Rs.close
Set Rs=nothing
%>