📄 gethits.asp
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/KS.PublicCls.asp"-->
<%
Dim KS
Set KS=New PublicCls
Dim GQID,Hits,RS,SqlStr
GQID = KS.S("GQID")
If GQID = "" Then
Hits = 0
Else
SqlStr = "SELECT Hits FROM KS_GQ Where GQID=" & GQID
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SqlStr, conn, 1, 3
If RS.bof And RS.EOF Then
Hits = 0
Else
Hits = rs(0) + 1
rs(0) = Hits
rs.Update
End If
rs.Close
Set rs = Nothing
End If
Response.Write "document.write('" & Hits & "');"
Call CloseConn()
Set KS=Nothing
%>
<%
'==================================================
'邮箱: zxzyw@126.com
'网站: www.zxzyw.cn
'==================================================
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -