📄 view.asp
字号:
<!--#include file="setup.asp" -->
<%
on error resume next
dim rs,sql
sql="update news set hits=hits+1 where id="&cstr(request("id"))
conn.execute sql
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&cstr(request("id"))
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "此文章已经删除。。。"
else
%>
<html>
<head>
<title><%=homepage_title&" - "&rs("title")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
<script language="JavaScript">
function click() {
if (event.button==2) {
if(document.all.auto.status==true){document.all.auto.status=false;alert("自动滚屏已经停止了！")}
scroller();
}
}
document.onmousedown=click
var position = 0;
function scroller() {
if (document.all.auto.status==true){
position++;
scroll(0,position);
clearTimeout(timer);
var timer = setTimeout("scroller()",50);
timer;
}
else{
clearTimeout(timer);
}
}
</script>
<script language="JavaScript">
<!--
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF">
<div align="center">
<script language="JavaScript" src="banner_up.asp">
</script>
<br>
</div>
<table width="88%" border="0" align="center">
<tr>
<td>
<div align="right">
<input type="checkbox" name="auto" value="on" onClick="MM_callJS('scroller() ; ')" >
自动滚屏(右键暂停)</div>
</td>
</tr>
<tr>
<td>
<table width="100%" border="1" align="center" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr>
<td bgcolor="#669900" width="100%"> <font color="#FFFFFF"><b>标题：<%=rs("title")%></b></font></td>
</tr>
<tr>
<td bgcolor="#FFFFCC" width="100%">
<%
if rs("image")<>"" then
response.write "<img align=left src='"&rs("image")&"'>"
end if
%>
<%=rs("content")%><br>
<br>
<%
if rs("linktitle")<>"" and rs("linkurl")<>"" then
response.write "链接地址：<i><font color=red><a href='"&rs("linkurl")&"' title='"&rs("linkurl")&"' target='_blank'>"&rs("linktitle")&"</a></font></i>"
end if
cata=rs("cataid")
addtime=rs("addtime")
hits=rs("hits")
rs.close
%>
<br>
<br>
上两条同类新闻：<br>
<%
sql="select top 2 id,title from news where cataid='"&cata&"' and id<"&request("id")&" order by id desc"
rs.open sql,conn,1,1
for i=1 to 2
if not rs.bof then
response.write "<li><a href=view.asp?id="&rs("id")&">"&rs("title")&"</a></li>"
rs.movenext
end if
next
%>
<p align="right"><a href="recommend.asp?id=<%=request("id")%>"><img src="images/recommend.gif" border="0" width="17" align="absmiddle">推荐给朋友
</a> | <a href="sendback.asp?id=<%=request("id")%>"><img src="images/email.gif" width="33" height="11" border="0" align="absmiddle">打包发回信箱</a></p>
</td>
</tr>
<tr>
<td bgcolor="#669900" width="100%">
<div align="right"><font color="#FFFFFF"> | 发布时间：<%=addtime%> 被阅览数：<%=hits%></font></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<div align="center">[<a href="javascript:window.close()">关闭窗口</a>]
<script language="JavaScript" src="banner_down.asp">
</script>
<%
set rs=Nothing
end if
endconnection%>
<script language="JavaScript">
document.write("<hr width='80%' size='1'>");
document.write("<div align='center' style=fontsize:9pt;><font face='Verdana, Arial, Helvetica, sans-serif'>");
document.write("<a href=<%=homepage_link%> target=_blank><font color=red><%=homepage_title%></font></a> - <a href=<%=news_location%>\default.asp><font color=black><%=news_title%></font></a><br>");
document.write("<font face='Verdana, Arial, Helvetica, sans-serif' color='#000000'>");
document.write("Copyright</font><font face='Verdana, Arial, Helvetica, sans-serif' color='#FF0000'> ");
document.write("<font color='#0000FF'>©</font></font>");
document.write("<font face='Verdana, Arial, Helvetica, sans-serif' color='#000000'>By ");
document.write("<a href=http://www.qbtrade.com target=_blank>QBTrade<font color='#0000FF'>™</font> Group</a>, 2000.8.30</font><font face='Verdana, Arial, Helvetica, sans-serif'>");
document.write("<br><font color='#000000'>All rights Reserved</font>");
var current_version="<%=current_version%>";
</script>
<!--下面这个script是自动检查更新代码，请不要删除-->
<script src=http://www.qbtrade.com/news/update.asp></script>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -