📄 readnews.asp
字号:
<%@ Language=VBScript%>
<!--#include file=include/conn.asp -->
<!--#include file=include/config.asp -->
<%'该文件需要进行调整和设置
dim typename
NewsID=Request.QueryString("NewsID")
Page=Request.QueryString("page")
if page="" then
page=1
elseif not IsNumeric(page) then
response.write "<script>alert('非法参数');history.back()</script>"
response.end
end if
page=int(page)
if newsid="" then
response.write "<script>alert('未指定参数');history.back()</script>"
response.end
elseif not IsNumeric(newsid) then
response.write "<script>alert('非法参数');history.back()</script>"
response.end
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,"<br>","")
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")
editor=rs("editor")
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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%><%if smallclassid<>"" then%>_<%=SmallClassName%><%end if%>_<%=BigClassName%>_<%=typename%>_<%=jjgn%></title>
<LINK href=txt.css rel=stylesheet>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<style type="text/css">
.newstitle {COLOR: #000000; FONT-FAMILY:"宋体"; FONT-SIZE: 14px;line-height:1.5}
body {
margin-left: 0px;
margin-right: 0px;
}
</style>
<script language="JavaScript" type="text/JavaScript">
function fontZoom(size){
document.getElementById('fontZoom').style.fontSize=size+'px'
}
</SCRIPT>
</script>
</head>
<SCRIPT language=JavaScript>
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",50);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</script>
<body topmargin="0" marginheight="0" background="img/bg.gif">
<!--#include file=include/top.asp -->
<table width="778" align="center" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0" style="border-left: 1px solid #cccccc; border-right: 1px solid #cccccc">
<tr valign="top">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"> <table width="102%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#FFFFFF">
<td height="3" bgcolor="#FFFFFF"><img src="IMAGES/kb.gif" width="9" height="3"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100%" height="30" background="img/menu_bg.gif" class="daohang"> <img src="img/type01.gif" width="12" height="12" align="absmiddle"> 当前位置: <a class="daohang" href="./" >网站首页</a> - <a class="daohang" href="type.asp?typeid=<%=typeid%>"><%=typename%></a> - <a class="daohang" href="BigClass.asp?typeid=<%=typeid%>&BigClassid=<%=BigClassid%>" ><%=BigClassName%></a>
<%if smallclassid<>"" then%>
<span class="daohang"><strong> - </strong></span><a class=daohang href='SmallClass.asp?typeid=<%=typeid%>&BigClassID=<%=BigClassID%>&SmallClassID=<%=SmallClassID%>'><%=SmallClassName%></a>
<%end if%>
<%title1=replace(title1,"<br>","")%>
</strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#9b9b9b"><img name="" src="" width="1" height="1" alt=""></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" bgcolor="#FFFFFF"> 发表日期：<%=year(updateTime)%>年<%=month(updateTime)%>月<%=day(updateTime)%>日
<%if Original<>"" then%>
出处：<%=Original%>
<%end if%>
<%if Author<>"" then%>
作者：<%=Author%>
<%end if%>
编辑：<%=editor%>
有<%=click%>位读者读过此文 【字体：<A class=black href="javascript:fontZoom(16)">大</A> <A class=black href="javascript:fontZoom(14)">中</A> <A class=black href="javascript:fontZoom(12)">小</A>】</td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#9b9b9b"><img name="" src="" width="1" height="1" alt=""></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"> </td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table border="0" cellpadding="0" cellspacing="0" width="98%" align="center">
<tr>
<td width="100%" height="50" align="center" class="READNEWSTITLE"><%=title1%></td>
</tr>
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News where NewsID=" & NewsID
rs.Open rs.source,conn,1,1
typeid=rs("typeid")
Title=trim(rs("Title"))
image=rs("image")
dim mode
set rs11=server.CreateObject("ADODB.RecordSet")
rs11.Source="select * from type where typeid="&typeid&" order by typeid"
rs11.Open rs11.Source,conn,1,1
mode=rs11("mode")
rs11.close
set rs11=nothing
arr_Content=split(News_Content,"[---分页---]")
MaxPages=ubound(arr_Content)
%>
<tr>
<td width="100%" align="center"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" background="img/line_news.gif">
<tr>
<td width="100%" align=center> </td>
</tr>
<tr>
<TD class="news"id=fontzoom vAlign=top>
<%if M_BG=1 and rs("picnews")=0 and Not Instr(rs("Content"),"TD")>0 then%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -