3344520.asp

来自「教育管理系统」· ASP 代码 · 共 26 行

<%Option Explicit%>
<!--#include file="articleconn.asp"-->
<%
dim RS,sql
dim url,id

url = Request.QueryString("url")
id	= Request.QueryString("id")

if Trim(id) <> "" and IsNumeric(id) then
	Set RS = Server.CreateObject("ADODB.RecordSet")
	sql = "select * from learning where articleid = " & id
	RS.Open sql, Conn, 3, 3
	if not RS.EOF then
		RS("hits").value = RS("hits").value + 1
		RS.Update
	end if
	RS.Close
	Set RS = nothing
end if

Conn.Close
Set Conn = nothing

Response.Redirect(url)
%>