📄 onews.asp
字号:
<!--#include file="conn.asp"-->
<%owen=request("id")%>
<html>
<head>
<style type="text/css">
.content { font-size: 11pt; }
td{word-break:break-all}
</style>
<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>
<%
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="update news set hits=hits+1 where id="&cstr(request("id"))
conn.execute sql
sql="select * from news where id="&owen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
<title><%= title %></title>
</head>
<body topmargin="0">
<!--#include file="top.asp"-->
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3">
<tr>
<td width="6" rowspan="2" align="center" valign="top"> </td>
<td width="760" align="right" valign="top" bgcolor="#F3F3F3">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </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="40%" height="30" style="border-top: 1 solid #666666;border-bottom: 1 solid #666666">双击自动滚屏</td>
<td width="60%" align="center" style="border-top: 1 solid #666666;border-bottom: 1 solid #666666">发布者：<%= rsnews("user") %>
发布时间：<%= rsnews("infotime") %> 阅读：<font color="#FF0000"><%= rsnews("hits") %></font>次</td>
</tr>
<tr>
<td colspan="2"><br><div style='font-size:10.5pt'><%=rsnews("content") %></div></td>
</tr>
<tr align="right">
<td colspan="2"> </td>
</tr>
<tr align="right">
<td colspan="2"> </td>
</tr>
<%
end if
rsnews.close
set rsnews=nothing
%>
</table>
</td>
</tr>
<tr>
<td height="40" align="right" bgcolor="#F3F3F3" width="760">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right"> <a href=# onClick="javascript:window.open('pinglun.asp?id=<%=request("id")%>','','width=295,height=185,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;" ><img src=images/my_review.gif width=93 height=20 border=0 alt=用户评论></a>
| <img src="images/printer.gif" width="16" height="14" align="absmiddle">
<a href="javascript:window.print()">打印本页</a> | <img src="images/close.gif" width="14" height="14" align="absmiddle">
<a href="javascript:window.close()">关闭窗口</a></td>
</tr>
<%
dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from shop_pinglun where id="&owen&"",conn,1,1
if rs1.eof and rs1.bof then
response.write"<tr><td colspan=2> 如果您阅读过本书，或对本书有所了解，欢迎您发表自己的评论。您的评论将被网络上成千上万的读者所共享，我们将对您的慷慨深表感谢。<br>"
response.write " 您的评论在提交后将经过我们的审核，也许您需要等待一些时间才可以看到。谢谢合作。</td></tr>"
else do while not rs1.eof
%>
<tr>
<td colspan="2"><img src="images/b.gif" width="10" height="10" align="absmiddle">[<b><%=rs1("pinglunname")%></b>@<%=rs1("pinglundate")%>]<br>
<%=rs1("pingluncontent")%></td>
</tr>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
end if%>
<tr>
<td colspan="2"> <b>本站发表读者评论，并不代表我们赞同或者支持读者的观点。我们的立场仅限于传播更多读者感兴趣的信息。</b></td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -