gethits.asp

来自「本系统是根据科汛系统编写的程序」· ASP 代码 · 共 33 行

<!--#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	
%> 
<%
'==================================================
'邮箱: [e-mail]		
'网站: www.zxzyw.cn
'==================================================
%>