📄 shownews.asp
字号:
<!--#Include File="inc/Check_Sql.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Skin_css.asp"-->
<!-- #include file="inc/config.asp" -->
<!--#include file="inc/Function.asp"-->
<!--#include file="inc/Const.asp" -->
<style type="text/css">
<!--
.tit {
font-size: 16px;
font-weight: bold;
}
.black {COLOR: #000000; font-family: "Verdana", "宋体"; FONT-SIZE: 14px}
A.black:link { COLOR: #000066; TEXT-DECORATION: none}
A.black:visited { COLOR: #330000; TEXT-DECORATION: none}
A.black:active { COLOR: #FFFFFF; TEXT-DECORATION: none}
A.black:hover { COLOR: #ff0000; TEXT-DECORATION: none}
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
function fontZoom(size){
document.getElementById('fontZoom').style.fontSize=size+'px'
}
</SCRIPT>
<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>
<%
id=cstr(replace(trim(request("id")),"'",""))
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="select * from 0791idc_news where id="&id
rsnews.Open sql,conn,1,3
if rsnews.eof and rsnews.bof then
response.write"<SCRIPT language=JavaScript>alert('找不到此新闻！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
rsnews("Hits")=rsnews("Hits")+1
rsnews.update
title=rsnews("title")
BigClass=rsnews("BigClassName")
SmallClass=rsnews("SmallClassName")
if SmallClass="" then
HeadTitle=BigClass&"-"&title
else
HeadTitle=BigClass&"-"&SmallClass&"-"&title
end if
%>
<!-- #include file="Head.asp" -->
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" valign="top" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="72" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="tdbg_left" width="190" height="179" valign="top" ><!--#include file="left.asp"--></td>
<td width="6"></td>
<td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="206" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_right" height="32"> <img src="Images/smallbook.jpg" width="10" height="10"> <a href="index.asp"><font color="#FF6600">首页</font></a> >> <a href="NewsClass.asp?BigClass=<%=BigClass%>"><font color="#FF6600"><%=BigClass%></font></a></td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="50" colspan="2" align="center" class="tit"><%= rsnews("title") %></td>
</tr>
<tr>
<td width="21%" height="30" style="border-top: 1 solid #666666;border-bottom: 1 solid #666666">双击自动滚屏</td>
<td width="79%" align="center" style="border-top: 1 solid #666666;border-bottom: 1 solid #666666">发布者：<%= rsnews("user") %>
发布时间：<%= FormatDateTime(rsnews("AddDate"),2) %> 阅读：<font color="#FF0000"><%= rsnews("hits") %></font>次 【字体：<A class=black href="javascript:fontZoom(16)">大</A>
<A class=black href="javascript:fontZoom(14)">中</A> <A class=black href="javascript:fontZoom(12)">小</A>】</td>
</tr>
<tr>
<td class=black id=fontzoom colspan="2"><br>
<%=rsnews("content") %></td>
</tr>
<tr align="right">
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<td><br>
<li>上一条新闻：
<% call ShowPrevNews(200) %>
</li>
<br>
<li>下一条新闻：
<% call ShowNextNews(200) %>
<br>
<li>
<a href="NewsClass.asp?BigClass=<%=rsnews("BigClassName")%>">返回上级新闻</a>
</td>
</table></td>
</tr>
<tr align="right">
<td colspan="2"> </td>
</tr>
<tr>
</tr>
<%
end if
rsnews.close
set rsnews=nothing
%>
</table>
<% if NewsComment="Yes" then %>
<table Class=border borderColor="#d8d8f0" cellSpacing="0" cellPadding="0" width="523" align="center" >
<tr>
<td height="22" align="middle" class="tr">
<p align="left">
<b> </b><b>相关评论</b></td>
</tr>
<tr>
<td align="middle" bgColor="#ffffff" height="248" style="padding-top: 5px; padding-bottom: 5px">
<%set rs3 = server.CreateObject("adodb.recordset")
sql="select * from 0791idc_comment where com_typeid="&id&" order by com_id desc"
rs3.open sql,conn,1,1
if rs3.bof and rs3.eof then
%> <table width="98%" border="1" cellpadding="0" cellspacing="0" borderColor="#d8d8f0" >
<tr>
<td height="22" style="padding-left: 5px; padding-right: 5px">暂无评论</td>
</tr>
</table>
<br> <%else
do while not rs3.eof
%>
<table width="98%" height="46" border="1" cellpadding="0" cellspacing="0" borderColor="#d8d8f0" id="table13">
<tr>
<td width="100%" height="22" class="tr"><span lang="en">
</span>评论人：<%=Replace(Replace(rs3("com_name"),"<","<"),">",">")%> 评论时间：<%=rs3("com_date")%></td>
</tr>
<tr>
<td height="22" style="word-break:break-all"><%response.write " " & rs3("com_content") & "<br>"%>
</td>
</tr>
</table>
<br> <%rs3.movenext
loop
end if
rs3.close%>
<table width="98%" border="1" cellpadding="0" cellspacing="0" borderColor="#d8d8f0" id="table12">
<form method="POST" name="svcomment" action="Comment.asp?id=<%=id%>">
<tr>
<td height="21" colspan="4"> <a name="comment">发表评论</a>：</td>
</tr>
<tr>
<td width="18%" height="20"> 呢称：</td>
<td width="39%" height="20"> <div align="left">
<input type="text" name="com_name" size="30">
</div></td>
<td width="43%"><div align="left">验证码:
<input name="VerifyCode" type="text" class="TextBox" id="VerifyCode" size="4" maxlength="4">
<img src="inc/VerifyCode.asp"></div></td>
</tr>
<tr>
<td height="20" > 评论内容：</td>
<th height="20" colspan="2"><div align="left">
<textarea rows="7" name="com_content" cols="50"></textarea>
</div></th>
</tr>
<tr>
<th height="33" colSpan="4"> <div align="center">
<input type="submit" value="提交评论" name="B1">
<input type="reset" value="重置" name="B2">
</div></th>
</tr>
</form>
</table></td>
</tr>
</table>
<% end if %>
<br>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right"><a href="javascript:window.print()">打印本页</a>
|| <a href="javascript:window.close()">关闭窗口</a></td>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="inc/foot.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -