"
select case rs1(13)
case 1
if datediff("h",lastlogin,rs1(5))>0 then
response.write " "
else
response.write " "
end if
case 2
if datediff("h",lastlogin,rs1(5))>0 then
response.write " "
else
response.write " "
end if
case 3
if datediff("h",lastlogin,rs1(5))>0 then
response.write " "
else
response.write " "
end if
case 4
if datediff("h",lastlogin,rs1(5))>0 then
response.write " "
else
response.write ""
end if
case 5
if datediff("h",lastlogin,rs1(5))>0 then
response.write " "
else
response.write " "
end if
case 6
if datediff("h",lastlogin,rs1(5))>0 then
response.write ""
else
response.write ""
end if
end select
response.write " | "&rs1(1)&"
"
if rs1(10)<>"" then
response.write ""
end if
response.write rs1(3)
response.write " | "
master_1=split(rs1(7), "|")
for i = 0 to ubound(master_1)
if i>2 then
master_2=master_2
else
master_2=""+master_2+""+master_1(i)+"
"
end if
next
if i>2 then master_2=master_2 & "More..."
response.write master_2
master_2=""
response.write " | "&_
""&rs1(9)&" | "&_
""&rs1(4)&" | "&_
""
if rs1(12)<>"" then
response.write "主题："&htmlencode(rs1(12))&"
"
end if
response.write "最后发表："&htmlencode(rs1(6))&"
" & FormatDateTime(rs1(5),1) & "" & FormatDateTime(rs1(5),4)
response.write " | "&_
" "&_
" |
"
rs1.movenext
loop
rs1.close
set rs1=nothing
end sub
sub onlineuser()
guests="客人"
dim sip
dim acip
dim grade18,grade19,grade20
grade18=grade(18)
grade19=grade(19)
grade20=grade(20)
'用户信息
sql="select username,startime,lastimebk,ip,stats,userclass,browser,actforip,comefrom,actCome from online where username<>'"&guests&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
sip=rs(3)
acip=rs(7)
if rs(5)=grade20 or rs(5)=grade19 then
response.write "
论坛消息广播:"
rs.close
if Founduser then
sql="select lastlogin from [user] where username='"&membername&"'"
rs.open sql,conn,1,1
lastlogin=rs(0)
rs.close
end if
set rs=nothing
if isnull(lastlogin) or lastlogin="" then lastlogin=now()
sql="select top 1 boardid,title,content,addtime from bbsnews where boardid=0 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "当前没有公告("&now()&")"
else
response.write ""&rs(1)&" ("&rs(3)&")"
end if
rs.close
set rs=nothing
response.write "
"
elseif rs(5)=grade18 then
response.write "
现在时间为 "& FormatDateTime(now,4) &" 
