js.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 280 行
ASP
280 行
<!--#include file="conn.asp"-->
<!--#include file="inc/class_sys.asp"-->
<%
Dim oblog
set oblog=new class_sys
oblog.autoupdate=False
oblog.start
dim js_blogurl,n
js_blogurl=Trim(oblog.CacheConfig(3))
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 11
Call show_hotblog()
Case 12
Call show_teams()
Case 13
Call show_posts()
Case 14
Call show_hottag()
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('◎- 博客总数 <font color=green><%=usercount%></font><br> ◎- 日志总数 <font color=green><%=logcount%></font><br> ◎- 评论总数 <font color=green><%=commentcount%></font><br> ◎- 留言总数 <font color=green><%=messagecount%></font>');
document.write('<br> ◎- 今天日志 <font color=red><%=Today_log%></font><br> ◎- 昨天日志 <font color=green><%=yesterday_log%></font></font>')
<%
set rs=nothing
end sub
sub topuser()
dim i,blogname,rs,userurl,order,ordersql
order=clng(request("order"))
i=0
if order=0 then
ordersql="log_count"
ElseIf order=1 Then
ordersql="user_siterefu_num"
ElseIf order=2 Then
ordersql="scores"
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.CacheConfig(5)=1 then
userurl="http://"&rs(4)&"."&trim(rs(5))
else
userurl=js_blogurl&"go.asp?userid="&rs(3)
end if
response.write "document.write('<FONT color=#800000 style=font-family:webdings>4</FONT><span style=""font-size:9pt;line-height: 15pt""><a href="&userurl&" target=_blank title=查看"&rs(0)&"的blog页>');"
response.write "document.write('"&blogname&"("&rs(1)&")</a>');"
response.write "document.write('</span><br>');"
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.CacheConfig(5)=1 then
userurl="http://"&rs(4)&"."&trim(rs(5))
else
userurl=js_blogurl&"go.asp?userid="&rs(3)
end if
response.write "document.write('<FONT color=#800000 style=font-family:webdings>4</FONT><span style=""font-size:9pt;line-height: 15pt""><a href="&userurl&" target=_blank title=查看"&rs(0)&"的blog页>');"
response.write "document.write('"&blogname&"("&rs(1)&")</a>');"
response.write "document.write('</span><br>');"
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.CacheConfig(5)=1 then
userurl="http://"&rs(4)&"."&trim(rs(5))
else
userurl=js_blogurl&"go.asp?userid="&rs(3)
end if
response.write "document.write('<FONT color=#800000 style=font-family:webdings>4</FONT><span style=""font-size:9pt;line-height: 15pt""><a href="&userurl&" target=_blank title=查看"&rs(0)&"的blog页>');"
response.write "document.write('"&blogname&"("&rs(1)&")</a>');"
response.write "document.write('</span><br>');"
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('<div id=""ob_login""></div><script src="&js_blogurl&"inc/main.js></script><script src="&js_blogurl&"login.asp?action=showjs&injs=1></script>');"
end sub
sub showplace()
response.write oblog.htm2js (oblog.setup(5,0))
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('<FONT color=#800000 style=font-family:webdings>4</FONT><span style=""font-size:9pt;line-height: 15pt""><a href="&js_blogurl&"listblogger.asp?usertype="& rs(0) &" target=_blank title="&rs(1)&"的博客列表>');"
response.write "document.write('"&rs(1)&"</a>');"
response.write "document.write('</span><br>');"
rs.MoveNext
Loop
set rs=nothing
end sub
sub listclass()
dim rs
Dim t
t=CLng(request("t"))
set rs=oblog.execute("select id,classname from [oblog_logclass] WHERE idtype= "&t&" order by RootID,OrderID")
do while Not RS.Eof
response.write "document.write('<FONT color=#800000 style=font-family:webdings>4</FONT><span style=""font-size:9pt;line-height: 15pt""><a href="&js_blogurl&"list.asp?classid="& rs(0) &" target=_blank title="&rs(1)&"的日志列表>');"
response.write "document.write('"&rs(1)&"</a>');"
response.write "document.write('</span><br>');"
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 oblog_log.isdel=0 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 i<cint(request("n"))
postname=trim(rs(0))
POSTTIME=rs(5)
topic=oblog.filt_html(Replace(Replace(Replace(Replace(rs(1),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),""))
if oblog.CacheConfig(5)=1 then
userurl="http://"&rs(10)&"."&trim(rs(11))
else
userurl=js_blogurl&"go.asp?userid="&rs(9)
end if
if oblog.strLength(topic)>Cint(request("tlen")) then
topic=oblog.InterceptStr(topic,request("tlen")+3)&"..."
end if
response.write "document.write('<FONT color=#800000 style=font-family:webdings>4</FONT><span style=""font-size:9pt;line-height: 15pt"">');"
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('<a href="&js_blogurl&"list.asp?classid="&rs(3)&" target=_blank>〖"&oblog.filt_html(ars(0))&"〗</a>');"
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('<a href="&js_blogurl&"blog.asp?name="&rs(0)&"&subjectid="&rs(4)&" target=_blank>["&oblog.filt_html(ars(0))&"]</a>');"
end if
end if
response.write "document.write('<a href="&js_blogurl&"go.asp?logid="&rs(2)&" title="&topic&" target=_blank>');"
response.write "document.write('"&topic&"');"
response.write "document.write('</a>');"
select case cint(request("info"))
case 0
case 1
response.write "document.write('⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?