9.0全站搜索页怎么改-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2225 查看	9 回复

主题：9.0全站搜索页怎么改 [收藏主题]

转到：

无风当前离线

1622 主题	5 广播	29 粉丝

级别:高一年

用户积分:5963 分
登录次数:199 次
注册时间:2009/10/12
最后登录:2024/4/4
官方认证：仿站大师

无风发表于：2012/9/11 8:44:40 | 显示全部帖子查看该作者主题楼主

Sub SearchMenu()
If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig
Dim ModelXML,Node
Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")
If ChannelID=0 Then
echo "<li class=""curr""><a href=""?stype="&stype&"&key="&server.URLEncode(key) &""">全部</a></li>"
Else
echo "<li><a href=""?stype="&stype&"&key="&server.URLEncode(key) &""">全部</a></li>"
End If
For Each Node In ModelXML.documentElement.SelectNodes("channel")
if Node.SelectSingleNode("@ks21").text="1" and Node.SelectSingleNode("@ks0").text<>"6" and Node.SelectSingleNode("@ks0").text<>"9" and Node.SelectSingleNode("@ks0").text<>"10" Then
If Trim(ChannelID)=Trim(Node.SelectSingleNode("@ks0").text) Then
echo "<li class=""curr""><a href=""?stype="&stype&"&key="&server.URLEncode(key) &"&m="&Node.SelectSingleNode("@ks0").text &""">" & Node.SelectSingleNode("@ks3").text & "</a></li>"
Else
echo "<li><a href=""?stype="&stype&"&key="&server.URLEncode(key) &"&m="&Node.SelectSingleNode("@ks0").text &""">" & Node.SelectSingleNode("@ks3").text & "</a></li>"
End If
End If
next
If ChannelID=102 Then
echo "<li class=""curr""><a href=""?stype="&stype&"&key="&server.URLEncode(key) &"&m=102"">问吧</a></li>"
Else
echo "<li><a href=""?stype="&stype&"&key="&server.URLEncode(key) &"&m=102"">问吧</a></li>"
End If
End Sub

\Plus\search\index.asp

反对(0)

底部