📄 view.asp

📁 商店程序商店程序商店程序商店程序商店程序商店程序
💻 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">

<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="#8CAAE7" width="100%"> <font color="#FFFFFF"><b>标题：<%=rs("title")%></b></font></td>
        </tr>
        <tr> 
          <td bgcolor="#BECFF1" 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
%>
                   </td>
        </tr>
        <tr> 
          <td bgcolor="#8CAAE7" 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>] 

  <%
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>");

var current_version="<%=current_version%>";
</script>

</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -