调用方法┊PJBLOG首页调用

来源:不详 责任编辑:栏目编辑 发表时间:2013-07-01 16:54 点击:

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

效果如下:

附件下载:
点击下载此文件

源代码:

<!--#include file="const.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="common/cache.asp" -->
<!--#include file="common/function.asp" -->
<!--#include file="common/ubbcode.asp" -->
<%
'==================================================================================================
'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 ("没有找到任何日志")
            &l

    发表评论
    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
    用户名: 验证码:点击我更换图片
    最新评论 更多>>

    推荐热点

    • 火车头采集器dedecms织梦5.7图集发布模块的制作方法
    • PJBLOG页面广告投放终极攻略教程(威客365版)
    • 手动修改实现日志标题左侧小日历效果

    新闻关注排行榜

    热门推荐 最新推荐
    网站首页 - 友情链接 - 网站地图 - TAG标签 - RSS订阅 - 内容搜索
    Copyright © 2008-2015 计算机技术学习交流网. 版权所有

    豫ICP备11007008号-1