📄 show_news.asp
字号:
<%@ codepage ="936" %><%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：service@fyasp.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<!--#include file="inc/config.asp"-->
<!--#include file="conn/dbconn.asp"-->
<!--#include file="inc/check_input.asp"-->
<html>
<head>
<script language="JavaScript" src="inc/move.js"></script>
<LINK href="css/Style.css" rel=stylesheet type=text/css>
<STYLE type=text/css>
<!--
td { font-family: "宋体"; font-size: 9pt; line-height: 14pt; }
-->
</STYLE>
<%
dim newsid
dim hits
newsid=request("newsid")
hits=request("hits")
newsid=CheckInput(newsid,"i","1")
hits=CheckInput(hits,"i","1")
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql1="update news set hits=hits+1 where newsid="+cstr(newsid)+""
rs.open sql1,conn,1,1
%>
<%
sql="select * from news where newsid="+cstr(newsid)+" order by newsID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>对不起，暂时还未有信息</p>"
else
showContent
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
%>
<title><%=rs("newstitle")%></title>
</head>
<body onselectstart="return false">
<p align="center">
</p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="530" id="AutoNumber3">
<tr>
<td align=right width="482" height="1" style="font-family: 宋体; font-size: 9pt; line-height: 14pt; letter-spacing: 0pt">
<a href=javascript:initialize(); style="text-decoration: none">
<img src=pict/dotitem.gif widht=10 height=12 border=0 alt='点此滚屏'></a>鼠标双击自动滚屏 </td>
</tr>
</table>
</center>
</div>
<center>
<table border="0" cellPadding="0" cellSpacing="0" align=center>
<tr>
<td valign="top" bgcolor="#EEF7FF">
<table border="0" cellSpacing="1" width="530" style="border-collapse: collapse" bordercolor="#111111" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
<tr>
<td align="center">
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="95%" id="AutoNumber2" cellpadding="0">
<tr>
<td align="center"><span style="background-color: #EEF7FF"><br>
</span><b>
<span style="background-color: #EEF7FF">
<font color="#FF6600" class="f12">
<span style="font-size: 10.5pt"><%=rs("newstitle")%></span></font><font color="#FF9B00" class="f12"><br>
</font>
</span></b><font color="gray">(发布日期：<%=rs("Date")%>)</font><font color="#FF0000"> </font>
<font color="#808080">浏览人数：</font><font color="#FF0000"><%=rs("hits")%></font></td>
</tr>
<tr>
<TD background=images/bg_b.gif style="color: #000; font-family: 宋体; font-size: 12px; line-height:100%" bgcolor="#EEF7FF" height="1"><IMG
height=1 src="" width=1></TD>
</tr>
<tr>
<td align="center"></td>
</tr>
<tr>
<td align="left" class="lh13" valign=top><p>
<%=Replace(rs("content"),chr(13),"<br><br> ")%>
</td>
</tr>
<tr>
<td height="20" width="100%">
<p align="right"><b>
<%if rs("Name")<>"" then response.write""&rs("Name")&"" else response.write"" end if
%></b></td>
</tr>
<tr>
<TD background=images/bg_b.gif style="color: #000; font-family: 宋体; font-size: 12px; line-height:100%" bgcolor="#EEF7FF"><IMG
height=1 src="" width=1></TD>
</tr>
<tr>
<td width="100%"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="right"><a href="sendmail.asp?newsid=<%=rs("newsid")%>">
<span style="background-color: #EEF7FF"><img border="0" src="pict/emailtofriend.gif" alt="把本篇文章推荐给我的好友"></span></a><span style="background-color: #EEF7FF"> </span><a href="javascript:window.print();"><span style="background-color: #EEF7FF"><img border="0" src="pict/print.gif" alt="打印本篇文章"></span></a><span style="background-color: #EEF7FF"> </span><a href="javascript:window.close()"><span style="background-color: #EEF7FF"><img border="0" src="pict/back1.gif" alt="关闭窗口"></span></a></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -