账号通
    

账号  

密码  

3518

查看

8

回复
主题:[分享]科讯系统如何实现自定义动态页面 [收藏主题] 转到:  
habayy 当前离线

1194

主题

0

广播

0

粉丝
添加关注
级别:八年级

用户积分:1420 分
登录次数:192 次
注册时间:2011/8/2
最后登录:2012/12/19
habayy 发表于:2011/8/18 16:14:28   | 显示全部帖子 查看该作者主题 楼主 

前几天头儿要我做一个带商务通咨询的页面,而且要求里面带上动态的问答更新内容,考虑到前面已经把问答系统实现了相关问答随机化,遂决定用问答系统的模板来实现这一功能,模板是很轻松的完成了,但在翻遍了整个CMS系统之后发现科讯无法添加自定义的带动态查询内容的页面,只能实现静态。也许有人说栏目模板可以实现,但是已经静态化的系统每次都要生成,觉得相当之麻烦,好在从问答系统改过来的模板已经比较完备,所差别的只是一个动态显示,最后想想就决定套用问答的动态代码来实现本功能。适合新手使用,高手们就笑笑吧。

所使用的代码来源为问答系统的q.asp,根据自己的需要做了一些修改,修改完成后的代码如下,有兴趣的筒子可以跟q.asp原文进行对比

<!--#include file="Conn.asp"-->'我这个文件是放在根目录的

<!--#include file="KS_Cls/Kesion.Label.CommonCls.asp"-->

<!--#include file="ask/function.asp"-->

<!--#include file="KS_Cls/template.asp"-->

<%

Dim KSCls

Set KSCls = New zixun

KSCls.Kesion()

Set KSCls = Nothing

Class zixun '定义自己的咨询类

Private KS, KSR

Private Sub Class_Initialize()

  Set KS=New PublicCls

  Set KSR = New Refresh

End Sub

        Private Sub Class_Terminate()

  Call CloseConn()

  Set KS=Nothing

End Sub

  %>

  <!--#include file="KS_Cls/Kesion.IFCls.asp"-->

  <%

Public Sub Kesion()

  showmain   '因为模板已经很完备,所以这里只完成模板标签的填充和显示

End Sub

Sub ShowMain()

  Dim FileContent

  FileContent = KSR.LoadTemplate("/template/咨询.html")    '这里改成load自己的模板

  FCls.RefreshType = "asklist" '设置刷新类型,以便取得当前位置导航等

  FCls.RefreshFolderID = "0"   '设置当前刷新目录ID 为"0" 以取得通用标签

  FileContent=KSR.KSLabelReplaceAll(FileContent)

  FileContent=FileContent

  Immediate=false

  Scan FileContent

  Response.write RexHtml_IF(Templates)

End Sub

end class

%>

有些地方没有过分的详细研究,所以没有去掉,高手们不要见笑,呵呵

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
habayy 当前离线

1194

主题

0

广播

0

粉丝
添加关注
级别:八年级

用户积分:1420 分
登录次数:192 次
注册时间:2011/8/2
最后登录:2012/12/19
habayy 发表于:2011/8/19 10:48:07   | 显示全部帖子 查看该作者主题 沙发 
科汛在线网校系统
向前进木有看过这篇文章,纯粹自己琢磨的,板看代码
 
<a href=http://www.boai120.com>淮安博爱***</a>,<a href=http://www.boai120.com>******</a>,<a href=http://www.boai120.com>www.boai120.com</a>,<a href=http://www.harayy.com>淮安仁爱***</a>,<a href=http://www.harayy.com>******</a>,<a href=http://www.harayy.com>www.harayy.com</a>,<a href=http://www.83680088.com>阳痿早泄</a>,<a href=http://www.boairl.com>淮安renliu多少钱</a>,<a href=http://www.boairl.com>www.boairl.com</a>><a href=http://www.hank120.com>阳痿早泄</a>,<a href=http://www.boaiby.com>淮安******</a><a href=http://www.0517ra.com>www.0517ra.com</a><a href=http://www.boai120.com>淮安一院</a><a href=http://www.boai120.com/fuke/szzx/cnmxf/>www.boai120.com/fuke/szzx/cnmxf/</a>
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.31250秒 powered by KesionCMS 9.0