down1.asp

教育管理系统

<!--#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)
%><%Option Explicit%>
<title>壁纸下载</title>