<!--#include file = "conn.asp"-->
<%
Dim ID,Rs,SQL
Dim hits
If Not IsNumeric(Request("ID")) And Request("ID") <> "" then
	Response.write"錯誤的系統參數!ID必須是數字"
	Response.end
Else
	ID = CLng(Request.querystring("ID"))
End If
Set Rs=server.createobject("adodb.recordset")
SQL = "select hits from news where id = "& ID   
Rs.open SQL,conn,1,3
	Rs("hits") = Rs("hits") + 1
	Rs.Update
	Hits = Rs("hits")
Rs.close
set Rs=nothing
response.write "document.write ("& Chr(34) &""& Hits &" "& Chr(34) &");"
%>