请选择 进入手机版 | 继续访问电脑版
设为首页收藏本站

孔孟之乡

 找回密码
 注册

QQ登录

只需一步,快速开始

快捷导航
搜索
12
返回列表 发新帖
楼主: 燕子

新云标签大全及其修改

[复制链接]
 楼主| 发表于 2007-10-11 15:45:33 | 显示全部楼层

If CInt(stype) >= 4 And CLng(ClassID) <> 0 Then
   SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=" & ChannelID & " And ClassID=" & ClassID
   Set Rs = Newasp.Execute(SQL)
   If Rs.BOF And Rs.EOF Then
    Set Rs = Nothing
    LoadArticleList = ""
    Exit Function
   Else
    ChildStr = Rs("ChildStr")
   End If
   Set Rs = Nothing
  Else
   ChildStr = "0"
  End If
  
  Select Case CInt(stype)
   Case 0: foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
   Case 1: foundstr = "And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc"
   Case 2: foundstr = "Order By A.AllHits Desc ,A.Articleid Desc"
   Case 3: foundstr = "And (A.BriefTopic = 1 Or A.BriefTopic = 2) Order By A.Writetime Desc ,A.Articleid Desc"
   Case 4: foundstr = "And A.ClassID in (" & ChildStr & ") Order By A.Writetime Desc ,A.Articleid Desc"
   Case 5: foundstr = "And A.ClassID in (" & ChildStr & ") And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc"
   Case 6: foundstr = "And A.ClassID in (" & ChildStr & ") Order By A.AllHits Desc ,A.Articleid Desc"
   Case 7: foundstr = "And A.ClassID in (" & ChildStr & ") And (A.BriefTopic = 1 Or A.BriefTopic = 2) Order By A.Writetime Desc ,A.Articleid Desc"
  Case Else
   foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
  End Select
  If CInt(stype) >= 4 And CLng(ClassID) = 0 Then
   foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
  End If
  If CLng(SpecialID) <> 0 Then
   foundstr = "And A.SpecialID =" & CLng(SpecialID) & " " & foundstr
  End If
  SQL = " A.ArticleID,A.ClassID,A.ColorMode,A.FontMode,A.title,A.BriefTopic,A.Content,80,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest,"
  SQL = "SELECT Top " & CInt(TopNum) & SQL & " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml FROM [NC_Article] A INNER JOIn [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=" & ChannelID & " " & foundstr & ""    'YC 
  Set Rs = Newasp.Execute(SQL)
  i = 0
  If Rs.BOF And Rs.EOF Then
   strContent = "该分类还没有添加任何内容!"
  Else
   strContent = "<table width=""100%"" border=0 cellpadding=0 cellspacing=0>"
   Do While Not Rs.EOF
    If (i Mod 2) = 0 Then
     ListStyle = Trim(styles) & 1
    Else
     ListStyle = Trim(styles) & 2
    End If
    If Rs("isBest") <> 0 Then
     BestCode = 2
     BestString = "<font color='" & Newasp.MainSetting(3) & "'>推荐</font>"
    Else
     BestCode = 1
     BestString = ""
    End If


回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-10-11 15:45:57 | 显示全部楼层

    If WithIntroduce = 1 Then
      strContent = strContent & Newasp.MainSetting(25)
    Else
      strContent = strContent & Newasp.MainSetting(13)
    End if
    
    
    If CInt(newindow) <> 0 Then
     LinkTarget = "target=""_blank"""
    Else
     LinkTarget = ""
    End If
    
    sTitle = Newasp.GotTopic(Rs("title"), CInt(strLen))
    sTitle = Newasp.ReadFontMode(sTitle, Rs("ColorMode"), Rs("FontMode"))
    sContent = Left(Newasp.RemoveHtml(Rs("Content")),Newasp.MainSetting(26))&"..."  
    sTopic = Newasp.ReadPicTopic(Rs("BriefTopic"))
    
    ClassName = Newasp.ReadFontMode(Rs("ClassName"), Rs("ColorModes"), Rs("FontModes"))
    HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("ArticleID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
    If CInt(Newasp.ChannelUseHtml) <> 0 Then
     HtmlFileUrl = Newasp.ChannelPath & Rs("HtmlFileDir") & Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath) & HtmlFileName
     ClassName = "<a href='" & Newasp.ChannelPath & Rs("HtmlFileDir") & "index" & Newasp.ChannelHtmlExt & "'"& LinkTarget &">" & ClassName & "</a>"
    Else
     HtmlFileUrl = Newasp.ChannelPath & "show.asp?id=" & Rs("ArticleID")
     ClassName = "<a href='" & Newasp.ChannelPath & "list.asp?classid=" & Rs("ClassID") & "' "& LinkTarget &">" & ClassName & "</a>"
    End If    
    If CInt(showclass) = 0 Then ClassName = ""
    If CInt(showpic) = 0 Then sTopic = ""
    If CInt(showdate) <> 0 Then
     WriteTime = Newasp.ShowDateTime(Rs("WriteTime"), CInt(DateMode))
    Else
     WriteTime = ""
    End If    


回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-10-11 15:46:58 | 显示全部楼层

    if instr(styles,"title") <> 0 then
       ArticleTopic = "<a href='" & HtmlFileUrl & "'" & LinkTarget & " title='" & Newasp.ChannelModule & "标题:" & Rs("title") & "&#13;&#10;发布时间:" & Rs("WriteTime") & "&#13;&#10;阅览次数:" & Rs("AllHits") & "' class= " & styles & ">" & sTitle & "</a>"
    else    
       ArticleTopic = "<a href='" & HtmlFileUrl & "'" & LinkTarget & " title='" & Newasp.ChannelModule & "标题:" & Rs("title") & "&#13;&#10;发布时间:" & Rs("WriteTime") & "&#13;&#10;阅览次数:" & Rs("AllHits") & "' class=showlist>" & sTitle & "</a>"
    end if
    strContent = Replace(strContent, "{$ArticleTopic}", ArticleTopic)
    strContent = Replace(strContent, "{$ArticleContent}", sContent)
    strContent = Replace(strContent, "{$ArticleID}", Rs("ArticleID"))
    strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
    strContent = Replace(strContent, "{$ArticleTitle}", sTitle)
    strContent = Replace(strContent, "{$Title}", Rs("title"))
    strContent = Replace(strContent, "{$DateAndTitle}", Rs("WriteTime"))
    strContent = Replace(strContent, "{$BriefTopic}", sTopic)
    strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl)
    strContent = Replace(strContent, "{$ClassName}", ClassName)
    strContent = Replace(strContent, "[]", "")
    strContent = Replace(strContent, "{$Target}", LinkTarget)
    strContent = Replace(strContent, "{$WriteTime}", WriteTime)
    strContent = Replace(strContent, "{$AticleHits}", Rs("AllHits"))
    strContent = Replace(strContent, "{$ListStyle}", ListStyle)
    strContent = Replace(strContent, "{$BestCode}", BestCode)
    strContent = Replace(strContent, "{$BestString}", BestString)
   Rs.MoveNext
   i = i + 1
   Loop
   strContent = strContent & "</table>"
  End If
  
  Rs.Close: Set Rs = Nothing
  LoadArticleList = strContent
 End Function

 '================================================
 '函数名:ReadArticleList
 '作  用:读取文章列表
 '参  数:str ----原字符串
 '================================================
 ublic Function ReadArticleList(ByVal str)
  Dim strTemp, i
  Dim sTempContent, nTempContent
  Dim arrTempContent, arrTempContents, ArrayList
  On Error Resume Next
  strTemp = str
  If InStr(strTemp, "{$ReadArticleList(") > 0 Then
   sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticleList(", ")}", 1)
   nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticleList(", ")}", 0)
   arrTempContents = Split(sTempContent, "|||")
   arrTempContent = Split(nTempContent, "|||")
   
   For i = 0 To UBound(arrTempContents)
    ArrayList = Split(arrTempContent(i), ",")
    strTemp = Replace(strTemp, arrTempContents(i), LoadArticleList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10), ArrayList(11),ArrayList(12)))
   Next
  End If
  ReadArticleList = strTemp
 End Function


回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-10-11 15:49:11 | 显示全部楼层

2.0的经测试可以用,但2.1的文章调用样式变化挺大,按原来的修改不可以用,能否征对2.1再行修改?

另能否修改一下图片带导读的?

回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-8-16 22:26:53 | 显示全部楼层

新云最新风格标签

注意:函数式标签“()”中间是参数,用“,”分开,
{$InstallDir} 系统安装路径 (系统自动生成)
{$SkinPath} 皮肤图片路径
{$ChannelRootDir} 频道目录路径
{$Version} 下载系统版本信息
{$WebSiteName} 网站名称 (在基本设置修改)
{$WebSiteUrl} 网站URL (在基本设置修改)
{$MasterMail} 管理员E-Meil(在基本设置修改)
{$Keyword} 网站关键字 (在基本设置修改)
{$Copyright} 网站版权信息 (在基本设置修改)
{$Width} 定义主表格宽度
{$IndexPage} 默认首页文件名
{$Style_CSS} CSS样式
{$CurrentStation( -&gt; )} 当前位置“()”中间是分隔符
{$PageTitle} HTML文件标题
{$TotalStatistics} 系统总统计
{$RenewStatistics} 更新信息统计
{$ReadStatistic(1,1,0,0)}
{$IndexTitle} 频道首页 链接
{$RelatedSoft} 相关软件
搜索栏目调用标签 {$NewaspLabel_searchForm}
网站信息统计标签:参数,1、频道模块(0=会员,1=文章,2=软件,3=商城,4=留言);
2、频道ID; 3、分类ID或者软件类型; 4、统计类型(0=计数,1=今日更新,2=浏览次数,3=软件容量)
{$ModuleName} 类型名字 软件 文章..等
----------------
列表页
描述{$SoftContent}
[ShowRepetend][/ShowRepetend]循环软件列表中的软件
{$ReadListPage} 上下页标签
{$SoftDateTime} 日期:
------------------
下载页
{$SoftName} 名称
{$ClassifyName} 归类列表目录带URL
{$SoftSize} 大小
{$Classify} 软件类别
{$SoftTime}时间
软件评级
插件情况
{$Decode} 解压密码
{$HomePage} 演示地址
{$RunSystem} 运行环境
{$SoftHits} 人气
{$SoftContent} 软件描述
{$Impower} 授权
{$Language} 软件语言
作者:{$Author}
联系方式:{$Contact}
官方主页:{$HomePage}
缩略图{$SoftImage}
下次次数
下载地址:{$DownAddress}
上一个软件:{$FrontSoft} 下一个软件:{$NextSoft}
------------------------
下载评论
{$ChannelRootDir}comment.asp?softid={$SoftID}链接到软件所指定的评论页面
提交的form写上面三个
验证码
{$SoftComment}用来显示用户发言信息.不是用在专门的评论风格里!
{$SoftName 评论软件名称
共有 {$TotalComment}人参与评价,平均得分:{$AverageGrade}总得分:{$TotalGrade} 分
[ShowRepetend]
[/ShowRepetend]循环
上面循环之前的{$CommentContent}用户留言信息
{$AdminComment} 管理删除标记
----
文章内容页
作者:{$Author}
来源:{$ComeFrom}
发布时间:{$WriteTime}
标题{$ArticleTitle}
内容 {$ArticleContent}{$ScriptContent}
上一篇{$FrontArticle}
{$ArticleImage}
下一篇{$NextArticle}
[ShowRepetend]
缩略图{$Thumbnail}
[/ShowRepetend]循环
{$ReadListPage} 上下页标签
{$SoftComment}用来显示用户发言信息.不是用在专门的评论风格里
-------
文章评论
{$ChannelRootDir}comment.asp?ArticleID={$ArticleID}链接到文章所指定的评论页面
提交的form写上面三个
验证码
{$SelCheckBox}用户名:{$UserName} 打分:{$CommentGrade} 参与时间:{$PostTime} 用户IP:{$PostIP}
[ShowRepetend]
[/ShowRepetend]循环
上面循环之前的{$CommentContent}用户留言信息
{$ArticleComment}用来显示用户发言信息.不是用在专门的评论风格里!
{$AdminComment} 管理删除标记
标题 {$ArticleTitle}
共有 {$TotalComment}人参与评价,平均得分{$AverageGrade} 分
{$ReadListPage} 上下页标签
-------------------------------
{$ReadSpecialMenu({$ChannelID},1)}
专题栏目导航
{$ReadFriendLink(18,9,1,1)}
友情连接标签,1、显示最多连接数,2、每行显示连接数,3、连接类型,1=LOGO连接,0=文字连接,4、排序方式,1=是升序,0=降序
--------------
{$ChannelMenu} 顶部频道菜单标签
{$ReadClassMenu(1,0,8,8,|,navbar)}
分类菜单标签,1、频道ID;2、分类ID,0=所有分类;3、显示多少分类名称;4、每行显示多少分类名称;5、每个分类名称中间的分隔符;6、调用样式名
-------------
{$AnnounceContent()}
内容公告,如果()中间没有参数,就是最新内容公告,中间的参数是指定内容公告的标题。
----------
{$ReadGuestList(12,22,1,1,5,showlist)}
留言列表标签;参数:1、显示列表数,2、显示字符数,3、是否新窗口打开(1=新窗口打开,0=本窗口打开),4、是否显示日期(1=是,0=否),5、日期格式,6、样式名称
--------------
{$ReadAnnounceList(0,12,22,1,1,2,1)}
列表公告标签:参数:1、频道ID,0=所有频道,2、显示多少条公告,3、显示公告字符数,4、是否新窗口打开 1=是,0=否,5、是否显示时间 1=是,0=否6、时间模式,7、是否树型显示,1=是,0=否
-----------------
{$ReadClassMenubar({$ChannelID},{$ClassID},35,2,?)}
列表分类菜单函数标签,参数:1、频道ID,2、分类ID,3、最多显示分类数,4、每行显示分类数,5、分类名称前面的符号
-----------------
{$ReadPopularArticle(1,0,3,24,10,1,_blank,?showlist)}
文章排行函数标签,参数海:1、频道ID,2、分类ID,3、调用类型(0=所有热门,1=本日排行,2=本周排行,3=本月排行,4=推荐排行),4、显示字符长度,5、显示多少行,6、是否显示点击数,7、连接目标,8、样式名称
-----------------
{$ReadPopularSoft(2,0,0,24,10,1,_blank,?showlist)}
软件排行函数标签,参数:1、频道ID,2、分类ID,3、调用类型(0=所有热门,1=本日排行,2=本周排行,3=本月排行,4=推荐排行),
4、显示字符长度,5、显示多少行,6、是否显示点击数,7、连接目标,8、样式名称
-----------------
{$ReadSoftType(2,国产软件,24,10,1,1,5,1,showlist)}
软件类型函数标签,参数:1、频道ID,2、软件类型名称,3、显示字符长度,4、显示多少行,5、是否显示分类(1=是,0=否) 6、是否显示日期(1=显示,0=不显示) 7、显示日期模式 8、是否新窗口打开连接(1=新窗口,0=本窗口) 9、样式名称
-----------------
最新更新{$ReadSoftList(2,0,0,0,17,36,1,1,5,1,showlist)} 1、频道ID2未知3未知4未知5、显示多少行6显示字符长度7、未知8、是否显 示日期(1=是,0=否)9、日期样式(0、1=2006-8-20 3:13:34 2=2006-08-20 3=2006/08/20 4=2006年08月20日 5=08-19 6=08/20 7=08 月20日 8=2006年08月 9=2006-08 10=2006/08)10、是否另打开页面(1=另打开 0=本页打开)11、样式名称
-----------------
{$ReadSoftList(2,0,0,0,17,36,1,1,5,1,showlist,0)}
1、频道ID 2、分类ID 3、专题ID 4、调用类型5、调用列表数6、调用列表字符数7、是否显示分类8、是否显示时间9、显示时间格式10、是否新窗口打开连接11、列表样式名称12、3。0版里调用软件类型
-----------------
{$ReadSoftList(2,0,0,0,17,36,1,1,5,1,showlist,0,20,{$OrderID})}
1、频道ID 2、分类ID 3、专题ID 4、调用类型5、调用列表数6、调用列表字符数7、是否显示分类8、是否显示时间9、显示时间格式10、是否新窗口打开连接11、列表样式名称12、3。0版里调用软件类型13、928官方模板里的调用数字排行宽度
14、928官方模板里的调用数字排行的样式
-----------------标签补充:
排行标签: {$ReadPopularSoft(2,0,2,32,10,0,_self,{$OrderID},showlistR)}
统计标签
-------------------------------------------
共有文章数量:{$ReadStatistic(1,1,0,0)}
今日更新文章:{$ReadStatistic(1,1,0,1)}
文章总阅览数:{$ReadStatistic(1,1,0,2)}
共有软件数量:{$ReadStatistic(2,2,0,0)}
今日更新软件:{$ReadStatistic(2,2,0,1)}
软件总下载数:{$ReadStatistic(2,2,0,2)}
软件总的容量:{$ReadStatistic(2,2,0,3)}
发表留言总数:{$ReadStatistic(4,4,0,0)}
今日发表留言:{$ReadStatistic(4,4,0,1)}
注册会员总数:{$ReadStatistic(0,0,0,0)}
今日注册会员:{$ReadStatistic(0,0,0,1)}
统计标签说明 {$ReadStatistic(1,1,0,0)}
参数一、
所属模块 (0=用户,1=文章,2=软件,3=商城,4=留言,5=动画)
参数二、频道ID
参数三、所调用的分类ID或者软件类型
参数四、统计类型 (0=全部统计,1=今日更新统计,2=点击数统计,3=软件容量统计)
共有源码数量:{$ReadStatistic(2,11,0,0)}
今日更新源码:{$ReadStatistic(2,11,0,1)}
源码总下载数:{$ReadStatistic(2,11,0,2)}
源码总的容量:{$ReadStatistic(2,11,0,3)}
希望我收集的这些标签对大家做风格和仿风格有作用。
[此贴子已经被作者于2008-8-16 22:28:13编辑过]
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|孔孟之乡-春秋论坛 ( 鲁ICP备06020822号-1  

GMT+8, 2025-2-20 04:50 , Processed in 0.122595 second(s), 18 queries .

Powered by 孔孟之乡-春秋论坛

© 2006-2014 SKIN BY KMZX

返回顶部