<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
set rscate=server.CreateObject("adodb.recordset")
rs.open "select * from news where newsid='"&request.QueryString("newsid")&"'",conn,1,3
if not rs.eof then
rqttitle=rs("newstitle")
rqtContent= rs("newsCONTENT")
rqtContent = replace(rqtContent,"[space]"," ")
'更新阅读数量
conn.Execute("UPDATE NEWS SET newsREADCOUNT = newsREADCOUNT + 1 WHERE newsID=" & Request.QueryString("newsid"))
'读取新闻类别
sql = "SELECT * FROM CATEGORY WHERE CID=" & rs("CID")
'执行查询
Set rsCate = conn.Execute(sql)
'如果记录集不为空,则设置新闻类别
If Not rsCate.EOF Then
stitle = rsCate("CNAME")
End If
'显示新闻标题、发表时间和内容
%>
<td height="184" colspan="4" valign="top"><!--#include file="head.asp"--> </td>
</tr>
<tr>
<td width="27" height="60"> </td>
<td width="559" valign="top"><p class="style16"><strong>标题:<%=stitle%></strong> </p>
<p class="style18"><%=rs("newsposttime")%>发表该新闻已被浏览过<%=rs("newsreadcount")%>次
作者:<%=rs("newsposterid")%></font></span> </p></td>
<td width="28"> </td>
<td width="216" rowspan="2" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="1244" colspan="3" valign="top">
<span class="style16"><%=rqtContent%>
</span></td>
</tr>
</table></td>
<div align="center"><br>
<input name="Submit" type="button" class="STYLE11" onClick="javascritp:window.close()" value="关闭窗口">
</div>
<div align="right"><a href="newDiscuss.asp?newsid=<%=Request("newsid")%>" class="style15">发表评论 </a></div></td></tr>
<td> </td>
这些代码所在页面的文件名是什么?