<%@ LANGUAGE=VBScript CodePage=65001%>
<% response.charset="utf-8" %>
<% session.codepage=65001 %>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#include file="../LyricInc/access.asp"  -->
<!-- #include file="LyricInc/functions.asp" -->
<!-- #include file="../LyricInc/m_x_to_html/index_to_html.asp" -->
<!-- #include file="../LyricInc/m_x_to_html/Article_list_to_html.asp" -->
<!-- #include file="../LyricInc/m_x_to_html/Blank_Content_to_html.asp" -->
<!-- #include file="../LyricInc/m_x_to_html/Feed_list_to_html.asp" -->
<!-- #include file="../LyricInc/m_x_to_html/Search_index_to_html.asp" -->
<!-- #include file="../LyricInc/m_x_to_html/SiteMap_index_to_html.asp" -->
<!-- #include file="../LyricInc/m_x_to_html/Article_to_html.asp" -->
<!-- #include file="../LyricInc/m_x_to_html/Feed_to_html.asp" -->

	<%
Call header()
%>

<%'生成
'生成首页
call index_to_MHtml()

'生成栏目
sql="select [id],ppid,ClassType,Html_Yes,index_push from [category]  order by [time] desc"
set rs_create=server.createobject("adodb.recordset")
rs_create.open(sql),cn,1,1
if not rs_create.eof then
do while not rs_create.eof
ClassID=rs_create("id")

Select Case  rs_create("ClassType")

Case 1'文章
call Article_list_to_MHtml(ClassID)

Case 4 '留言
call Feed_list_to_MHtml(ClassID)

Case 5 '单页
call Blank_Content_to_MHtml(ClassID)

End Select

rs_create.movenext
loop
end if
rs_create.close
set rs_create=nothing


'生成搜索页
call search_index_to_MHtml()

'生成网站地图
call SiteMap_to_MHtml()

'生成资讯文章
sql="select [id],[ArticleType] from [article]  where view_yes=1 order by [time] desc"
set rs_create=server.createobject("adodb.recordset")
rs_create.open(sql),cn,1,1
do while not rs_create.eof 
a_id=rs_create("id")
'select case rs_create("ArticleType")
'case 1
call article_to_MHtml(a_id)
'end select
rs_create.movenext
loop
rs_create.close
set rs_create=nothing

'生成留言内容
sql="select [id] from [web_info]  where view_yes=1 order by [time] desc"
set rs_create=server.createobject("adodb.recordset")
rs_create.open(sql),cn,1,1
do while not rs_create.eof 
a_id=rs_create("id")
call Feed_to_MHtml(a_id)
rs_create.movenext
loop
rs_create.close
set rs_create=nothing


response.Write "<script language='javascript'>alert('更新成功！');history.go(-1);</script>"
%>



<%
Call DbconnEnd()
 %>