|
|
| [图文]第九期优秀学员:马力丛 |
| 作者:李星 文章来源:奥特世纪 更新时间2007-3-20 13:58:44 |
|
| |
|
<%
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
%>
| 限制人数:无数人 |
| 预约列表 |
人数为:<%Response.write(counta)%> |
<%Response.Write(aa)%> |
|
|
|
|