<% id=cstr(request("id")) Set rsnews=Server.CreateObject("ADODB.RecordSet") sql="update news set hits=hits+1 where id="&id conn.execute sql sql="select * from news where id="&id rsnews.Open sql,conn,1,1 title=rsnews("title") if rsnews.eof and rsnews.bof then response.Write("數據庫出錯") else %>

<%= rsnews("title") %>

<% end if rsnews.close set rsnews=nothing %> <%= rsnews("title") %> 發布者：<%= rsnews("user") %> 發布時間：<%= rsnews("AddDate") %> 閱讀：<%= rsnews("hits") %>次 <%=rsnews("content") %> 　 打印本頁 || 關閉窗口