<!--#include file="inc/const.asp"-->
<%
dim tpl , Templatecache,indexcontent , FilePath  ,moban_path
Dim tm1 , tm2 , c_cityid ,  lsid ,  key , price , shangid , px , hn , sheshi , jid ,page ,classid , classname
 ' news.asp?classid=1&Pages=2
 classid = Request_int(Request("classid"),0)
'Templatecache = 2
'If Templatecache = 1 then 
'	FilePath = webpath&"news.html"
'Else
'	FilePath = webpath&"database/asp/1/news.asp"
'end if
moban_path = webpath&"template/"&mobanname&"/news.html"
'If Templatecache = 1 then 
'if IsFile1(FilePath,1)=True  then  '这里更改1 表示改页面整体缓存 1天'
'	indexcontent=ReadTxtFile(FilePath)
'	response.Write indexcontent
'	response.end
'end if'
'End If
If classid > 0  Then
classname =  getvalue("select ClassName from ZN_"&D("Article")&"_class where classid =  "&classid,2)
Else
classname = "全部信息"
End If

'If not CacheIs("index.asp_GetRows",100) Then
Dim keyset:keyset = gDBItem("select KeySet_Title,KeySet_keywords,KeySet_description,KeySet_rule from [ZN_"&D("KeySet")&"] where keyset_id=6")
'If Not DisabledCache and isarray(keyset) Then Call SetACache("index.asp_GetRows",keyset)
'Else:keyset=Application("index.asp_GetRows"):End If
set tpl = new cls_template
call tpl.load(moban_path)
tpl.content = replace(tpl.content,"{title}",keyset_replace(keyset(0,0),keyset(3,0)))
tpl.content = replace(tpl.content,"{description}",keyset_replace(keyset(2,0),keyset(3,0)))
tpl.content = replace(tpl.content,"{keywords}",keyset_replace(keyset(1,0),keyset(3,0))) '''先替换标题标签


tpl.content = search_form_replace(tpl.content) ''再替换接的参数的标签。
tpl.content = replace(tpl.content,"{classname}",classname)
call tpl.parser_com()   '''替换提供标签hotel标签的替换
call tpl.Parser_IF() '''替换if else标签。
call tpl.Parser_page() ''记录集分页标签替换。
tpl.content = replace(tpl.content,"{liulan}",newhotel(6))
Indexcontent = Indexcontent&tpl.content



'Response.Write FilePath
if hotel(7) then
Indexcontent = rewriterule(Indexcontent)
End If
'If Templatecache = 1 then 
'	 call CreatFilehtml(FilePath,Indexcontent,"gb2312")
'	 Server.Transfer(FilePath)
'End If
Response.Write  Indexcontent
set tpl = nothing
'''先替换标题

%>

