[yohv]

<%
Private Function getUserList(userState,a,weburl)

dim rst
getUserList = ""
'_____________________________________________________________________________< 获取在线名单,跟据用户状态
if userState = 0 then
set rst = dataLinkR(gal_DB_CT_Path, "select clientID, clientName, serverName, stayTime from online_user where left(browseURL,a)='"& weburl &"' and userState<>10 And userState<>50 And userState<>100 and isOnLine=1 order by time_ ASC")
else
set rst = dataLinkR(gal_DB_CT_Path, "select clientID, clientName, serverName, stayTime from online_user where left(browseURL,a)='"& weburl &"' and userState="& userState &" and isOnLine=1 order by time_ ASC")
end if
if not rst.eof then
while not rst.eof
getUserList = getUserList & "<div id="""& rst(0) &""" class=""list""><a href=""#"" onClick=""setTalkWith('" & rst(0) & "','" & rst(1) & "')"" onMouseDown=""handleEvt('" & rst(0) & "','" & rst(1) & "')"" class=""isRead"">" & rst(1) & "</a>("& rst(3) &")("& rst(2) &")</div>"
rst.moveNext
wend
else
getUserList = ""
end if
rst.close()
'_____________________________________________________________________________>
set rst = nothing
if getUserList <> "" then getUserList = regExp_(chr(34), getUserList, chr(92)&chr(34), true)
End Function

Private Function getUserStatus()
dim rst, uid
getUserStatus = ""
uid = ""
'_____________________________________________________________________________< 接收信息
set rst = dataLinkR(gal_DB_CT_Path, "select clientID from user_message where isRead=0 And isServer=0 order by time_ ASC")
if not rst.eof then
while not rst.eof
getUserStatus = getUserStatus & "setUserList("""& rst(0) &""", 1);"
rst.moveNext
wend
else
getUserStatus = ""
end if
rst.close()
'_____________________________________________________________________________>
set rst = nothing
End Function

dim userList_Request, userList_Invite, userList_Dialogue, userList_Visit, userStatus,rst1,i,url,serverid,server
serverid=session("serverID")
set rst = dataLinkR(gal_DB_CT_Path, "select * from server_user where serverID='"&serverid&"' order by time_ ASC")
server=rst("server")
rst.close()
'_____________________________________________________________________________>
set rst = nothing
set rst1 = dataLinkR(gal_DB_CT_Path, "select * from server_user where uid='"&server&"' order by time_ ASC")
url=rst1("WebURL")
i=len(weburl)
rst1.close()

userList_Request = getUserList(10,i,url)
userList_Invite = getUserList(50,i,url)
userList_Dialogue = getUserList(100,i,url)
userList_Visit = getUserList(0,i,url)


userStatus = getUserStatus()

%>

这段程序怎么就不可以用呢？
大家帮帮我啊
谢谢了