<%
Option Explicit
Response.buffer = True
Const ChannelID = 0
Const SkinID = 0
%>
<%
dim aa,counta
Sub asd()
Dim ShowType, LoginNum
ShowType = Trim(Request.QueryString("ShowType"))
If ShowType = "" Then
ShowType = 1
Else
ShowType = CLng(ShowType)
End If
If CheckUserLogined() = False Then
Response.Write("您还没有登录,敬请登录!")
Else
aa+=" & UserName &
counta+=1
END IF
rsMessage.Close
Set rsMessage = Nothing
End Sub
%>
