调用方法┊PJBLOG首页调用 [复制链接]

风易在线

PJFans LV2

Rank: 8 Rank: 8

PJ币: 50 元
积分: 820
帖子: 100
注册时间: 2006-9-8
在线时间: 71 小时

发表于 2006-9-22 10:21:04 |显示全部楼层

PJBlog3 v3.2.9.518已发布，欢迎下载使用(2011/11/01)

针对原作者的做了如下修改:

添加调用几条记录 : topLen
修改了链接样式
修复了置顶贴子不能调用的问题.

效果如下:

附件下载:

点击下载此文件

源代码:






<%
'==================================================================================================
'File name: topblog.asp
'首页调用文件
'原文更新时间: 2005-12-25
'清风修改时间: 2006-09-22
'QQ: 110125707 MSN: anwellsz@msn.com  Blog.Wind88.Net

'showType 输出类型,类型有五种
'留空 = [分类]标题+作者
'1 = [分类]标题+日期
'2 = 标题+作者
'3 = 标题+日期
'4 = 标题
'titleLength 标题长度
'authorLength 作者名称长度
'topLen 调用几条记录
'示例: <script language="javascript" src="你的网址/topblog.asp?showtype=4&TopLen=7&titleLength=50">
'==================================================================================================

getInfo(1)

Response.Charset = "UTF-8"
Response.Expires=60

Dim cate_ID,FeedCate,FeedTitle,memName,FeedRows
Dim showType,titleLength,authorLength,topLen

cate_ID=CheckStr(Request.QueryString("cateID"))

showType=Request.QueryString("showType")
titleLength=Request.QueryString("titleLength")
authorLength=Request.QueryString("authorLength")
topLen = Request.QueryString("topLen")
If Not isinteger(topLen) Then topLen = 10

if IsInteger(titleLength)=false then titleLength=20
if IsInteger(authorLength)=false then authorLength=6

FeedCate=False

IF IsInteger(cate_ID) = False Then
SQL="Select TOP "&topLen&" L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,C.cate_Name,C.cate_ID,log_IsTop FROM blog_Content AS L,blog_Category AS C Where C.cate_ID=L.log_cateID AND L.log_IsShow=true AND L.log_IsDraft=false and C.cate_Secret=false orDER BY log_IsTop,log_PostTime DESC"
Else
SQL="Select TOP "&topLen&" L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,C.cate_Name,C.cate_ID,log_IsTop FROM blog_Content AS L,blog_Category AS C Where log_cateID="&cate_ID&" AND C.cate_ID=L.log_cateID AND L.log_IsShow=true AND L.log_IsDraft=false and C.cate_Secret=false orDER BY log_IsTop,log_PostTime DESC"
FeedCate=True
End If
Dim RS,DisIMG,i
Set RS=Conn.ExeCute(SQL)
if RS.EOF or RS.BOF then
ReDim FeedRows(0,0)
else
if FeedCate then FeedTitle=SiteName & " - " & RS("cate_Name")
FeedRows=RS.getrows()
end if
RS.close
set RS=nothing
Conn.Close
Set Conn=Nothing

if ubound(FeedRows,1)=0 then
         %>
         document.write ("没有找到任何日志")
         <%
else
for i=0 to ubound(FeedRows,2)
      select case showType
         case 1:
            %>
                  document.write ("<div><span style=\"float:right\"><%=DateToStr(FeedRows(3,i),"Y-m-d")%></span>[<a href=\"<%=SiteURL&"default.asp?cateID="&FeedRows(5,i)%>\" target=\"_blank\"><%=toUnicode(FeedRows(4,i))%></a>]<a href=\"<%=SiteURL&"default.asp?id="&FeedRows(0,i)%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%></a></div>")
            <%
         case 2:
            %>
                  document.write ("<div><span style=\"float:right\"><a href=\"<%=SiteURL%>\" title=\"<%=toUnicode(FeedRows(2,i))%>\"><%=toUnicode(CutStr(FeedRows(2,i),authorLength))%></a></span><a href=\"<%=SiteURL&"default.asp?id="&FeedRows(0,i)%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%></a></div>")
            <%
         case 3:
            %>
                  document.write ("<div><span style=\"float:right\"><%=DateToStr(FeedRows(3,i),"Y-m-d")%></span><a href=\"<%=SiteURL&"default.asp?id="&FeedRows(0,i)%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%></a></div>")
            <%
         case 4:
            %>
                  document.write ("<div> <a href=\"<%=SiteURL&"default.asp?id="&FeedRows(0,i)%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\" style=\"color:#0469C4;TEXT-DECORATION: underline\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%></a></div>")
            <%
            case else:
            %>
                  document.write ("<div><span style=\"float:right\"><a href=\"<%=SiteURL%>\" title=\"<%=toUnicode(FeedRows(2,i))%>\"><%=toUnicode(CutStr(FeedRows(2,i),authorLength))%></a></span>[<a href=\"<%=SiteURL&"default.asp?cateID="&FeedRows(5,i)%>\" target=\"_blank\"><%=toUnicode(FeedRows(4,i))%></a>]<a href=\"<%=SiteURL&"default.asp?id="&FeedRows(0,i)%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%></a></div>")
            <%
      end select

next
end if

function toUnicode(str) 'To Unicode
dim i, unicodeF, getUnicode
for i=1 to len(str)
      unicodeF=Mid(str,i,1)
      getUnicode=getUnicode & chr(38) & chr(35) & chr(120) & Hex(ascw(unicodeF)) & chr(59)
next
toUnicode=getUnicode
end function
%>

[ 本帖最后由嵘心天涯于 2007-1-28 17:45 编辑 ]

论坛统一签名

亲，我们的论坛签名是需要消费PJ币哦！！点击购买签名

温馨提示：博客地址敬请放在签名档，方便协助解决问题！

币币很多，花不完？来吧，购买他人签名，挂上你的链接！

使用道具举报