<%owen=request("id")%>
<%
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="update news set hits=hits+1 where id="&cstr(request("id"))
conn.execute sql
sql="select * from news where id="&owen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
%>
<%= title %> - 上海网域网新闻中心
<%
dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from shop_pinglun where id="&owen&"",conn,1,1
if rs1.eof and rs1.bof then
response.write" "
else do while not rs1.eof
%>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
end if%>
返回上页 | 
打印本页 | 
关闭窗口