hit.asp

来自「一个功能非常强大的新闻发布系统,里面的技术都是采用最新的,支持当前最流行的网站风」· ASP 代码 · 共 20 行

<!--#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) &");"
%>