<!--#include file="cms_class.asp" -->
<%
' +----------------------------------------------------------------------
' | KCMS [ 启点在线网站管理系统 ]
' | Copyright (c) 2018 http://www.kelvinvt.com All rights reserved.
' | Licensed ( http://www.kelvinvt.com )
' | Author: kelvinvt <kelvinvt@qq.com>
' +----------------------------------------------------------------------
Dim AID,BID,CID
AID=filterPara(getForm("Aid","get"))
BID=filterPara(getForm("Bid","get"))
CID=filterPara(getForm("cid","get"))
if not isnul(aid) then
dbsql("update [dbpre]about set A_Visits=A_Visits+1 where Aid="&Aid)
elseif not isnul(bid) then
dbsql("update [dbpre]brand set B_Visits=B_Visits+1 where Bid="&Bid)
elseif not isnul(cid) then
dbsql("update [dbpre]Content set C_Visits=C_Visits+1 where cid="&cid)
Dim rsObj
set rsObj=dbsqlr1("select C_Visits from [dbpre]Content where CID="&CID&"")
if not rsObj.eof then echo "document.write("&rsObj(0)&")"
rsObj.close : set rsObj=nothing
end if
%>