<% echoContent() Sub echoContent() dim page,keys page=filterPara(getForm("page","both")) keys=filterPara(getForm("keys","both")) if isNul(keys) then alertMsgAndGo "請輸入關鍵詞","-1" if isNul(page) then page=1 if isNum(page) then page=clng(page) else echoMsgAndGo "頁面不存在",3 end if dim templateobj,channelTemplatePath : set templateobj=new TemplateClass dim typeIds,rsObj,rsObjtid,Tid,rsObjSmalltype,rsObjBigtype Dim templatePath,tempStr templatePath=sitePath&"/"&"templates/"&setting.defaultTemplate&"/"&setting.htmlFilePath&"/search.html" 'die templatePath if not CheckTemplateFile(templatePath) then echo "search.html"&err_16 with templateObj .content=loadFile(templatePath) .parseHtml() .parseCommon() .parseList 0,page,"searchlist",keys,"searchlist" echo .content end with set templateobj =nothing : terminateAllObjects End Sub %> 午夜成人片毛片