OK3W的函数调用

OK3W的函数调用

以版本4.3为例，简单说一下Ok3w的函数调用，其它版本，可能略有不同，请查看相关参数：

一、Ok3w_Article_List

Ok3w_Article_List(ClassID,TopN,LeftN,IsCommend,DisTime,TimeFormat,DisHits,OrderType)

功能：显示新闻标题列表（无分页，单列）。

参数：

ClassID--新闻分类ID，可以为空，如果指定，则自动涵盖该分类所有子类；

TopN--显示新闻条数；

LeftN--每一标题显示的字数，超出部份自动截断；

IsCommend--是否只显示推荐新闻，可以是Trun或False（是或不是）；

DisTime--标题后是否显示时间，可以是Trun或False；

TimeFormat--标题后时间的格式，可以是0--5的任意整数，只有DisTime为Trun时，该设置才有效；（数字含义：0：mm-dd；1：yyyy-mm-ddhh:mm:ss；2：yyyy-mm-dd；3：hh:mm:ss；4：yyyy年mm月dd日；5：yyyymmdd）

DisHits--标题后面是否显示点击数，可选Trun或False；

OrderType--排序方式，可选hot或rnd或new或留空。hot按点击数排序；rnd随机显示；new按添加时间排序；留空则按置顶>推荐>添加时间的方式排序。

举例：显示所有新闻最新的20条，每条标题显示15个字，后面跟着mm-dd的时间格式，<%Call Ok3w_Article_List("",20,15,False,True,0,False,"new")%>

二、Ok3w_Article_PreNext(ClassID,ID)

功能：显示指定新闻的前一条及后一条；

参数：ClassID--分类ID，ID--指定新闻ID；

举例：<%Call Ok3w_Article_PreNext(Article.ClassID,Article.ID)%>

三、Ok3w_GG_News(ClassID,TopN,Width,Height)

功能：显示滚动新闻（添加滚动新闻的方法，添加新闻时，选中“滚动”属性即可）；

参数：ClassID--分类ID，可以为空；TopN--显示的条数；Width--滚动区域的宽；Height--滚动区域的高；

举例：在850*37的表格内，滚动显示10条具有滚动属性的新闻，不定分类（<%CallOk3w_GG_News("",10,850,37)%>）

四、Ok3w_Img_News(ClassID,Width,Height)

功能：显示图片自动播放新闻（添加轮播新闻的方法，添加新闻时，选中“图片”，再选中“首页轮播”，再上传一张图片即可）

参数：ClassID--分类ID,Width--显示区域的宽,Height--显示区域的高

举例：在320*230的表格内，播放显示0-5张最新的新闻图片（<%CallOk3w_Img_News("",320,230)%>）

五、Ok3w_Big_List(ClassID)

功能：分页显示指定分类的所有文章，每一页显示的条数，可以在分类管理里设置；自动根据后台设置是否显示为图片列表显示。

参数：ClassID--分类ID，不能为空。

举例：

<%Call Ok3w_Big_List(85)%>

<%Call Page.GetPageList()%>

该函数需要配合Page.GetPageList()使用，通过它来显示分页导航

六、Ok3w_Search_List(ClassID,sType,Keyword,TopN)

功能：分页显示所有满足查询条件的文章

参数：ClassID--分类ID，可以为空,sType--查找范围，可选Title或Content或留空（在标题查找或在内空查找或是两者都查找）,Keyword--关建词,TopN--每一页显示的条页

举例：

<%Call Ok3w_Search_List(ClassID,sType,Keyword,20)%>

<%CallPage.GetPageList()%>

七、Ok3w_SmallClass(ClassID)

功能：显于下级分类或子栏目，如果没有下级分类，则显示同级分类（最顶级除外）

参数：ClassID--指定分类ID，不可为空

举例：<%Call Ok3w_SmallClass(Article.ClassID)%>

八、Ok3w_Class_Nav(SortPath)

功能：显示分类导航

九、Ok3w_Class_PageTitle(SortPath)

功能：显示分类标题

十、Ok3w_Site_Link(TopN,oT)

功能：显示友情连接

参数：TopN--显示个数，可选大于等于1的任间整数,

例如：<%Call Ok3w_Site_Link(27,9,1,1)%><%Call Ok3w_Site_Link(27,8,0,1)%>

27：调用链接的个数

8：我也不知道什么意思

0：调用文字链接

1：是1则调用，是其他数字不调用。

oT--类型，目前仅可以选1，为以后图片链接做接口

十一、Ok3w_Site_Tongji()

功能：显示统计代码。统计代码可以到其它提供网站流量统计的网站申请，然后把代码粘贴到后台的“站点信息配置”，“统计代码”处即可。

以上函数位于vbs.asp，可以根据需要，自行调整；还有部份函数位于AppCod/fun/function.asp上，这里的通常不需要再做修改，如果你有特别要求，也可以打开后自行调整。

十二、文章类Ok3w_Article

用法：SetArticle=NewOk3w_Article

Ok3w_ArticleClass常用方法或属性说明：

Id--编号ID，ChannelID--频道ID，ClassID--分类ID，SortPath--分类路径，Title--标题，TitleColor--标题颜色，TitleURL--跳转URL，Content--内容；Author--作者；ComeFrom--来源；AddTime--添加时间；Inputer--录入人；IsPass--是否通过审核；IsPic--是否是图片新闻；PicFile--图片地址；IsTop--是否置项；IsCommend--是否推荐；IsDelete--是否标记删除；IsMove--是否为滚动新闻；IsPlay--是否为轮播新闻；Hits--点击数

十三、图片显示类Ok3w_Article_ImgGD

函数：

Ok3w_Article_ImgGD(ClassID,TopN,Width,Height,ImgW,ImgH,CharX,IsCommend,OrderType,Speed)

ClassID：新闻分类ID，可以为空，如果指定，则自动涵盖该分类所有子类；

TopN：显示新闻条数；

Width：图片显示区域，所在div的宽度

Height:图片显示区域，所在div的宽度

ImgW：缩略图，图片的宽度。

ImgH：缩略图，图片的高度。

IsCommend：是否只显示推荐新闻，可以是Trun或False

OrderType：排序方式，可选hot或rnd或new或留空。hot按点击数排序；rnd随机显示；new按添加时间排序；留空则按置顶>推荐>添加时间的方式排序。

CharX：标题的字符长度。按字符算，不是按字节算。

Speed：滚动速度

十四、动态调用栏目标题

<%=oRs("SortName")%>

十五、<%Call Ok3w_Article_IndexClassImg(oRs("ID"),1,100,80)%>

如果此栏目有一个文章勾选了“略图”，那么就调用此文章。

oRs("ID")：栏目id号

1表示调用一条

100：缩略图的宽度

80：缩略图的高度。

十六、调用关于我们和联系方式

<%Call Ok3w_FooterNav()%>

十七、调用备案号

十八、版权年份

<%=Year(Date())%>

十九、调用网站域名

<%=Replace(Application(SiteID&"_Ok3w_SiteUrl"),"http://","")%>

二十、调用统计代码

<%Call Ok3w_Site_Tongji()%>

二十一、网站标题

<%=Application(SiteID&"_Ok3w_SiteTitle")%>

二十二、网站关键词

<%=Application(SiteID&"_Ok3w_SiteKeyWords")%>

二十三、网站描述

<%=Application(SiteID&"_Ok3w_SiteDescription")%>

二十四、幻灯片的调用

<%Call Ok3w_Article_ImgFlash("",300,155)%></div>

二十五、网站的根目录

<%=Htmldns%>images：表示根目录下的images文件夹

二十六、网站名称

<%=Application(SiteID&"_Ok3w_SiteName")%>

二十七、广告调用

<scripttype="text/javascript">ok3w_ads("s001");</script></div>

二十八、导航栏调用

<%Call Ok3w_HearNav(ChannelID)%>：调用导航栏的栏目

二十九、列表页标题

<%Call Ok3w_Article_Class_PageTitle(SortPath)%>

三十、调用栏目，用于列表页，调用的是子栏目

<%Call Ok3w_DisNextClass(ChannelID,ClassID)%>

如果该列表页有子栏目，那就调用子栏目，如果该栏目没有子栏目，则调用网站的所有顶级栏目。

三十一、调用当前栏目的最新文章

<%Call Ok3w_Article_List(ClassID,10,16,False,False,False,0,False,"new","li")%>

三十二、调用父栏目

<%=GetParentClassName(ClassId)%>

三十三、调用子栏目（另一种方法，常用的是第七条）

在（fun目录function.asp下增加如下代码）

Function IsHaveNextClass(ClassID)

Sql="select count(ID) from Ok3w_Class where ParentID=" & ClassID & " and IsNav=1"

If Conn.Execute(Sql)(0) = 0 Then

IsHaveNextClass = SortName

Else

IsHaveNextClass = SortName

End If

End Function

改ClassID 调用出ID （此处ID为数字）代码格式：<%=GetParentClassName(ClassId)%>

Function IsHaveNextClass(ClassID)

Sql="select count(ID) from Ok3w_Class where ParentID=" & ClassID & " and IsNav=1"

If Conn.Execute(Sql)(0) = 0 Then

IsHaveNextClass = ClassID

Else

IsHaveNextClass = True

End If

End Function

三十四、当前栏目名称调用

<%=GetClassName(ClassId)%>

三十五、调用电话

<%=Application(SiteID & "_Ok3w_SiteTel")%>

三十六、调用QQ

<a target="blank" href="tencent://message/?uin=<%=Application(SiteID & "_Ok3w_SiteQQ")%>&Site=云南龙头科技有限公司&Menu=yes"><%=Application(SiteID & "_Ok3w_SiteQQ")%></a>

三十七、调用地址

<%=Application(SiteID & "_Ok3w_SiteAddress")%>

三十八、调用网址

三十九、调用微博图片

<%=Application(SiteID & "_Ok3w_weibo")%>

四十、调用微信图片

<%=Application(SiteID & "_Ok3w_weixin")%>

四十一、轮播图调用

默认：调用所有栏目分类轮播

select top 4 Id,Title,PicFile,TitleURL from Ok3w_Article where ChannelID=1 and IsPass=1 and IsPlay=1 and IsDelete=0"

单独调用某个栏目的轮播图，以栏目ID为13为例，代码如下：（改ChannelID=1为ClassID=13）

select top 4 Id,Title,PicFile,TitleURL from Ok3w_Article where ClassID=13 and IsPass=1 and IsPlay=1 and IsDelete=0"

四十二、调用联系人

<%=Application(SiteID & "_Ok3w_SiteLinkMan")%>

四十三、调用传真

<%=Application(SiteID & "_Ok3w_SiteFax")%>

四十四、调用邮箱

<%=Application(SiteID & "_Ok3w_SiteEmail")%>

四十五、调用邮编

<%=Application(SiteID & "_Ok3w_SiteZip")%>

四十六、调用公司名称

<%=Application(SiteID & "_Ok3w_SiteCoName")%>

vbs.asp中标题的调用方式可以用&title&或& LeftX(Rs("Title"),30*2) &或&oTitle&