777婷婷天堂综合区色吧,激情图区视频区,日本偷拍资源站,国产精品综合久久九

<!--#include file="conn.asp" -->

<%
ID = Trim(Request.QueryString("ID"))

Set rs = Server.CreateObject("Adodb.Recordset")
Sql = "select new_hits from News where ID=" & ID
rs.open sql,conn,1,3
rs("new_hits") = rs("new_hits") + 1
rs.update
hits = rs("new_hits")
%>

'輸出文章瀏覽次數
document.write("<%=hits%>")