前几天头儿要我做一个带商务通咨询的页面，而且要求里面带上动态的问答更新内容，考虑到前面已经把问答系统实现了相关问答随机化，遂决定用问答系统的模板来实现这一功能，模板是很轻松的完成了，但在翻遍了整个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

%>

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