📄 readnews.asp
字号:
document.ondblclick=initialize
</script>
<%else%>
<SCRIPT>
//单击拖动屏幕方式
var old_y=0; //记录鼠标按下时的Ｙ轴位置
var yn=0; //用于记录鼠标状态
function moveit()
{
if(yn==1 && event.button==1) //如果鼠标左键按下就移动页面
document.body.scrollTop=(old_y-event.clientY); //移动页面
}
function downit()
{old_y=event.clientY+document.body.scrollTop; //记住鼠标按下时的Ｙ轴位置
yn=1; //用于记住鼠标已按下
}
function upit()
{yn=0;} //记住鼠标已放开
document.onmouseup=upit; //鼠标放开时执行upit()函数
document.onmousedown=downit; //鼠标按下时执行downit()函数
document.onmousemove =moveit; //鼠标移动时执行moveit()函数
</SCRIPT>
<%end if%>
<body topmargin="0" marginheight="0">
<SCRIPT language=javascript>
<!--
function do_color(vobject,vvar)
{ document.getElementById(vobject).style.color=vvar; }
function do_zooms(vobject,vvar)
{ document.getElementById(vobject).style.fontsize=vvar+'px'; }
-->
</SCRIPT>
<!--#include file="top.asp"-->
<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="25" background="images/menu-guestbook.gif" > 栏目导航<a class=daohang href="./" > </a><strong><a class=daohang href="./" >网站首页</a>>><a class=daohang href="Type.asp?TypeId=<%=typeid%>"><%=typename%></a><%if bigclassid<>"" then%>>><a class=daohang href="BigClass.asp?TypeId=<%=typeid%>&BigClassid=<%=BigClassid%>"><%=BigClassName%></a>
<%if smallclassid<>"" then%>
>><a class=daohang href='SmallClass.asp?typeid=<%=typeid%>&BigClassID=<%=BigClassID%>&SmallClassID=<%=SmallClassID%>'><%=SmallClassName%></a>
<%end if%><%end if%>
<%title1=htmlencode4(title1)%>
</strong>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" background="images/menu-guest-l.gif" bgcolor="#FFFFFF" align="right">
共有 <font color=red><%=click%></font> 位读者读过此文
字体颜色：<select name=do_color_frm size=1 onchange="if(this.options[this.selectedIndex].value!='')
{do_color('fontZoom',this.options[this.selectedIndex].value);}">
<option>选择颜色</option>
<option style="background-color:Black;color:Black" value=Black>黑 色</option>
<option style="background-color:Red;color:Red" value=Red>红 色</option>
<option style="background-color:Yellow;color:Yellow" value=Yellow>黄 色</option>
<option style="background-color:Green;color:Green" value=Green>绿 色</option>
<option style="background-color:Orange;color:Orange" value=Orange>橙 色</option>
<option style="background-color:Purple;color:Purple" value=Purple>紫 色</option>
<option style="background-color:Blue;color:Blue" value=Blue>蓝 色</option>
<option style="background-color:Brown;color:Brown" value=Brown>褐 色</option>
<option style="background-color:Teal;color:Teal" value=Teal>墨 绿</option>
<option style="background-color:Navy;color:Navy" value=Navy>深 蓝</option>
<option style="background-color:Maroon;color:Maroon" value=Maroon>赭 石</option>
<option style="background-color:#00FFFF;color: #00FFFF" value="#00FFFF">粉 绿</option>
<option style="background-color:#7FFFD4;color: #7FFFD4" value="#7FFFD4">淡 绿</option>
<option style="background-color:#FFE4C4;color: #FFE4C4" value="#FFE4C4">黄 灰</option>
<option style="background-color:#7FFF00;color: #7FFF00" value="#7FFF00">翠 绿</option>
<option style="background-color:#D2691E;color: #D2691E" value="#D2691E">综 红</option>
<option style="background-color:#FF7F50;color: #FF7F50" value="#FF7F50">砖 红</option>
<option style="background-color:#6495ED;color: #6495ED" value="#6495ED">淡 蓝</option>
<option style="background-color:#DC143C;color: #DC143C" value="#DC143C">暗 红</option>
<option style="background-color:#FF1493;color: #FF1493" value="#FF1493">玫瑰红</option>
<option style="background-color:#FF00FF;color: #FF00FF" value="#FF00FF">紫 红</option>
<option style="background-color:#FFD700;color: #FFD700" value="#FFD700">桔 黄</option>
<option style="background-color:#DAA520;color: #DAA520" value="#DAA520">军 黄</option>
<option style="background-color:#808080;color: #808080" value="#808080">烟 灰</option>
<option style="background-color:#778899;color: #778899" value="#778899">深 灰</option>
<option style="background-color:#B0C4DE;color: #B0C4DE" value="#B0C4DE">灰 蓝</option>
</select>
【字体：<A class=black href="javascript:fontMax()">放大</A> <A class=black href="javascript:fontZoom(14)">正常</A> <A class=black href="javascript:fontMin()">缩小</A>】
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="right" background="images/menu-l-guest.gif" bgcolor="#FFFFFF"><font color="#000000"><%if ScrollClick = "double" then%>【双击鼠标左键自动滚屏】<%else%>【单击鼠标左键拖动滚屏】<%end if%>【图片上滚动鼠标滚轮变焦图片】 </font></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="<%=titlecolor%>" size="+2" face="楷体_GB2312"><strong><%=title1%></strong></font>
<HR>
<br>
发表日期：<%=year(updateTime)%>年<%=month(updateTime)%>月<%=day(updateTime)%>日
<%if Original<>"" then%>
出处：<%=Original%>
<%end if%>
<%if Author<>"" then%>
作者：<%=Author%>
<%end if%>
【编辑录入：<a href="User.asp?user=<%=editor%>"><%=editor%></a>】
</td>
</tr>
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_News_Table &" 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 "& db_Type_Table &" where typeid="&typeid&" order by typeid"
rs11.Open rs11.Source,conn,1,1
mode=rs11("mode")
rs11.close
set rs11=nothing
''添加图片鼠标滚轮缩放效果
if mouse_wheel_zoom="on" then
News_Content=replace(News_Content,"<IMG","<IMG onmousewheel='return img_zoom(event,this)' onload='javascript:if(this.width>screen.width-333)this.width=screen.width-333'",1,-1,1)
end if
''图片上传路径还原为 config.asp 中设定的 [FileUploadPath] 值
News_Content=replace(News_Content,"="&chr(34)&"uploadfile/","="&chr(34)&FileUploadPath,1,-1,1)
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>
<%if M_BG=1 and rs("picnews")=0 and Not Instr(rs("Content"),"TD")>0 then%>
<table border=0 align="left" cellpadding=3>
<tr>
<td>
<script language=javascript src="zongg/ad.asp?i=15"></script>
</td>
</tr>
</table>
<%end if%>
<%if (checked<>1) and ((Request.cookies(Forcast_SN)("key")<>"super") and (Request.cookies(Forcast_SN)("key")<>"typemaster") and (Request.cookies(Forcast_SN)("key")<>"bigmaster") and (Request.cookies(Forcast_SN)("key")<>"smallmaster")) then '文章未审核,并且是非相关管理员
response.write "<P><CENTER><strong><font color='0000ff' size='+2' face='隶书'>文章还未经过审核<br>请等待或者通知管理员审核才能阅览！</font></strong></CENTER>"
response.write "<P><CENTER><IMG SRC='" &ReadNews_CopyRight_Logo& "' BORDER='0' ALT=''></CENTER>"
else '文章已审核
if checked<>1 then
response.write "<P><CENTER><strong><font color='ff00ff' size='+2' face='隶书'>提醒：该文章还未通过审核</font></strong></CENTER>"
end if
if cINT(wzdj)<1 then
Response.Write arr_Content(Page-1)%>
<CENTER><IMG SRC="<%=ReadNews_CopyRight_Logo%>" BORDER="0" ALT=""></CENTER>
<% else %>
<%if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then %>
<%Response.Write arr_Content(Page-1)%>
<CENTER><IMG SRC="<%=ReadNews_CopyRight_Logo%>" BORDER="0" ALT=""></CENTER>
<% else %>
<%if Request.cookies(Forcast_SN)("key")="" then%>
<br><font color="#cc0000"><b>内容简介：</b></font><br><br>
<%=CutStr(nohtml(rs("Content")),150)%>...
<br><br>
<br><font color="#cc0000"><b>友情提醒：</b></font><br><br>
你还没注册？或者没有登录？或者权限不够？这篇文章要求是本站符合权限要求的注册用户才能阅读！<br><br>
<%
response.write "文章级别："
response.write cINT(wzdj)
response.write "级"
%>
<br>
<%
response.write "您的权限："
response.write "未注册"
%>
<br><br>
如果你还没注册，请赶紧点此<a href="#" OnClick="adduser()" class=bottom><font color="#cc0000">注册</font></a>吧！<br>
<br>
如果你已经注册但还没登录，请赶紧点此<a href="#" OnClick="user_login()" class=bottom><font color="#cc0000">登录</font></a>吧！<br>
<CENTER><IMG SRC="<%=ReadNews_CopyRight_Logo%>" BORDER="0" ALT=""></CENTER>
<% else %>
<%if Request.cookies(Forcast_SN)("key")="selfreg" then
if cINT(Request.cookies(Forcast_SN)("reglevel"))>=cINT(wzdj) then%>
<%Response.Write arr_Content(Page-1)%>
<CENTER><IMG SRC="<%=ReadNews_CopyRight_Logo%>" BORDER="0" ALT=""></CENTER>
<% else %>
<br><font color="#cc0000"><b>内容简介：</b></font>
<br><br>
<%=CutStr(nohtml(rs("Content")),150)%>...
<br><br>
<br><font color="#cc0000"><b>友情提醒：</b></font><br><br>
你还没注册？或者没有登录？或者权限不够？这篇文章要求是本站符合权限要求的注册用户才能阅读！<br><br>
<%
response.write "文章级别："
response.write cINT(wzdj)
response.write "级"
%><br>
<%
response.write "您的权限："
response.write (Request.cookies(Forcast_SN)("reglevel"))
response.write "级"
%>
<br><br>
如果你还没注册，请赶紧点此<a href="#" OnClick="adduser()" class=bottom><font color="#cc0000">注册</font></a>吧！<br>
<br>
如果你已经注册但还没登录，请赶紧点此<a href="#" OnClick="user_login()" class=bottom><font color="#cc0000">登录</font></a>吧！<br>
<CENTER><IMG SRC="<%=ReadNews_CopyRight_Logo%>" BORDER="0" ALT=""></CENTER>
<br>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
<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>
<tr>
<td width=100% ><hr size=1></td>
</tr>
<tr>
<td height=25>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="32%" valign="top" bgcolor="#EFEFEF">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="22" bgcolor="#AFAFD9"> <B>相关专题：</b></td>
</tr>
<tr>
<td><%set rs4=server.CreateObject("ADODB.RecordSet")
if SpecialID<>0 then
rs4.Source="select * from "& db_Special_Table &" where SpecialID=" & SpecialID
rs4.Open,conn,1,3
if not rs4.eof then%>
<br><a class=class href='Special_News.asp?SpecialID=<%=SpecialID%>'>·<%=CutStr(trim(rs4("specialname")),28)%></a>
<%
end if
rs4.Close
set rs4=nothing
else
Response.Write "<br><font color=red >·专题1信息无</font>"
end if%>
<br><br>
<%
set rs4=server.CreateObject("ADODB.RecordSet")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -