📄 article.asp
字号:
//双击滚屏代码
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="1002" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="top">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border-left: 1px solid #cccccc ; border-top: 1px solid #cccccc ; border-bottom: 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><td height="3"></td></tr>
<tr bgcolor="#FFFFFF">
<td height="28" background="IMAGES/WmCms_Read.jpg"> <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><td align="center"><br><font color="<%=titlecolor%>" size="+2" face="楷体_GB2312"><strong><%=title1%></strong></font><br></td></tr>
<tr><td align="center" >
<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>
<tr>
<td height="38" align="center" background="images/WmCms_Read2.jpg" bgcolor="#FFFFFF">
共有 <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>】 <%if ScrollClick = "double" then%>【双击鼠标左键自动滚屏】<%else%>【单击左键拖动滚屏】<%end if%>【图片上滚动鼠标变焦】 </font>
</td>
</tr>
</table>
</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="100%" align="center">
<%
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="Ad/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><br><br><br><table width='100%' border='0' cellspacing='0' cellpadding='0'> <tr> <td height='5' background='images/Wmcms_Read3.jgp'> </td> </tr></table>"
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)%>
<br><br><br>
<% 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)%>
<br><br><br>
<% 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><br><br><br>
<% 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)%>
<br><br><br>
<% 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><br><br><br>
<br>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
<%else%>
<%Response.Write arr_Content(Page-1)%>
<br><br><br>
<%end if%>
<%end if%>
<br>
<div align="right">
<%
url="Article.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=class href="Article.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=class href="Article.asp?NewsID=<%=getSideNewsID(bigclassid,newsid,1)%>"><%=getnewstitle(getSideNewsID(bigclassid,newsid,1))%></a>
</td></tr>
<tr>
<td height="4" background="IMAGES/WmCms_Read3.jpg"></td>
</tr>
<tr><td height="4"></td></tr>
<tr><td>
<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="middle" ><img src="images/icon1.gif" border="0">发表、查看更多关于该信息的评论</a>
</td>
<td width="214" height="20">
<a href=send.asp?NewsID=<%=NewsID%> target=_blank class="middle" ><img src="images/mail.gif" border="0">将本信息发给好友</a>
</td>
<td width="168"><a href="javascript:window.print()" class="middle" ><img src="images/printer.gif" border="0">打印本页</a></td>
<td width="90"><input type="button" name="close2" value="关闭窗口" style="font-size: 9pt; color: #000000; background-color: #ffffff; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#cd0000'" onMouseOut ="this.style.backgroundColor='#ffffff'" onClick="window.close();return false;"></td>
</tr>
</table>
</td></tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -