<%@ Language=VBScript%>
<%'该文件需要进行调整和设置
dim typename
NewsID=Request.QueryString("NewsID")
if newsid="" then
Response.Write "未指定参数"
else
conn.execute("update News Set Click=click+1 where NewsID=" & NewsID )
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="" then
rs.Source="select * from News where checkked=1 and newslevel=0 and newsid="&newsid
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs.Source="select * from News where checkked=1 and newslevel<=3 and newsid="&newsid
end if
if Request.cookies("reglevel")=2 then
rs.Source="select * from News where checkked=1 and newslevel<=2 and newsid="&newsid
end if
if Request.cookies("reglevel")=1 then
rs.Source="select * from News where checkked=1 and newslevel<=1 and newsid="&newsid
end if
end if
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs.Source="select * from News where newsid="&newsid
end if
else
rs.Source="select * from News where newsid="&newsid
end if
rs.Open rs.Source,conn,1,1
if rs.bof and rs.eof then
response.write "无权限访问或无此内容"
else
bigclassid=rs("bigclassid")
smallclassid=rs("smallclassid")
title=trim(rs("title"))
title=replace(title," ","")
title1=trim(rs("title"))
about=trim(rs("about"))
Author=trim(rs("Author"))
editor=trim(rs("editor"))
Original=trim(rs("Original"))
image=rs("image")
UpdateTime=trim(rs("UpdateTime"))
News_Content=rs("Content")
SpecialID=rs("SpecialID")
SpecialID2=rs("SpecialID2")
click=rs("click")
EnCode=trim(rs("EnCode"))
typeid=rs("typeid")
titletype=rs("titletype")
titlesize=rs("titlesize")
titlecolor=rs("titlecolor")
titleface=rs("titleface")
if titlesize=0 then
size="18px"
else
if titlesize=1 then
size="8px"
else
if titlesize=2 then
size="10px"
else
if titlesize=3 then
size="12px"
else
if titlesize=4 then
size="14px"
else
if titlesize=5 then
size="18px"
else
if titlesize=6 then
size="24px"
else
if titlesize=7 then
size="36px"
end if
end if
end if
end if
end if
end if
end if
end if
rs.Close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type where typeID=" & typeID
rs.Open rs.Source,conn,1,1
typename=rs("typename")
rs.Close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from bigclass Where BigClassid=" & BigClassid
rs.Open rs.Source,conn,1,1
bigclassname=rs("bigclassname")
rs.close
set rs=nothing
if smallclassid<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from smallclass Where smallClassid=" & smallClassid
rs.Open rs.Source,conn,1,1
smallclassname=rs("smallclassname")
rs.close
set rs=nothing
end if
%>
举报信箱
□□□□□□□□□□□□□□□□