?? 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 + -