e_readnews.asp
来自「zheng fu wang zhan gong neng qi quan」· ASP 代码 · 共 923 行 · 第 1/3 页
ASP
923 行
<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>
<%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><td height="5"></td></tr>
<tr><td width="100%" height="30" background="images/red_bg.jpg" class="white_link" >栏目导航<a class="white_link" href="./" > </a><a class="white_link" href="./" >网站首页</a>>><a class="white_link" href="E_Type.asp?TypeId=<%=typeid%>"><%=typename%></a><%if bigclassid<>"" then%>>><a class="white_link" href="E_BigClass.asp?TypeId=<%=typeid%>&BigClassid=<%=BigClassid%>"><%=E_BigClassName%></a>
<%if smallclassid<>"" then%>
>><a class="white_link" href='E_SmallClass.asp?typeid=<%=typeid%>&BigClassID=<%=BigClassID%>&SmallClassID=<%=SmallClassID%>'><%=E_smallclassname%></a>
<%end if%><%end if%>
<%title1=htmlencode4(title1)%> </td>
</tr>
<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 style="color:#FF9900">
发表日期：<%=year(updateTime)%>年<%=month(updateTime)%>月<%=day(updateTime)%>日 共浏览<font color=red><%=click%></font> 次
<%if Original<>"" then%>
出处：<%=Original%>
<%end if%>
<%if Author<>"" then%>
作者：<%=Author%>
<%end if%>
【编辑录入：<a href="User.asp?user=<%=editor%>"><%=editor%></a>】<br>
字体颜色：
<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>】 <font color="#000000">
<%if ScrollClick = "double" then%>
【双击鼠标左键自动滚屏】
<%else%>
【单击鼠标左键拖动滚屏】
<%end if%>
【图片上滚动鼠标滚轮变焦图片】 </font> </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(eChuang)("key")<>"super") and (Request.cookies(eChuang)("key")<>"typemaster") and (Request.cookies(eChuang)("key")<>"bigmaster") and (Request.cookies(eChuang)("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 uselevel=1 then
if cINT(wzdj)<1 then
Response.Write arr_Content(Page-1)%>
<% else %>
<%if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then %>
<%Response.Write arr_Content(Page-1)%>
<% else %>
<%if Request.cookies(eChuang)("key")="" then%>
<br>
<font color="#cc0000"><b>内容简介：</b></font><br>
<br>
<%=CutStr(nohtml(rs("Content")),10)%>... <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>
<% else %>
<%if Request.cookies(eChuang)("key")="selfreg" then
if cINT(Request.cookies(eChuang)("reglevel"))>=cINT(wzdj) then%>
<%Response.Write arr_Content(Page-1)%>
<% else %>
<br>
<font color="#cc0000"><b>内容简介：</b></font> <br>
<br>
<%=CutStr(nohtml(rs("Content")),10)%>... <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(eChuang)("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>
<br>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
<%else%>
<%Response.Write arr_Content(Page-1)%>
<%end if%>
<%end if%>
<br>
<div align="right">
<%
url="E_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 height="22"> <b><IMG SRC="IMAGES/006.gif"> 上一篇：</b><a class=blacklink href="E_ReadNews.asp?NewsID=<%=getSideNewsID(bigclassid,newsid,-1)%>"><%=getnewstitle(getSideNewsID(bigclassid,newsid,-1))%></a><br>
</td>
</tr>
<tr>
<td height="22"> <b><IMG SRC="IMAGES/006.gif"> 下一篇：</b><a class=blacklink href="E_ReadNews.asp?NewsID=<%=getSideNewsID(bigclassid,newsid,1)%>"><%=getnewstitle(getSideNewsID(bigclassid,newsid,1))%></a> </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="#F5F5F5">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="30" background="images/menu_bg.jpg" bgcolor="#FFCC66" class="white_link"> <B>相关专题：</b></td>
</tr>
<tr>
<td bgcolor="#F5F5F5"><%set rs4=server.CreateObject("ADODB.RecordSet")
if SpecialID<>0 then
rs4.Source="select * from "& db_Special_Table &" where SpecialID=" & SpecialID
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?