3344520.asp
来自「教育管理系统」· ASP 代码 · 共 26 行
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)
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?