<!-- #Include File="Skin.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

ChannelIDs=Cls.Code_ID("c_id")
Call Channel_Loader()
Dim CounterID,GetCounter
CounterID=Cls.Code_ID("id")
tit=Trim(Request.Querystring("tit"))
    Sql="Select top 1 Counter from "&Cls.ChannelTable&" where id="&CounterID
    Set rs=Cls.exec(Sql,1)
    If not rs.eof Then 
	GetCounter=Rs("Counter")
    End If
	rs.Close
    If Cls.ChannelModuleType <> 2 Then
       Call Cls.Exec("update "&Cls.ChannelTable&" set counter=counter+1 where id="&CounterID,0)
    End If
Response.Write "document.write (""" & GetCounter & """);"
%>
