<%
id=Trim(Request.QueryString("id"))
on error resume next
dim rslink,strSql
set rslink= server.CreateObject("Adodb.recordset")
strSql="update news set Hits=Hits+1 where id=" & id
conn.execute strSql
strSql="select * from News where id=" & id
rslink.open strsql,conn,1,1
if rslink.bof and rslink.eof then
response.Write "數據庫連接時出現錯誤"
else
%>
<% do while not rslink.eof %>
<%=rslink("title")%> | |
<% =rslink("content")%> |