E_ReadNews.asp文件
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="function.asp"-->
<!--'#include file="char.inc"-->
<%
IF request.cookies(eChsys)("KEY")="" THEN
else
usernamecookie=CheckStr(request.cookies(eChsys)("UserName"))
passwdcookie=CheckStr(trim(Request.cookies(eChsys)("passwd")))
KEYcookie=CheckStr(trim(request.cookies(eChsys)("KEY")))
if usernamecookie="" or passwdcookie="" then
response.cookies(eChsys)("UserName")=""
response.cookies(eChsys)("KEY")=""
response.cookies(eChsys)("purview")=""
response.cookies(eChsys)("fullname")=""
response.cookies(eChsys)("reglevel")=""
else
'判断用户的合法性
set rs=server.createobject("adodb.recordset")
sql="select * from "& db_User_Table &" where "& db_User_Name &"='"&usernamecookie&"'"
rs.open sql,ConnUser,1,1
if rs.eof and rs.bof then
response.cookies(eChsys)("UserName")=""
response.cookies(eChsys)("KEY")=""
response.cookies(eChsys)("purview")=""
response.cookies(eChsys)("fullname")=""
response.cookies(eChsys)("reglevel")=""
end if
IF passwdcookie<>rs(db_User_Password) THEN
response.cookies(eChsys)("UserName")=""
response.cookies(eChsys)("KEY")=""
response.cookies(eChsys)("purview")=""
response.cookies(eChsys)("fullname")=""
response.cookies(eChsys)("reglevel")=""
END IF
'下面判断用户级别实际在有用户级别是都应该判断
if KEYcookie<>rs("OSKEY") then
response.cookies(eChsys)("UserName")=""
response.cookies(eChsys)("KEY")=""
response.cookies(eChsys)("purview")=""
response.cookies(eChsys)("fullname")=""
response.cookies(eChsys)("reglevel")=""
end if
rs.close
set rs=nothing
END IF
END IF
'该文件需要进行调整和设置
dim E_typename
NewsID=ChkRequest(Request.QueryString("NewsID"),1) '防SQL注入
Page=Request.QueryString("page")
if page="" then
page=1
elseif not IsNumeric(page) then
Show_Err("非法参数！<br><br><a href='javascript:history.back()'>返回</a>")
response.end
end if
page=int(page)
if newsid="" then
Show_Err("未指定参数！<br><br><a href='javascript:history.back()'>返回</a>")
response.end
elseif not IsNumeric(newsid) then
Show_Err("非法参数！<br><br><a href='javascript:history.back()'>返回</a>")
response.end
else
'判断该篇文章是否审核
set rs=server.createobject("adodb.recordset")
sql="select * from "& db_EC_News_Table &" where NewsId="&NewsId
rs.open sql,conn,3,3
if rs.eof and rs.bof then
rs.close
set rs=nothing
Show_Err("指定的文章不存在！<br><br><a href='javascript:history.back()'>返回</a>")
response.end
else
checked=rs("checkked")
if checked=1 or Request.cookies(eChsys)("key")="super" or Request.cookies(eChsys)("key")="typemaster" or Request.cookies(eChsys)("key")="bigmaster" or Request.cookies(eChsys)("key")="smallmaster" then
'文章已审核并且是相关管理员
Click=rs("Click")
if isnull(rs("Click"))
then
conn.execute("update "& db_EC_News_Table &" Set Click=1 where NewsID=" & NewsID )
else
conn.execute("update "& db_EC_News_Table &" Set Click=click+1 where NewsID=" & NewsID )
end if
end if
rs.close
set rs=nothing
end if
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChsys)("key")="" then
rs.Source="select * from "& db_EC_News_Table &" where checkked=1 and newslevel=0 and newsid="&newsid
end if
if Request.cookies(eChsys)("key")="selfreg" then
if Request.cookies(eChsys)("reglevel")=3 then
rs.Source="select * from "& db_EC_News_Table &" where checkked=1 and newslevel<=3 and newsid="&newsid
end if
if Request.cookies(eChsys)("reglevel")=2 then
rs.Source="select * from "& db_EC_News_Table &" where checkked=1 and newslevel<=2 and newsid="&newsid
end if
if Request.cookies(eChsys)("reglevel")=1 then
rs.Source="select * from "& db_EC_News_Table &" where checkked=1 and newslevel<=1 and newsid="&newsid
end if
end if
end if
if Request.cookies(eChsys)("key")="super" or Request.cookies(eChsys)("key")="typemaster" or Request.cookies(eChsys)("key")="bigmaster" or Request.cookies(eChsys)("key")="smallmaster" or Request.cookies(eChsys)("key")="check" then
rs.Source="select * from "& db_EC_News_Table &" where newsid="&newsid
else
rs.Source="select * from "& db_EC_News_Table &" where newsid="&newsid
end if
rs.Open rs.Source,conn,1,1
E_BigClassID=rs("E_BigClassID")
E_SmallClassID=rs("E_SmallClassID")
title=htmlencode4(trim(rs("title")))
title1=htmlencode4(trim(rs("title")))
about=htmlencode4(trim(rs("about")))
Author=htmlencode4(trim(rs("Author")))
editor=htmlencode4(trim(rs("editor")))
Original=htmlencode4(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"))
E_typeid=rs("E_typeid")
titletype=rs("titletype")
titlecolor=rs("titlecolor")
titleface=rs("titleface")
editor=rs("editor")
wzdj=rs("newslevel")
backtype=rs("backtype")
backtype1=rs("backtype1")
rs.Close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_EC_Type_Table &" where E_typeid=" & E_typeid
rs.Open rs.Source,conn,1,1
E_typename=rs("E_typename")
rs.Close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
If(isnull(E_BigClassID)) Then
E_BigClassName=" "
E_BigClassID = 0
Else
rsSource="select * from "& db_EC_BigClass_Table &" Where E_BigClassID="& E_BigClassID
rs.Open rsSource,conn,1,3
If (rs.eof or rs.bof) Then
E_BigClassName=" "
else
E_BigClassName=rs("E_BigClassName")
End if
rs.close
set rs=nothing
End if
if E_SmallClassID<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_EC_SmallClass_Table &" Where E_SmallClassID=" & E_SmallClassID
rs.Open rs.Source,conn,1,1
E_smallclassname=rs("E_smallclassname")
rs.close
set rs=nothing
end if%>
<%
'文章ip限制
if cINT(backtype1)=1 then
dim byte2
byte2=split(newsipType,"|")
for i=0 to ubound(byte2)
if Request.serverVariables("REMOTE_ADDR")<>byte2(i) then
Show_Err("对不起，此篇文章只供内部浏览，请联系管理员！。<br><br><a href='javascript:history.back()'>返回</a>")
Response.End
end if
next
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Description" content="政府网站模板">
<meta name="keywords" content="政府网站">
<title><%=title%><%if E_SmallClassID<>"" then%>_<%=E_smallclassname%><%end if%>_<%=E_BigClassName%>_<%=E_typename%>_<%=eChSys%></title>
<LINK href="homestyle.css" rel="stylesheet">
<script language="JavaScript" type="text/JavaScript">
function validateMode()
{
if (!bTextMode) return true;
alert("请先取消查看HTML源代码，进入“编辑”状态，然后再使用系统编辑功能!");
message.focus();
return false;
}
function validateModea()
{
if (!bTextMode) return true;
alert("请先取消查看HTML源代码!");
message.focus();
return false;
}
function sign()
{if (!validateMode()) return;
message.focus();
var range =message.document.selection.createRange();
str1="<font color='red'><b>|签收|</b>文件已经阅读</font>"
range.pasteHTML(str1);
}
function img_zoom(e, o)
//图片鼠标滚轮缩放
{
var zoom = parseInt(o.style.zoom, 10) || 100;
zoom += event.wheelDelta / 12;
if (zoom > 0) o.style.zoom = zoom + '%';
return false;
}
</script>
<script language=javascript>
function user_login()
{
document.UserLogin.UserName.focus();
return false;
}
</script>
<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>
<script language="JavaScript" type="text/JavaScript">
var size=14;
//字体大小
function fontZoom(fontsize){
//设置字体
size=fontsize;
document.getElementById('fontZoom').style.fontSize=size+'px';
}
function fontMax(){
//字体放大
size=size+2;
document.getElementById('fontZoom').style.fontSize=size+'px';
}
function fontMin(){
//字体缩小
size=size-2;
if (size < 2 ){
size = 2
}
document.getElementById('fontZoom').style.fontSize=size+'px';
}
</SCRIPT>
<script language="javascript">
<!--
function changedata() {
if ( document.AddReview.none.checked ) {
document.AddReview.Author.value = "游客";
}
}
function changedata1() {
if ( document.AddReview.none1.checked ) {
document.AddReview.email.value = "guest@
}
}
//-->
</script>
<script language=javascript>
function CheckFormAddReview()
//检测评论发表栏填写项目是否为空
{
if(document.AddReview.Author.value=="")
{
alert("请输入用户名！");
document.AddReview.Author.focus();
return false;
}
if(document.AddReview.email.value == "")
{
alert("请输入您的EMAIL！");
document.AddReview.email.focus();
return false;
}
if(document.AddReview.content.value == "")
{
alert("请输入评论内容！");
return false;
}
}
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FF3333}
-->
</style>
</head>
<%if ScrollClick = "double" then%>
<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="1002" height="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="210" height="500" align="left" valign="top" background="Images/l_b.gif"><table width="210" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4" align="center" valign="top"></td>
</tr>
<tr>
<td height="30" background="IMAGES/echsys_class_bg.gif"> <span class="white_title"> <span class="white_title">热门信息</span></span></td>
</tr>
<%
Set Rs_hot=Conn.Execute("select top "&top_txt&" * from "& db_EC_news_table &"
where
checkked=1 and E_typeid="&E_typeid&" order by click desc,newsid desc")
Do While Not Rs_hot.Eof
newsurl="E_ReadNews.asp?NewsID=" & rs_hot("NewsID")
newswwwurl=rs_hot("titleface")
fileExt=lcase(getFileExtName(rs_hot("picname")))
%>
<tr>
<td height="21" align="left"> ·<a class="middle" href="<%if rs_hot("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs_hot("title"))%>" target="_blank"> <font color="<%=rs_hot("titlecolor")%>"> <%=CutStr(htmlencode4(rs_hot("title")),24)%> </font> </a></td>
</tr>
<%
Rs_hot.Movenext
Loop
Rs_hot.Close
Set Rs_hot=Nothing
%>
<tr>
<td height="7"></td>
</tr>
</table>
<table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4" align="center" valign="top"></td>
</tr>
<tr>
<td height="34" background="images/title_bg.gif"> <img src="Images/arrow_dot.gif" width="12" height="12"> <span class="black_title">最新文章</span></td>
</tr>
<%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChsys)("key")="super" or Request.cookies(eChsys)("key")="typemaster" or Request.cookies(eChsys)("key")="bigmaster" or Request.cookies(eChsys)("key")="smallmaster" or Request.cookies(eChsys)("key")="check" then
rs3.Source ="select top 10 * from "& db_EC_News_Table &" where
checkked=1 and E_typeid="&E_typeid&" order by NewsID DESC"
end if
if Request.cookies(eChsys)("key")="" then
rs3.Source ="select top 10 * from "& db_EC_News_Table &" where
checkked=1 and newslevel=0 and E_typeid="&E_typeid&"
order by NewsID DESC"
end if
if Request.cookies(eChsys)("key")="selfreg" then
if Request.cookies(eChsys)("reglevel")=3 then
rs3.Source ="select top 10 * from "& db_EC_News_Table &" where
checkked=1
and E_typeid="&E_typeid&"
order by NewsID DESC"
end if
if Request.cookies(eChsys)("reglevel")=2 then
rs3.Source ="select top 10 * from "& db_EC_News_Table &" where
checkked=1
and E_typeid="&E_typeid&"
order by NewsID DESC"
end if
if Request.cookies(eChsys)("reglevel")=1 then
rs3.Source ="select top 10 * from "& db_EC_News_Table &" where
checkked=1
and E_typeid="&E_typeid&" order by NewsID DESC"
end if
end if
else
rs3.Source ="select top 10 * from "& db_EC_News_Table &" where
checkked=1 and E_typeid="&E_typeid&"
order by NewsID DESC"
end if
rs3.Open rs3.Source,conn,1,1
if not rs3.EOF then
while not rs3.EOF
fileExt=lcase(getFileExtName(rs3("picname")))
Content=htmlencode4(rs3("Content"))
%>
<tr>
<td height="22" align="left"> ·<a class=middle href="E_ReadNews.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=htmlencode4(rs3("title"))%>"><%=CutStr(htmlencode4(rs3("title")),24)%></a> </td>
</tr>
<%
rs3.MoveNext
wend
else
Response.Write "<tr><td width=100% align=center height=22 >·暂无更新</td></tr>"
end if
rs3.close
set rs3=nothing
%>
<tr>
<td height="7" background="images/article_12.gif"></td>
</tr>
</table></td>
<td width="792" rowspan="0" valign="top"><table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="Images/dh_bg.gif"> <img src="Images/arrow_dot.gif" width="12" height="12"> <STRONG>当前位置：</STRONG> <span class="daohang"><a class="daohang" href="./" >网站首页</a>>><a class="daohang" href="E_Type.asp?E_typeid=<%=E_typeid%>"><%=E_typename%></a>
<%if E_BigClassID<>"" then%>
>><a class="daohang" href="E_BigClass.asp?E_typeid=<%=E_typeid%>&E_BigClassID=<%=E_BigClassID%>"><%=E_BigClassName%></a>
<%if E_SmallClassID<>"" then%>
>><a class="daohangk" href='E_SmallClass.asp?E_typeid=<%=E_typeid%>&E_BigClassID=<%=E_BigClassID%>&E_SmallClassID=<%=E_SmallClassID%>'><%=E_smallclassname%></a>
<%end if%>
<%end if%>
<%=CutStr(htmlencode4(title1),60)%>
</span></td>
</tr>
</table>
<table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="716" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="8" height="50"><img src="Images/article_01.gif" width="8" height="53"></td>
<td width="702" align="center" background="Images/article_02.gif"><font color="<%=titlecolor%>" size="+2" face="楷体_GB2312"><strong><%=CutStr(title1,100)%></strong></font></td>
<td width="6"><img src="Images/article_04.gif" width="6" height="53"></td>
</tr>
<tr>
<td colspan="3"><img src="Images/article_05.gif" width="716" height="22"></td>
</tr>
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_EC_News_Table &" where NewsID=" & NewsID
rs.Open rs.source,conn,1,1
E_typeid=rs("E_typeid")
Title=trim(rs("Title"))
image=rs("image")
dim mode
set rs11=server.CreateObject("ADODB.RecordSet")
rs11.Source="select * from "& db_EC_Type_Table &" where E_typeid="&E_typeid&" order by E_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 height="15" colspan="3" align="center" valign="top" background="Images/article_06.gif"><table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="13"> </td>
</tr>
<tr>
<td height="23" align="center" bgcolor="#C7E3A8">[来源：
<%if Original="" then%>
本站
<%else%>
<%=Original%>
<%end if%>
| 作者：
<%if Author="" then%>
原创
<%else%>
<%=Author%>
<%end if%>
| 日期：<%=year(updateTime)%>年<%=month(updateTime)%>月<%=day(updateTime)%>日 |
浏览<font color=red><%=click%></font> 次]
【<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>
<td height="13"> </td>
</tr>
<tr>
<td height="113" align="center"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="TABLE-LAYOUT: fixed">
<tr>
<td width="100%" align=center></td>
</tr>
<tr>
<TD class=newstitle id=fontzoom vAlign=top>
<%if (checked<>1) and ((Request.cookies(eChsys)("key")<>"super") and (Request.cookies(eChsys)("key")<>"typemaster") and (Request.cookies(eChsys)("key")<>"bigmaster") and (Request.cookies(eChsys)("key")<>"smallmaster")) then
'文章未审核,并且是非相关管理员
response.write "<P><CENTER><strong><font color='ff0000' 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='ff0000' 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(eChsys)("key")="super" or Request.cookies(eChsys)("key")="typemaster" or Request.cookies(eChsys)("key")="bigmaster" or Request.cookies(eChsys)("key")="smallmaster" or Request.cookies(eChsys)("key")="check" then %>
<%Response.Write arr_Content(Page-1)%>
<% else %>
<%if
Request.cookies(eChsys)("key")="" then%>
<br>
<font color="#FFFFFF"><b>内容简介：</b></font><br>
<%=CutStr(nohtml(rs("Content")),10)%><font color="#FFFFFF">...
</font> <br>
<font color="#cc0000" size="3"><b>友情提醒：</b></font><br>
<br>
您还未登录，没有游览权限。这篇文章要求符合本站权限的用户才能阅读！<p><br>
已注册的用户，请从网页左上角直接登录或请点此<b><a href="#" OnClick="user_login()"
class=bottom><font color="#cc0000">登录</font></a></b>！</p>
<p> </p>
<p> </p>
<p>
<br>
<%
response.write "文章级别："
response.write cINT(wzdj)
response.write "级"
%>
<br>
<%
response.write "您的权限："
response.write "未注册"
%>
<br>
<br>
<br>
<br>
<br>
<% else %>
<%if
Request.cookies(eChsys)("key")="selfreg" then
if cINT(Request.cookies(eChsys)("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>
</p>
<font color="#cc0000" size="3"><b>友情提醒：</b></font><br>
<br>
您还未登录，没有游览权限。这篇文章要求符合本站权限的用户才能阅读！<p><br>
已注册的用户，请从网页左上角直接登录或请点此<b><a href="#" OnClick="user_login()"
class=bottom><font color="#cc0000">登录</font></a></b>！</p>
<p> <br>
<br>
<%
response.write "文章级别："
response.write cINT(wzdj)
response.write "级"
%>
<br>
<%
response.write "您的权限："
response.write (Request.cookies(eChsys)("reglevel"))
response.write "级"
%>
<br>
<br>
<br>
<br>
<br>
<br>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
<%else%>
<%Response.Write arr_Content(Page-1)%>
<%end if%>
<%end if%>
<br>
</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<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>
</table></td>
</tr>
<tr>
<td height="16" colspan="3" align="center" valign="top" background="Images/article_06.gif"><!--#include file="attach.asp" --></td>
</tr>
<tr>
<td height="22" colspan="3" align="right" valign="top" background="Images/article_06.gif"><div align="right" class="side_con">责任编辑：<%=editor%> </div></td>
</tr>
<tr>
<td height="21" colspan="3" align="left" valign="middle" background="Images/article_06.gif"><b> <IMG SRC="IMAGES/006.gif"> 上一篇：</b>
<%if getSideNewsID(E_BigClassID,newsid,-1)<>0 then %>
<a class=blacklink href="E_ReadNews.asp?NewsID=<%=getSideNewsID(E_BigClassID,newsid,-1)%>"><%=getnewstitle(getSideNewsID(E_BigClassID,newsid,-1))%></a>
<%else%>
<%=getnewstitle(getSideNewsID(E_BigClassID,newsid,-1))%>
<%end if%></td>
</tr>
<tr>
<td height="20" colspan="3" align="left" valign="middle" background="Images/article_06.gif"><b> <IMG SRC="IMAGES/006.gif"> 下一篇：</b>
<%if getSideNewsID(E_BigClassID,newsid,1)<>0 then %>
<a
class=blacklink href="E_ReadNews.asp?NewsID=<%=getSideNewsID(E_BigClassID,newsid,1)%>"><%=getnewstitle(getSideNewsID(E_BigClassID,newsid,1))%></a>
<%else%>
<%=getnewstitle(getSideNewsID(E_BigClassID,newsid,1))%>
<%end if%></td>
</tr>
<tr>
<td height="60" colspan="3" align="center" valign="top" background="Images/article_06.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" align="left" valign="top"><table width="91%" height="131" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="326" height="36" background="Images/article_09.gif" class="white_link">
<strong class="white_title"> 热门文章：</strong></td>
</tr>
<%
[
本帖最后由 zpfycms 于 2012-8-31 17:59 编辑 ]
