把以下的代码复制到modules.asp里去
function OnlineCount(server_id)
dim query
dim rs
query = "SELECT TOP 1 * " &_
"FROM user_count " &_
"WHERE (server_id = " & server_id & ") AND (CAST({ fn NOW() } AS float) " &_
"* 86400 - CAST(record_time AS float) * 86400 < 360) " &_
"ORDER BY record_time DESC"
set rs = server.createobject("ADODB.RECORDSET")
query, lin2db_conn, 1, 1
if not then
OnlineCount = Cint(rs("world_user"))
else
OnlineCount = -1
end if
set rs = nothing
end function
%>