📄 newsview.asp
字号:
<!--#include file="ConnDB.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻阅读</title>
<link rel="stylesheet" href="style.css">
</head>
<body topmargin="0" leftmargin="0">
<%
Dim rsCate
'定义记录集对象
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rsCate = Server.CreateObject("ADODB.RecordSet")
'设置SQL语句，读取指定的新闻记录
sqlString="SELECT * FROM News WHERE Id=" & Request.QueryString("id")
rs.Open sqlString, Conn, 1, 1
'替换新闻正文中的特殊标记
If Not rs.EOF Then
rqtContent= rs("content")
rqtContent = replace(rqtContent,"[space]"," ")
'更新阅读数量
Conn.execute("UPDATE News SET ReadCount = ReadCount + 1 WHERE Id=" & Request("id"))
'读取新闻类别
sql = "SELECT * FROM Category WHERE CateId=" & rs("CateId")
Set rsCate = Conn.Execute(sql)
If Not rsCate.EOF Then
stitle = rsCate("CateName")
End If
%>
<center>
<table border="0" borderColorLight="#000080" cellSpacing="5" cellpadding="0" width="98%">
<tr>
<td width="100%" align=center height=50><strong><font color=red size=4><%=stitle%></font></strong>
</td></tr>
<tr>
<td align=center><strong><%=RS("title")%></strong><br>
<%=RS("posttime")%><br>
<hr color="blue"></td>
</tr>
<tr>
<td><%=rqtContent%></td>
</tr>
</table></center>
<%
End If
rs.Close
Set rs = Nothing
%>
<br>
</div>
<p align="center"><a href="newsDiscuss.asp?id=<%=Request("id")%>"><font color=blue>[发表评论]</font></a>
<a href="javascript:window.close()"><font color=blue>[关闭本窗口]</font></a></p>
</a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -