<% dim rs, exec, s, url, port const topNum=10 '╩╫╥│╡≈╙├┴⌠╤╘╩²┴┐ const maxLen=20 '╩╫╥│╡≈╙├┴⌠╤╘▒Ω╠Γ╫╓╖√│ñ╢╚╧▐╓╞ const old_color="666666" '╛╔┴⌠╤╘╚╒╞┌╡─╤╒╔½ const new_color="red" '╨┬┴⌠╤╘╚╒╞┌╡─╤╒╔½ const showTime=true '╩╟╖±╧╘╩╛╚╒╞┌╧╘╩╛╔Φ╬¬trueú¼▓╗╧╘╩╛╔Φ╬¬false const showPic=true '╩╟╖±╧╘╩╛╙├╗º├√║≤╡─╨í═╝ const showname=true '╩╟╖±╧╘╩╛╙├╗º├√ port=request.servervariables("server_port") url= "http://"&request.servervariables("server_name") if (port<>80) then url=url &":"& port end if url=url & replace(request.servervariables("script_name"),"js.asp","") exec="select top "& topNum &" * from ly order by id desc" set rs=conn.execute(exec) if rs.eof then s= "╘▌╩▒├╗╙╨┴⌠╤╘úí" else if showTime and showname and showpic then do until rs.eof s=s&" " if rs("rt")>0 then s=s&"æ" else s=s&"" end if if len(rs("title"))<=maxLen then s=s&rs("title") else s=s&left(rs("title"),maxLen)&"..." end if s=s&" (" if rs("t")>date then s=s & "" & formatdatetime(rs("t"),2) & "," else s=s & ""& formatdatetime(rs("t"),2) & "," end if s=s & rs("name") if rs("bl")=1 then if isMaster(rs("name")) then s=s&"" else s=s&"" end if end if s=s& ")
" rs.movenext loop elseif showTime and showname then do until rs.eof s=s&" " if rs("rt")>0 then s=s&"æ" else s=s&"" end if if len(rs("title"))<=maxLen then s=s&rs("title") else s=s&left(rs("title"),maxLen)&"..." end if s=s&" (" if rs("t")>date then s=s & "" & formatdatetime(rs("t"),2) & "," else s=s & ""& formatdatetime(rs("t"),2) & "," end if s=s & rs("name") s=s&")
" rs.movenext loop elseif showname and showpic then do until rs.eof s=s&" " if rs("rt")>0 then s=s&"æ" else s=s&"" end if if len(rs("title"))<=maxLen then s=s&rs("title") else s=s&left(rs("title"),maxLen)&"..." end if s=s&" (" s=s & rs("name") if rs("bl")=1 then if isMaster(rs("name")) then s=s&"" else s=s&"" end if end if s=s&")
" rs.movenext loop elseif showname then do until rs.eof s=s&" " if rs("rt")>0 then s=s&"æ" else s=s&"" end if if len(rs("title"))<=maxLen then s=s&rs("title") else s=s&left(rs("title"),maxLen)&"..." end if s=s&" (" s=s & rs("name") s=s&")
" rs.movenext loop elseif showtime then do until rs.eof s=s&" " if rs("rt")>0 then s=s&"æ" else s=s&"" end if if len(rs("title"))<=maxLen then s=s&rs("title") else s=s&left(rs("title"),maxLen)&"..." end if s=s&" (" if rs("t")>date then s=s & "" & formatdatetime(rs("t"),2) & "" else s=s & ""& formatdatetime(rs("t"),2) & "" end if s=s&")
" rs.movenext loop else do until rs.eof s=s&" " if rs("rt")>0 then s=s&"æ" else s=s&"" end if if len(rs("title"))<=maxLen then s=s&rs("title") else s=s&left(rs("title"),maxLen)&"..." end if s=s&"
" rs.movenext loop end if end if 's=replace(s,"""","") response.write "document.write('"&s&"');" rsclose() connclose() %>