"
select case rs1(9)
case 1
if datediff("h",lastlogin,LastPostInfo(2))=0 then
response.write " "
else
response.write " "
end if
case 2
if datediff("h",lastlogin,LastPostInfo(2))=0 then
response.write " "
else
response.write " "
end if
case 3
if datediff("h",lastlogin,LastPostInfo(2))=0 then
response.write " "
else
response.write " "
end if
case 4
if datediff("h",lastlogin,LastPostInfo(2))=0 then
response.write " "
else
response.write " "
end if
case 5
if datediff("h",lastlogin,LastPostInfo(2))=0 then
response.write " "
else
response.write " "
end if
boardview="认证论坛"
case 6
if datediff("h",lastlogin,LastPostInfo(2))=0 then
response.write " "
else
response.write " "
end if
boardview="正规论坛"
end select
response.write " | "&rs1(1)&""&boardview&"
"
if rs1(8)<>"" then
response.write ""
end if
response.write rs1(3)
response.write " | "
master_1=split(rs1(5), "|")
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>3 then master_2=master_2 & "More..."
response.write master_2
master_2=""
response.write " | "&_
""&rs1(7)&" | "&_
""&rs1(4)&" | "&_
""
if rs1(9)=5 then
response.write "认证论坛，认证用户进入查看。"
else
response.write "主题："&htmlencode(LastPostInfo(3))&"
"
response.write "最后发表："&htmlencode(LastPostInfo(0))&"
" & FormatDateTime(LastPostInfo(2),1) & "" & FormatDateTime(LastPostInfo(2),4)
end if
response.write " | "&_
""&_
" |
"
boardview=""
rs1.movenext
loop
rs1.close
set rs1=nothing
end sub
sub fast_login()
response.write "
"
response.write "