<% dim oblog set oblog=new class_sys oblog.autoupdate=false oblog.start dim js_blogurl,n js_blogurl=trim(oblog.setup(3,0)) n=cint(request("n")) if n=0 then n=1 select case cint(request("j")) case 1 call tongji() case 2 call topuser() case 3 call adduser() case 4 call listclass() case 5 call showusertype() case 6 call listbestblog() case 7 call showlogin() case 8 call showplace() case 9 call showphoto() case 10 call showblogstars() case 0 call showlog() end select sub tongji() dim rs,logcount,commentcount,messagecount,usercount dim today_log,yesterday_log set rs=oblog.execute("select log_count,comment_count,message_count,user_count from oblog_setup") logcount=rs(0) commentcount=rs(1) messagecount=rs(2) usercount=rs(3) if is_sqldata then set rs=oblog.execute("select count(logid) from oblog_log where datediff(d,truetime,GetDate())=0") else set rs=oblog.execute("select count(logid) from oblog_log where datediff('d',truetime,now())=0") end if today_log=rs(0) if is_sqldata=1 then set rs=oblog.execute("select count(logid) from oblog_log where datediff(d,truetime,GetDate())=1") else set rs=oblog.execute("select count(logid) from oblog_log where datediff('d',truetime,now())=1") end if yesterday_log=rs(0) %> document.write('◎- 博客总数 <%=usercount%>
◎- 日志总数 <%=logcount%>
◎- 评论总数 <%=commentcount%>
◎- 留言总数 <%=messagecount%>'); document.write('
◎- 今天日志 <%=Today_log%>
◎- 昨天日志 <%=yesterday_log%>') <% set rs=nothing end sub sub topuser() dim i,blogname,rs,userurl,order,ordersql order=clng(request("order")) i=0 if order=1 then ordersql="user_siterefu_num" else ordersql="log_count" end if set rs=oblog.execute("select top "&n&" username,log_count,blogname,userid,user_domain,user_domainroot from [oblog_user] order by "&ordersql&" desc") do while Not RS.Eof and n>i if trim(rs(2))<>"" then blogname=oblog.filt_html(Replace(Replace(Replace(Replace(rs(2),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")) else blogname=oblog.filt_html(Replace(Replace(Replace(Replace(rs(0),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")) end if if oblog.setup(12,0)=1 then userurl="http://"&rs(4)&"."&trim(rs(5)) else userurl=js_blogurl&"go.asp?userid="&rs(3) end if response.write "document.write('4');" response.write "document.write('"&blogname&"("&rs(1)&")');" response.write "document.write('
');" rs.MoveNext i=i+1 Loop set rs=nothing end sub sub adduser() dim i,blogname,rs,userurl i=0 set rs=oblog.execute("select top "&n&" username,log_count,blogname,userid,user_domain,user_domainroot from [oblog_user] order by userid desc") do while Not RS.Eof and n>i if trim(rs(2))<>"" then blogname=oblog.filt_html(Replace(Replace(Replace(Replace(rs(2),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")) else blogname=oblog.filt_html(Replace(Replace(Replace(Replace(rs(0),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")) end if if oblog.setup(12,0)=1 then userurl="http://"&rs(4)&"."&trim(rs(5)) else userurl=js_blogurl&"go.asp?userid="&rs(3) end if response.write "document.write('4');" response.write "document.write('"&blogname&"("&rs(1)&")');" response.write "document.write('
');" rs.MoveNext i=i+1 Loop set rs=nothing end sub sub listbestblog() dim i,blogname,rs,userurl i=0 set rs=oblog.execute("select top "&n&" username,log_count,blogname,userid,user_domain,user_domainroot from [oblog_user] where user_isbest=1 order by log_count desc") do while Not RS.Eof and n>i if trim(rs(2))<>"" then blogname=oblog.filt_html(Replace(Replace(Replace(Replace(rs(2),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")) else blogname=oblog.filt_html(Replace(Replace(Replace(Replace(rs(0),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")) end if if oblog.setup(12,0)=1 then userurl="http://"&rs(4)&"."&trim(rs(5)) else userurl=js_blogurl&"go.asp?userid="&rs(3) end if response.write "document.write('4');" response.write "document.write('"&blogname&"("&rs(1)&")');" response.write "document.write('
');" rs.MoveNext i=i+1 Loop set rs=nothing end sub sub showlogin() response.Write("function chkdiv(divid){var chkid=document.getElementById(divid);if(chkid != null){return true; }else {return false; }}"&VbCrLf) response.write "document.write('

');" end sub sub showplace() response.write "document.write('"&Replace(Replace(Replace(Replace(oblog.setup(18,0),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"');" end sub sub showusertype() dim rs set rs=oblog.execute("select id,classname from [oblog_userclass] order by RootID,OrderID") do while Not RS.Eof response.write "document.write('4');" response.write "document.write('"&rs(1)&"');" response.write "document.write('
');" rs.MoveNext Loop set rs=nothing end sub sub listclass() dim rs set rs=oblog.execute("select id,classname from [oblog_logclass] order by RootID,OrderID") do while Not RS.Eof response.write "document.write('4');" response.write "document.write('"&rs(1)&"');" response.write "document.write('
');" rs.MoveNext Loop set rs=nothing end sub sub showlog() dim rs,sql,ars,i dim orders,topic,isbest dim postname,classid,posttime,userid dim usersql,isbestsql,userurl,sdatesql if request("user")<>"" then userid=clng(request("user")) else userid=0 end if if trim(request("orders"))=1 then orders="iis" elseif trim(request("orders"))=2 then orders="logid" elseif trim(request("orders"))=3 then orders="commentnum" else response.Write("错误的参数") response.End() end if if trim(request("classid"))="all" then classid="" else if isnumeric(request("classid")) then classid=" and classid="&cint(trim(request("classid")))&"" else response.Write("错误的参数") response.End() end if end if if userid>0 then usersql=" and oblog_log.userid="&userid else usersql="" end if if not isnumeric(request("sdate")) then response.Write("错误的参数") response.End() end if if not isnumeric(request("n")) then response.Write("错误的参数") response.End() elseif cint(request("n"))>100 then response.Write("不能调用大于100条数据") response.End() end if if cint(request("action"))=2 then isbestsql=" and isbest=1" else isbestsql="" end if if is_sqldata=1 then sdatesql=" and datediff(d,truetime,getdate())<"&cint(request("sdate")) else sdatesql=" and datediff('d',truetime,now())<"&cint(request("sdate")) end if set rs=oblog.execute("select top "&n&" author,topic,logid,classid,subjectid,truetime,iis,commentnum,logfile,oblog_log.userid,user_domain,user_domainroot from oblog_log,oblog_user where passcheck=1 and isdraft=0 "&sdatesql&isbestsql&classid&usersql&" and oblog_user.userid=oblog_log.userid ORDER BY "&orders&" desc") i=0 do while Not RS.Eof and iCint(request("tlen")) then topic=oblog.InterceptStr(topic,request("tlen")+3)&"..." end if response.write "document.write('4');" if request("classname")=1 then set ars=oblog.execute("select classname from oblog_logclass where id="&rs(3)) if not ars.eof then response.write "document.write('〖"&oblog.filt_html(ars(0))&"〗');" end if end if if request("subjectname")=1 then set ars=oblog.execute("select subjectname from oblog_subject where subjectid="&rs(4)) if not ars.eof then response.write "document.write('["&oblog.filt_html(ars(0))&"]');" end if end if response.write "document.write('');" response.write "document.write('"&topic&"');" response.write "document.write('');" select case cint(request("info")) case 0 case 1 response.write "document.write('("&postname&","&formatdatetime(POSTTIME,0)&")');" case 2 response.write "document.write('("&POSTTIME&")');" case 3 response.write "document.write('("&postname&")');" case 4 response.write "document.write('("&postname&","&rs(6)&")');" case 5 response.write "document.write('("&rs(6)&")');" case 6 response.write "document.write('("&postname&","&formatdatetime(POSTTIME,1)&")');" case 7 response.write "document.write('("&formatdatetime(POSTTIME,1)&")');" case 8 response.write "document.write('("&rs(7)&")');" case else end select response.write "document.write('
');" RS.MoveNext i=i+1 Loop rs.close set ars=nothing set rs=nothing end sub sub showphoto() dim rs,n,i,w,h,show_newphoto n=clng(request("n")) i=clng(request("i")) w=clng(request("w")) h=clng(request("h")) if i=1 then i="
" else i="" set rs=oblog.execute("select top "&clng(n)&" file_path,file_readme,oblog_upfile.userid,user_dir,username,nickname,user_folder from [oblog_user],oblog_upfile where oblog_user.userid=oblog_upfile.userid and isphoto=1 and ispower=0 order by fileid desc") while not rs.eof show_newphoto=show_newphoto&""&i rs.movenext wend response.write "document.write('"&Replace(Replace(Replace(Replace(show_newphoto,"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"');" set rs=nothing end sub sub showblogstars() dim rs,n,i,w,h,show_blogstars n=clng(request("n")) i=clng(request("i")) w=clng(request("w")) h=clng(request("h")) show_blogstars=show_blogstar2(n,i,w,h) response.write "document.write('"&Replace(Replace(Replace(Replace(show_blogstars,"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"');" set rs=nothing end sub Public Function show_blogstar2(iNumber,iPerline,iWidth,iHeight) Dim rs,iCount,sLine If Not IsNumeric(iNumber) Then iNumber=1 Else iNumber=CLng(iNumber) End If 'iWidth=160 'iHeight=160 If iNumber=0 Then iNumber=1 set rs=oblog.execute("select top " & iNumber & " * from oblog_blogstar where ispass=1 order by id desc") if not rs.eof then show_blogstar2="" If iNumber=1 Then sLine = "" show_blogstar2 = show_blogstar2 & sLine & "" & VBCRLF '多图片时强制大小统一 Else iCount=1 Do While Not rs.Eof sLine = "" & VBCRLF show_blogstar2 = show_blogstar2 & sLine If iCount Mod iPerline=0 Then show_blogstar2 = show_blogstar2 & "" iCount = iCount+1 rs.MoveNext Loop If Right(show_blogstar2,5)<>"" Then show_blogstar2 = show_blogstar2 & "" End If show_blogstar2 = show_blogstar2 & "

" & iWidth &") this.style.width=" & iWidth &";"" /> " sLine = sLine &"博客："&""&oblog.filt_html(rs("blogname"))&" " sLine = sLine &"简介："&oblog.filt_html(rs("info"))&"

" sLine = sLine &"博客："&""&oblog.filt_html(rs("blogname"))&" " sLine = sLine &"简介："&oblog.filt_html(rs("info"))&"

" Else show_blogstar2=" " End If rs.Close set rs=nothing End Function %>