%
on error resume next
dim rs,sql,imgpath,id
id=jiancha("id",1)
imgpath="news/uppic/"
sql="update news set hits=hits+1 where id="&id
conn.execute sql
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&id
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write ""
response.end
else
%>
北京五洲大酒店-北京国际会议中心
|
|
| |
| 发布时间: <%=rs("addtime")%> 被阅览数:
<%=rs("hits")%> 次 |
|
|
|
<% =rs("content") %>
|
上两条同类新闻:
<%
cata=rs("cataid")
rs.close
sql="select top 2 id,title from news where cataid="&cata&" and id<"&id&" order by id desc"
rs.open sql,conn,1,1
for i=1 to 2
if not rs.bof then
response.write ""&rs("title")&""
rs.movenext
end if
next
%>
|
|
|
| |
|
|
|
|
<%
set rs=Nothing
end if
%>