<!--#include file="setting/conn.asp"--><!--#include file="inc/cls_article.asp"-->
<%:Dim pagelist:act=SoonBiz.ract:cid=0:pagemain():htmlstr=SoonBiz.HuiQiaoHtml(htmlstr):htmlstr=SoonBiz.replaceallflag(htmlstr):SoonBiz.endhtml:Sub pagemain():Dim channellist :Dim shujun:Dim jintong(1,0):shujun="<input type='radio' name='thiscid' id='thiscid{$id}' value='{$id}' />{$cha_name} ":channellist=SoonBiz.ReplaceXml(""& sheethead &"_channel","channel",shujun,"channel[(@cha_moduleid='3' or @cha_moduleid='4' or @cha_moduleid='5' or @cha_moduleid='6' or @cha_moduleid='7') and @cha_show='1']"):jintong(0,0)="搜索" : jintong(1,0)="search.asp":navstate=SoonBiz.Getnavstate(jintong):htmlstr=SoonBiz.Tp(cid,pn,"index"):htmlstr=Replace(htmlstr,"{$searchchannel}",channellist)
If act="searching" and len(Trim(Request.QueryString("keyword")))>0 Then
htmlstr=Replace(htmlstr,"{$trhtml}",list):htmlstr=replace(htmlstr,"{$pagelist}",pagelist)
Else:htmlstr=Replace(htmlstr,"{$trhtml}","<li>请输入要查找的内容</li>"):htmlstr=replace(htmlstr,"{$pagelist}",""):SoonBiz.htmlplus="<script type=""text/javascript"">document.form1.thiscid[0].checked=true;</script>"
End If:End Sub:Function list():Dim thiscid:Dim myfield:Dim shujun:Dim astr,afile:thiscid=SoonBiz.rid("thiscid"):myfield=Trim(Request.QueryString("myfield"))
If thiscid <=0 Then
thiscid=defaultsearchchannel
End If:SoonBiz.readchannel(thiscid)
If Not SoonBiz.ins(xmlchannel.getattribute("cha_searchcls"),SoonBiz.user_gid) Then
ShowErr("对不起,您没有搜索这个栏目的权限")
End If
If Not SoonBiz.ins("title,nickname,content,tags",myfield) Then''bethese:thishimself:goteach:of:shouldthey.this::]
myfield="title"
End If:afile=SoonBiz.GetFileInfo(thiscid):astr=SoonBiz.PlusSQL("select * from ["& afile(0) &"] where cid="& thiscid &" and ispass=1 and isdel=0 ","?act=searching&amp;thiscid="&thiscid):astr(0)=astr(0) & " order by id desc ":shujun=replace(SoonBiz.Tp(cid,pn,"list"),"{$readhref}",afile(4) &"?u={$cid}w{$classid}w{$id}p{$topicid}"):SoonBiz.htmlplus="<script type=""text/javascript"">chkradio('thiscid"& thiscid &"');"& astr(2) &"</script>":list=SoonBiz.ReplaceMdb("search",astr(0),shujun,"",0) :pagelist=SoonBiz.pagelist(astr(1)):End Function
%>