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()%>

十七、调用备案号

<a href="http://www.miibeian.gov.cn/" target="_blank"><%=Application(SiteID & "_Ok3w_SiteTCPIP")%></a>

十八、版权年份

<%=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")%>&amp;Site=云南龙头科技有限公司&amp;Menu=yes"><%=Application(SiteID & "_Ok3w_SiteQQ")%></a>

三十七、调用地址

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

三十八、调用网址

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

三十九、调用微博图片

<%=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&

　　更多云南龙头科技有限公司网站案例请查看：http://www.ynlongtou.com/case.asp?id=3

　　云南龙头科技有限公司凭借多年的网站建设经验，坚持以“帮助中小企业实现网络营销化”为宗旨，成功帮助多家中小企业实现互联网信息化建设，得到了客户的一致好评。如你有任何关于网站建设的疑问，请立即点击咨询云南龙头科技有限公司资深营销专家或拨打咨询热线：13759574266，我们会详细为你一一解答你心中的疑难。