📄 readnews1.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")
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%> -=> ※社区天地※</title>
<LINK href=news.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}
</style><style type="text/css">
body
{
scrollbar-face-color: #6BB6FF;
scrollbar-highlight-color: #298AFF;
scrollbar-shadow-color: #CAEBFF;
scrollbar-arrow-color: #CAEBFF;
scrollbar-base-color: #CAEBFF;
scrollbar-dark-shadow-color: #CAEBFF;
}
</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">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<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="21" background="imgs/2.jpg" valign="bottom" > 栏目导航 <strong>社区天地>><%=typename%>>><%=BigClassName%>
<%if smallclassid<>"" then%>
>><%=SmallClassName%>
<%end if%>
<%title1=replace(title1,"<br>","")%>
</strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="29" background="IMAGES/menu-guest-l.gif" bgcolor="#FFFFFF"> 发表日期：<%=year(updateTime)%>年<%=month(updateTime)%>月<%=day(updateTime)%>日
<%if Original<>"" then%>
出处：<%=Original%>
<%end if%>
<%if Author<>"" then%>
作者：<%=Author%>
<%end if%>
有<%=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 height="25" align="center" background="imgs/2.jpg" bgcolor="#FFFFFF"> </td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" background="IMAGES/menu-guest-l.gif"> </td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td background="IMAGES/menu-news.gif">
<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%" align=center><br>
<font color="#cc0000" size="+2" face="楷体_GB2312"><strong><%=title1%></strong></font>
</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 border="0" cellspacing="0" cellpadding="0" align="center" style="TABLE-LAYOUT: fixed">
<tr>
<td width="100%" align=center> </td>
</tr>
<tr>
<TD class=newstitle id=fontzoom vAlign=top><br>
<%
Response.Write arr_Content(Page-1)
%>
<br>
<div align="right"><%
url="readnews.asp?newsid="&newsid
if MaxPages >0 then
Response.write "<a class=black href='" & Url & "&page=1' title='第1页'>首页</a> "
if Page-1 > 0 then
Prev_Page = Page - 1
Response.write "<a class=black href='" & Url & "&page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
end if
for PageCounter=0 to MaxPages
PageLink = PageCounter+1
if PageLink <> Page Then
Response.write "<a class=black href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<font color='#FF0000'><B>["& PageLink &"]</B></font> "
end if
If PageLink = MaxPages+1 Then Exit for
Next
if page <= Maxpages then
bdd_Page = Page + 1
Response.write "<a class=black href='" & Url & "&page=" & bdd_Page & "' title='第" & bdd_Page & "页'>下一页</A>"
end if
Response.write " <A class=black href='" & Url & "&page=" & Maxpages+1 & "' title='第"& Maxpages+1 &"页'>尾页</A>"
end if
%></div>
</td>
</tr>
</table></td>
</tr>
<tr>
<td width="100%" height="25"> <div align="center">
<!--#include file=attach.asp -->
</div></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
<tr valign="top">
<td height="25" background="imgs/2.jpg"> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="bottom">
<tr>
<td background="IMAGES/menu-guest-l.gif">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="20"> </td>
<td width="255" height="20">
<a href=review.asp?NewsID=<%=NewsID%> target="_blank" class=bottom><img src="images/icon1.gif" border="0">
发表、查看更多关于该信息的评论</a>
</td>
<td width="168"><a href="javascript:window.print()" class=bottom><img src="images/printer.gif" border="0">
打印本页</a></td>
<td width="90"><input type="button" name="close2" value="关闭窗口" onClick="window.close();return false;"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="19" background="imgs/2.jpg"> </td>
</tr>
</table>
<%end if%><%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -