📄 hit.asp
字号:
<!--#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) &");"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -