shownews_body.asp

一个很COOL的按钮FLASH,满不错的!

<%sub shownews_body()
opennews
sql="select * from news where news_id="&request.querystring("news_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "错误参数"
response.end
end if
%>
<table width="774" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor=#ffffff>
<tr>
<td colspan="3" height="10"></td>
</tr>
<tr>
<td width="554" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="6%" background="images/tablebg.gif"><img src="images/mleft.gif"></td>
<td background="images/tablebg.gif">发表日期：<%=rs("news_date")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;阅读次数：&nbsp;<font color=#ff0099><%=rs("news_count")%></font></td>
<td width="6%" align="right" background="images/tablebg.gif"><img src="images/mright.gif"></td>
</tr>
</table>
<br>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td >查看:[ <a href="javascript:doZoom(16)">大字</a> <a href="javascript:doZoom(14)">中字</a> <a href="javascript:doZoom(12)">小字</a> ]</td>
</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="1" cellpadding="6" align="center" >
<tr>
<td  id="zoom"> <span class="line">
<div align="center">
<%
'将文章标题修改为渐进变色文字
%>
<script language="">
var message="<%=rs("news_title")%>"
var n=0;
if (document.all){
document.write('<font size="15px" color="#0000ff">')
for (m=0;m<message.length;m++)
document.write('<span id="neonlight" style="font-family:Verdana,Arial;font-size:15px">'+message.charAt(m)+'</span>')
document.write('</font>')
var tempref=document.all.neonlight
}
else
document.write(message)
function neon(){
if (n==0){
for (m=0;m<message.length;m++)
tempref[m].style.color="#ff0099"
}
tempref[n].style.color="#9900CC"
if (n<tempref.length-1)
n++
else{
n=0
clearInterval(flashing)
setTimeout("beginneon()",1500)
return
}
}
function beginneon(){
if (document.all)
flashing=setInterval("neon()",100)
}
beginneon()
</script>
<%
'渐进变色文字效果结束，原处只有message中的内容和加粗
%>
</div>
<p align=center><font color=#32cd32>来源：<%=rs("news_ahome")%>&nbsp;&nbsp;作者：<%=rs("news_author")%></font></p>
<%=ubb2html(formatStr(autourl(rs("news_content"))),true,true)%><br><br>
<font color="#cccccc">-------------------------------------------------------------------------------------</font><br><b>〖相关新闻〗</b><br>
<%sql="select top 10 * from news where news_content like '%"&rs("news_keyword")&"%' and news_id <> "&rs("news_id")&" order by news_date DESC"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>·<a href="shownews.asp?news_id=<%=rs2("news_id")%>"><%=rs2("news_title")%></a> <%=rs2("news_date")%><br>
<%
rs2.movenext
loop
if rs2.eof and rs2.bof then
response.write "&nbsp;&nbsp;·没有相关新闻"
end if
rs2.close
set rs2=nothing
%></span>
</td>
</tr>
</table>
<br>
</td>
<td width="1" background="images/dotlinev.gif"></td>
<td width="205" align="center" valign="top">
<table width="208" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="40" align="right" background="images/rmdj.gif"><br>
<strong></strong>&nbsp;&nbsp;&nbsp;</td>
</tr>
</table>
<table width="208" border="0" align="center" cellpadding="0" cellspacing="0" background="images/lefttablo_03.gif">
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="66" class="chinese" align="center">
<table width="90%"><tr><td valign=top>
<%set rs = server.createobject("adodb.recordset")
sql="select top 10 news_id,news_title,news_date from news order by news_count DESC,news_date DESC"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "很抱歉！内容正在更新之中！"
else
do while not rs.eof
response.write "·<a href=shownews.asp?news_id="&rs("news_id")&">"&rs("news_title")&"</a><br>"
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</td></tr></table>
</td>
</tr>
<tr>
<td valign="bottom"><img src="images/lefttablo_05.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3" background="images/dotlineh.gif" height="1"></td>
</tr>
</table>
<%
end sub%>