<!-- #include file="../../inc/html_clear.asp" -->

<%'容错处理
function index_to_html()
On Error Resume Next
%>

<%'读取模板内容
Set fso=Server.CreateObject("Scripting.FileSystemObject") 
Set htmlwrite=fso.OpenTextFile(Server.MapPath("/model/index_model.html")) 
replace_code=htmlwrite.ReadAll() 
htmlwrite.close 
%>

<%'首页基本信息内容读取替换
set rs=server.createobject("adodb.recordset")
sql="select web_name,web_url,web_image,web_title,web_keywords,web_description,web_person,web_url,web_email,web_tel,web_copyright from web_settings"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_name=rs("web_name")
web_image=rs("web_image")
web_title=rs("web_title")
web_keywords=rs("web_keywords")
web_description=rs("web_description")
web_copyright=rs("web_copyright")
web_person=rs("web_person")
web_url=rs("web_url")
web_email=rs("web_email")
web_tel=rs("web_tel")
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_name$",web_name)
replace_code=replace(replace_code,"$web_image$",web_image)
replace_code=replace(replace_code,"$web_title$",web_title)
replace_code=replace(replace_code,"$web_keywords$",web_keywords)
replace_code=replace(replace_code,"$web_description$",web_description)
replace_code=replace(replace_code,"$web_copyright$",web_copyright)
replace_code=replace(replace_code,"$web_person$",web_person)
replace_code=replace(replace_code,"$web_url$",web_url)
replace_code=replace(replace_code,"$web_email$",web_email)
replace_code=replace(replace_code,"$web_tel$",web_tel)



'顶部导航列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select [number],[id] from web_menu_type order by [order]"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof
web_menu=web_menu&""
set rs_menu=server.createobject("adodb.recordset")
sql="select top "&rs("number")&" [name],[url] from web_menu where [position]="&rs("id")&" order by [order] "
rs_menu.open(sql),cn,1,1
if not rs_menu.eof and not rs_menu.bof then
for i= 1 to rs_menu.recordcount
if i=1  or i=rs_menu.recordcount/2+1 then
web_menu=web_menu&"<li><a href='"&rs_menu("url")&"' title='"&rs_menu("name")&"' target='_self'>"&left(rs_menu("name"),4)&"</a></li>"
else
web_menu=web_menu&"<li><a href='"&rs_menu("url")&"' title='"&rs_menu("name")&"' target='_self'>"&left(rs_menu("name"),4)&"</a></li>"
end if
if i=rs_menu.recordcount/2 then
web_menu=web_menu&""
end if
rs_menu.movenext
next
else
web_menu=web_menu&"无数据"
end if
rs_menu.close
set rs_menu=nothing

web_menu=web_menu&""
rs.movenext
loop
else
web_menu=web_menu&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_menu$",web_menu)



'二层导航列表读取替换
set rs=server.createobject("adodb.recordset")
sql1="select top 12 name,folder from category where ppid=1 and id > 48 order by id asc"
rs.open(sql1),cn,1,1
if not rs.eof and not rs.bof then
web_menus=web_menus&""
do while not rs.eof 
web_menus=web_menus&"<li><a href='/"&rs("folder")&"/index.html' title='"&rs("name")&"' target='_self'>"&left(rs("name"),4)&"</a></li>"
rs.movenext
loop
web_menus=web_menus&""
else
web_menus=web_menus&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_menus$",web_menus)



'二级导航列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 12 [id],[name],[folder],[pid] from [category] where pid=36 and ppid=2 order by id"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
for i=1 to rs.recordcount

folder_name_0=rs("folder")
'ppid=2
set rs_1=server.createobject("adodb.recordset")
sql="select [folder] from [category] where [id]="&rs("pid")&" and ppid=1"
rs_1.open(sql),cn,1,1
if not rs_1.eof then

folder_name_1=rs_1("folder")

if folder_name_1<>"" and  folder_name_0<>"" then

Set Fso=Server.CreateObject("Scripting.FileSystemObject") 
If Fso.FolderExists(Server.MapPath("/"&folder_name_0))=true then
folder_path="/"&folder_name_0
else
folder_path="/html/"&rs("folder")
end if

else
folder_path="/html/"&rs("folder")
end if

end if
rs_1.close
set rs_1=nothing

if i=1 then
web_menuss=web_menuss&"<li><a href='"&folder_path&"/index.html' title='"&rs("name")&"' target='_self'>"&rs("name")&"</a></li>"
else
web_menuss=web_menuss&"<li><a href='"&folder_path&"/index.html' title='"&rs("name")&"' target='_self'>"&rs("name")&"</a></li>"
end if
rs.movenext
next
else
web_menuss=web_menuss&"无数据"
end if 
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_menuss$",web_menuss)



'推荐期刊①列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 5 [name],[url] from web_keywords where hot_yes=1 order by [time] asc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof
hotkeys_url=rs("url")
if rs("url")="" then
hotkeys_url=""
end if
web_hotsearch=web_hotsearch&"<a href='"&hotkeys_url&"' target='_blank' title='"&rs("name")&"'>"&left(rs("name"),6)&"</a>"
rs.movenext
loop
else
web_hotsearch=web_hotsearch&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_hotsearch$",web_hotsearch)



'推荐期刊②列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 20 [name],[url] from web_keywords where index_yes=1 order by [time] asc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof
hotkeys_url=rs("url")
if rs("url")="" then
hotkeys_url=""
end if
web_indexsearch=web_indexsearch&"<div><a href='"&hotkeys_url&"' target='_blank' title='"&rs("name")&"'><font color='#333333'>"&left(rs("name"),15)&"</font></a></div>"
rs.movenext
loop
else
web_indexsearch=web_indexsearch&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_indexsearch$",web_indexsearch)



'教育新闻列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='36' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_jiaoyuxinwen_list=web_jiaoyuxinwen_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),20)&"</li>"
web_jiaoyuxinwen_list=web_jiaoyuxinwen_list&""
else
web_jiaoyuxinwen_list=web_jiaoyuxinwen_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 8 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article]  where view_yes=1 and index_push=1 and cid='36' order by [time] desc) and view_yes=1 and cid='36' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_jiaoyuxinwen_list=web_jiaoyuxinwen_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_jiaoyuxinwen_list=web_jiaoyuxinwen_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),20)&"</a></li>"
rs.movenext
loop
web_jiaoyuxinwen_list=web_jiaoyuxinwen_list&""
else
web_jiaoyuxinwen_list=web_jiaoyuxinwen_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_jiaoyuxinwen_list$",web_jiaoyuxinwen_list)



'幻灯广告列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 10 name,[url],image from web_pic where view_yes=1 order by [order]"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_img_slide=web_img_slide&""
do while not rs.eof 
web_img_slide=web_img_slide&"<li><a href='"&rs("url")&"' target='_blank'>"&"<img src='/7yimg/"&rs("image")&"' alt='"&rs("name")&"' border='0' />"&"</a></li>"
rs.movenext
loop
web_img_slide=web_img_slide&""
else
web_img_slide=web_img_slide&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_img_slide$",web_img_slide)



'学校新闻列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='37' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_xuexiaoxinwen_list=web_xuexiaoxinwen_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),20)&"</li>"
web_xuexiaoxinwen_list=web_xuexiaoxinwen_list&""
else
web_xuexiaoxinwen_list=web_xuexiaoxinwen_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 8 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article]  where view_yes=1 and index_push=1 and cid='37' order by [time] desc) and view_yes=1 and cid='37' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_xuexiaoxinwen_list=web_xuexiaoxinwen_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_xuexiaoxinwen_list=web_xuexiaoxinwen_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),20)&"</a></li>"
rs.movenext
loop
web_xuexiaoxinwen_list=web_xuexiaoxinwen_list&""
else
web_xuexiaoxinwen_list=web_xuexiaoxinwen_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_xuexiaoxinwen_list$",web_xuexiaoxinwen_list)



'分类信息列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 20 name,content,type,file_path from [web_info]  where view_yes=1 order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_info_list=web_info_list&""
do while not rs.eof

set rs_type=server.createobject("adodb.recordset")
sql="select [name],[id] from web_info_type where id="&rs("type")&""
rs_type.open(sql),cn,1,1
if not rs_type.eof then
type_name=rs_type("name")
type_id=rs_type("id")
end if
rs_type.close
set rs_type=nothing

web_info_list=web_info_list&"<li><a href='/category/"&type_id&"/index.html' target='_blank'><span class='fenlei"&type_id&"'>["&type_name&"信息]</span></a><a href='"&rs("file_path")&"' target='_blank' title='"&rs("name")&"'><span>"&left(rs("name"),21)&"</span></a></li>"
rs.movenext
loop
web_info_list=web_info_list&""
else
web_info_list=web_info_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_info_list$",web_info_list)



'招聘信息列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 20 j_name,j_firm,j_depart,j_sum,j_time,j_demand,file_path from [web_job] where j_view_yes=1 order by j_time desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
for i=1 to rs.recordcount

if rs("j_sum")="" or rs("j_sum")="不限" then
recruit_sum="人数不限"
else
recruit_sum=rs("j_sum")&"名"
end if

set rs_firm=server.createobject("adodb.recordset")
sql="select [name],file_path from web_com where id="&rs("j_firm")&""
rs_firm.open(sql),cn,1,1
if not rs_firm.eof then
article_firm=rs_firm("name")
article_firm_url=rs_firm("file_path")
end if
rs_firm.close
set rs_firm=nothing

web_recruit_list=web_recruit_list&"<li><a href='/zhaopinxinxi/index.html' target='_blank'><span class='fenlei3'>[招聘信息]</span></a> <a href='"&rs("file_path")&"'  title='"&rs("j_name")&"'  target='_blank'>"&left(rs("j_name"),6)&"</a> <span class='fenlei2'>"&recruit_sum&"</span> <a href='"&article_firm_url&"'  title='"&article_firm&"'  target='_blank'><span class='fenlei1'>"&left(article_firm,10)&"</span></a></li>"

if i mod 3=0 and i<>rs.recordcount then
web_recruit_list=web_recruit_list&""
end if
rs.movenext
next
else
web_recruit_list=web_recruit_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_recruit_list$",web_recruit_list)



'新进企业列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 10 name,address,file_path,tel from [web_com]  where view_yes=1 order by [time] desc"

rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then

for i= 1 to rs.recordcount
if i=1 then
web_xjcom_list=web_xjcom_list&""
else
web_xjcom_list=web_xjcom_list&""
end if
web_xjcom_list=web_xjcom_list&"<li><a href='"&rs("file_path")&"' target='_blank' title='"&rs("name")&"'>"&left(rs("name"),20)&"</a></li>"
web_xjcom_list=web_xjcom_list&""
web_xjcom_list=web_xjcom_list&""
web_xjcom_list=web_xjcom_list&""
rs.movenext
next
else
web_xjcom_list=web_xjcom_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_xjcom_list$",web_xjcom_list)



'企业展示列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 8 [name],[image],file_path from [web_com] where  view_yes=1 and com_yes=1 and index_push=1 and [order]<>0 order by [order]"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof 
web_ppcom_list=web_ppcom_list&""
web_ppcom_list=web_ppcom_list&"<li><a href='"&rs("file_path")&"' target='_blank'><img src='/7yimg/"&rs("image")&"' width='136' height='116' alt='"&rs("name")&"'></a><a href='"&rs("file_path")&"' target='_blank' title='"&rs("name")&"'>"&left(rs("name"),11)&"</a></li>"
web_ppcom_list=web_ppcom_list&""
web_ppcom_list=web_ppcom_list&""
rs.movenext
loop
else
web_ppcom_list=web_ppcom_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_ppcom_list$",web_ppcom_list)



'推荐企业列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 13 [name],[image],file_path from [web_com] where  view_yes=1 and com_yes=1 and index_push=1 and [order]<>1 order by [order]"

rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then

for i= 1 to rs.recordcount
if i=1 then
web_tjcom_list=web_tjcom_list&""
else
web_tjcom_list=web_tjcom_list&""
end if
web_tjcom_list=web_tjcom_list&"<li><a href='"&rs("file_path")&"' target='_blank' title='"&rs("name")&"'>"&left(rs("name"),20)&"</a></li>"
web_tjcom_list=web_tjcom_list&""
web_tjcom_list=web_tjcom_list&""
web_tjcom_list=web_tjcom_list&""
rs.movenext
next
else
web_tjcom_list=web_tjcom_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_tjcom_list$",web_tjcom_list)



'商家展示列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 4 [name],[image],file_path from [web_com] where  view_yes=1 and com_yes=0 and index_push=1 and [order]<>0 order by [order]"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof 
web_ppshop_list=web_ppshop_list&""
web_ppshop_list=web_ppshop_list&"<li><a href='"&rs("file_path")&"' target='_blank'><img src='/7yimg/"&rs("image")&"' width='136' height='116' alt='"&rs("name")&"'></a><a href='"&rs("file_path")&"' target='_blank' title='"&rs("name")&"'>"&left(rs("name"),11)&"</a></li>"
web_ppshop_list=web_ppshop_list&""
rs.movenext
loop
else
web_ppshop_list=web_ppshop_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_ppshop_list$",web_ppshop_list)



'推荐商家列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 7 [name],[image],file_path from [web_com] where  view_yes=1 and com_yes=0 and index_push=1 and [order]<>1 order by [order]"

rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then

for i= 1 to rs.recordcount
if i=1 then
web_tjshop_list=web_tjshop_list&""
else
web_tjshop_list=web_tjshop_list&""
end if
web_tjshop_list=web_tjshop_list&"<li><a href='"&rs("file_path")&"' target='_blank' title='"&rs("name")&"'>"&left(rs("name"),20)&"</a></li>"
web_tjshop_list=web_tjshop_list&""
web_tjshop_list=web_tjshop_list&""
web_tjshop_list=web_tjshop_list&""
rs.movenext
next
else
web_tjshop_list=web_tjshop_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_tjshop_list$",web_tjshop_list)



'高等教育列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='38' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_gaodengjiaoyu_list=web_gaodengjiaoyu_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_gaodengjiaoyu_list=web_gaodengjiaoyu_list&""
else
web_gaodengjiaoyu_list=web_gaodengjiaoyu_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='38' order by [time] desc) and view_yes=1 and cid='38' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_gaodengjiaoyu_list=web_gaodengjiaoyu_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_gaodengjiaoyu_list=web_gaodengjiaoyu_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_gaodengjiaoyu_list=web_gaodengjiaoyu_list&""
else
web_gaodengjiaoyu_list=web_gaodengjiaoyu_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_gaodengjiaoyu_list$",web_gaodengjiaoyu_list)



'基础教育列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='39' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_jichujiaoyu_list=web_jichujiaoyu_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_jichujiaoyu_list=web_jichujiaoyu_list&""
else
web_jichujiaoyu_list=web_jichujiaoyu_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='39' order by [time] desc) and view_yes=1 and cid='39' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_jichujiaoyu_list=web_jichujiaoyu_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_jichujiaoyu_list=web_jichujiaoyu_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_jichujiaoyu_list=web_jichujiaoyu_list&""
else
web_jichujiaoyu_list=web_jichujiaoyu_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_jichujiaoyu_list$",web_jichujiaoyu_list)



'职成教育列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='40' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_zhichengjiaoyu_list=web_zhichengjiaoyu_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),20)&"</li>"
web_zhichengjiaoyu_list=web_zhichengjiaoyu_list&""
else
web_zhichengjiaoyu_list=web_zhichengjiaoyu_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='40' order by [time] desc) and view_yes=1 and cid='40' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_zhichengjiaoyu_list=web_zhichengjiaoyu_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_zhichengjiaoyu_list=web_zhichengjiaoyu_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),20)&"</a></li>"
rs.movenext
loop
web_zhichengjiaoyu_list=web_zhichengjiaoyu_list&""
else
web_zhichengjiaoyu_list=web_zhichengjiaoyu_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_zhichengjiaoyu_list$",web_zhichengjiaoyu_list)



'招考就业列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='41' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_zhaokaojiuye_list=web_zhaokaojiuye_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_zhaokaojiuye_list=web_zhaokaojiuye_list&""
else
web_zhaokaojiuye_list=web_zhaokaojiuye_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='41' order by [time] desc) and view_yes=1 and cid='41' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_zhaokaojiuye_list=web_zhaokaojiuye_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_zhaokaojiuye_list=web_zhaokaojiuye_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_zhaokaojiuye_list=web_zhaokaojiuye_list&""
else
web_zhaokaojiuye_list=web_zhaokaojiuye_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_zhaokaojiuye_list$",web_zhaokaojiuye_list)



'教育人物列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='42' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_jiaoyurenwu_list=web_jiaoyurenwu_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_jiaoyurenwu_list=web_jiaoyurenwu_list&""
else
web_jiaoyurenwu_list=web_jiaoyurenwu_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='42' order by [time] desc) and view_yes=1 and cid='42' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_jiaoyurenwu_list=web_jiaoyurenwu_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_jiaoyurenwu_list=web_jiaoyurenwu_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_jiaoyurenwu_list=web_jiaoyurenwu_list&""
else
web_jiaoyurenwu_list=web_jiaoyurenwu_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_jiaoyurenwu_list$",web_jiaoyurenwu_list)



'师生作品列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='43' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_shishengzuopin_list=web_shishengzuopin_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),20)&"</li>"
web_shishengzuopin_list=web_shishengzuopin_list&""
else
web_shishengzuopin_list=web_shishengzuopin_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='43' order by [time] desc) and view_yes=1 and cid='43' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_shishengzuopin_list=web_shishengzuopin_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_shishengzuopin_list=web_shishengzuopin_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),20)&"</a></li>"
rs.movenext
loop
web_shishengzuopin_list=web_shishengzuopin_list&""
else
web_shishengzuopin_list=web_shishengzuopin_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_shishengzuopin_list$",web_shishengzuopin_list)



'推荐学校列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='44' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_tuijianxuexiao_list=web_tuijianxuexiao_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_tuijianxuexiao_list=web_tuijianxuexiao_list&""
else
web_tuijianxuexiao_list=web_tuijianxuexiao_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='44' order by [time] desc) and view_yes=1 and cid='44' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_tuijianxuexiao_list=web_tuijianxuexiao_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_tuijianxuexiao_list=web_tuijianxuexiao_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_tuijianxuexiao_list=web_tuijianxuexiao_list&""
else
web_tuijianxuexiao_list=web_tuijianxuexiao_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_tuijianxuexiao_list$",web_tuijianxuexiao_list)



'热点专题列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='45' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_redianzhuanti_list=web_redianzhuanti_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_redianzhuanti_list=web_redianzhuanti_list&""
else
web_redianzhuanti_list=web_redianzhuanti_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='45' order by [time] desc) and view_yes=1 and cid='45' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_redianzhuanti_list=web_redianzhuanti_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_redianzhuanti_list=web_redianzhuanti_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_redianzhuanti_list=web_redianzhuanti_list&""
else
web_redianzhuanti_list=web_redianzhuanti_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_redianzhuanti_list$",web_redianzhuanti_list)


'热门点击列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 10 [title],[file_path],[hit] from [article] where view_yes=1 and [hit]<>0  order by [hit] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_hit_link=web_hit_link&""
i=0
for c=1 to 10
i=i+1
web_hit_link=web_hit_link&"<li class='a_list_"&i&"'><a href='"&rs("file_path")&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),20)&"</a></li>"
rs.movenext
next

web_hit_link=web_hit_link&""
else
web_hit_link=web_hit_link&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_hit_link$",web_hit_link)

'网络营销列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='46' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_wangluoyingxiao_list=web_wangluoyingxiao_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),20)&"</li>"
web_wangluoyingxiao_list=web_wangluoyingxiao_list&""
else
web_wangluoyingxiao_list=web_wangluoyingxiao_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='46' order by [time] desc) and view_yes=1 and cid='46' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_wangluoyingxiao_list=web_wangluoyingxiao_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_wangluoyingxiao_list=web_wangluoyingxiao_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),20)&"</a></li>"
rs.movenext
loop
web_wangluoyingxiao_list=web_wangluoyingxiao_list&""
else
web_wangluoyingxiao_list=web_wangluoyingxiao_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_wangluoyingxiao_list$",web_wangluoyingxiao_list)



'热点聚焦列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='61' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_redianjujiao_list=web_redianjujiao_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_redianjujiao_list=web_redianjujiao_list&""
else
web_redianjujiao_list=web_redianjujiao_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='61' order by [time] desc) and view_yes=1 and cid='61' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_redianjujiao_list=web_redianjujiao_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_redianjujiao_list=web_redianjujiao_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_redianjujiao_list=web_redianjujiao_list&""
else
web_redianjujiao_list=web_redianjujiao_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_redianjujiao_list$",web_redianjujiao_list)



'视频报道列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='62' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_shipinbaodao_list=web_shipinbaodao_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_shipinbaodao_list=web_shipinbaodao_list&""
else
web_shipinbaodao_list=web_shipinbaodao_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='62' order by [time] desc) and view_yes=1 and cid='62' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_shipinbaodao_list=web_shipinbaodao_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_shipinbaodao_list=web_shipinbaodao_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_shipinbaodao_list=web_shipinbaodao_list&""
else
web_shipinbaodao_list=web_shipinbaodao_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_shipinbaodao_list$",web_shipinbaodao_list)



'网站推广列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='60' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_wangzhantuiguang_list=web_wangzhantuiguang_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_wangzhantuiguang_list=web_wangzhantuiguang_list&""
else
web_wangzhantuiguang_list=web_wangzhantuiguang_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='60' order by [time] desc) and view_yes=1 and cid='60' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_wangzhantuiguang_list=web_wangzhantuiguang_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_wangzhantuiguang_list=web_wangzhantuiguang_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_wangzhantuiguang_list=web_wangzhantuiguang_list&""
else
web_wangzhantuiguang_list=web_wangzhantuiguang_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_wangzhantuiguang_list$",web_wangzhantuiguang_list)



'综合要闻列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='63' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_zongheyaowen_list=web_zongheyaowen_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_zongheyaowen_list=web_zongheyaowen_list&""
else
web_zongheyaowen_list=web_zongheyaowen_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='63' order by [time] desc) and view_yes=1 and cid='63' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_zongheyaowen_list=web_zongheyaowen_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_zongheyaowen_list=web_zongheyaowen_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_zongheyaowen_list=web_zongheyaowen_list&""
else
web_zongheyaowen_list=web_zongheyaowen_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_zongheyaowen_list$",web_zongheyaowen_list)



'国内新闻列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='64' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_guoneixinwen_list=web_guoneixinwen_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_guoneixinwen_list=web_guoneixinwen_list&""
else
web_guoneixinwen_list=web_guoneixinwen_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='64' order by [time] desc) and view_yes=1 and cid='64' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_guoneixinwen_list=web_guoneixinwen_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_guoneixinwen_list=web_guoneixinwen_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_guoneixinwen_list=web_guoneixinwen_list&""
else
web_guoneixinwen_list=web_guoneixinwen_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_guoneixinwen_list$",web_guoneixinwen_list)



'国际新闻列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='65' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_guojixinwen_list=web_guojixinwen_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"' target='_blank'>"&left(rs("title"),20)&"</li>"
web_guojixinwen_list=web_guojixinwen_list&""
else
web_guojixinwen_list=web_guojixinwen_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='65' order by [time] desc) and view_yes=1 and cid='65' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_guojixinwen_list=web_guojixinwen_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_guojixinwen_list=web_guojixinwen_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),20)&"</a></li>"
rs.movenext
loop
web_guojixinwen_list=web_guojixinwen_list&""
else
web_guojixinwen_list=web_guojixinwen_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_guojixinwen_list$",web_guojixinwen_list)



'热门新闻列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='66' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_remenxinwen_list=web_remenxinwen_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"'  target='_blank'>"&left(rs("title"),25)&"</li>"
web_remenxinwen_list=web_remenxinwen_list&""
else
web_remenxinwen_list=web_remenxinwen_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='66' order by [time] desc) and view_yes=1 and cid='66' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_remenxinwen_list=web_remenxinwen_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_remenxinwen_list=web_remenxinwen_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_remenxinwen_list=web_remenxinwen_list&""
else
web_remenxinwen_list=web_remenxinwen_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_remenxinwen_list$",web_remenxinwen_list)



'财经新闻列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='67' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_caijingxinwen_list=web_caijingxinwen_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"' target='_blank'>"&left(rs("title"),25)&"</li>"
web_caijingxinwen_list=web_caijingxinwen_list&""
else
web_caijingxinwen_list=web_caijingxinwen_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='67' order by [time] desc) and view_yes=1 and cid='67' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_caijingxinwen_list=web_caijingxinwen_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_caijingxinwen_list=web_caijingxinwen_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),25)&"</a></li>"
rs.movenext
loop
web_caijingxinwen_list=web_caijingxinwen_list&""
else
web_caijingxinwen_list=web_caijingxinwen_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_caijingxinwen_list$",web_caijingxinwen_list)



'博客论坛列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='69' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_blog_list=web_blog_list&"<li><a href='"&rs_url&"' title='"&rs("title")&"' target='_blank'>"&left(rs("title"),20)&"</li>"
web_blog_list=web_blog_list&""
else
web_blog_list=web_blog_list&"无数据"
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select top 9 title,content,file_path,[url],time from [article]  where [id] not in (select top 1 [id] from [article] where view_yes=1 and index_push=1 and cid='69' order by [time] desc) and view_yes=1 and cid='69' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_blog_list=web_blog_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_blog_list=web_blog_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),20)&"</a></li>"
rs.movenext
loop
web_blog_list=web_blog_list&""
else
web_blog_list=web_blog_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_blog_list$",web_blog_list)



'博客论坛列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 10 title,content,file_path,[url],time from [article]  where  view_yes=1 and cid='69' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_bbs_list=web_bbs_list&""
do while not rs.eof
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if
web_bbs_list=web_bbs_list&"<li><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),20)&"</a></li>"
rs.movenext
loop
web_bbs_list=web_bbs_list&""
else
web_bbs_list=web_bbs_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_bbs_list$",web_bbs_list)




'合作伙伴列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 7 title,image,[url],memo from [web_special]  where index_push=1 and id > 18 order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_hezuo_list=web_hezuo_list&""
do while not rs.eof 
web_hezuo_list=web_hezuo_list&"<li><a href='"&rs("url")&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),20)&"</a></li>"
rs.movenext
loop
web_hezuo_list=web_hezuo_list&""
else
web_hezuo_list=web_hezuo_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_hezuo_list$",web_hezuo_list)



'招商专区列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select [name],[url],[memo] from web_gov where view_yes=1 order by [order]"
rs.open(sql),cn,1,1
if not rs.eof then
web_zhaoshang_list=web_zhaoshang_list&""
do while not rs.eof 
web_zhaoshang_list=web_zhaoshang_list&"<li><a href='"&rs("url")&"' target='_blank' title='"&rs("name")&"'><font color='#"&rs("memo")&"'>"&left(rs("name"),20)&"</font></a></li>"
rs.movenext
loop
web_zhaoshang_list=web_zhaoshang_list&""
else
web_zhaoshang_list=web_zhaoshang_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_zhaoshang_list$",web_zhaoshang_list)



'友情链接列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select [name],[url] from web_link where view_yes=1 order by [time] asc"
rs.open(sql),cn,1,1
if not rs.eof then
web_links_list=web_links_list&""
do while not rs.eof 
web_links_list=web_links_list&"<a href='"&rs("url")&"' target='_blank' title='"&rs("name")&"'>"&left(rs("name"),12)&"</a>"
rs.movenext
loop
web_links_list=web_links_list&""
else
web_links_list=web_links_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_links_list$",web_links_list)



'①15560广告列表读取替换
set rs=server.createobject("adodb.recordset")
sql1="select top 12 name,url,image from web_site where index_push=1 and id < 63 order by time asc"
rs.open(sql1),cn,1,1
if not rs.eof and not rs.bof then
web_ad1site_list=web_ad1site_list&""
do while not rs.eof 
web_ad1site_list=web_ad1site_list&"<li><a href='"&rs("url")&"' target='_blank'><img src='/7yimg/"&rs("image")&"' alt='"&rs("name")&"' border='0'></a></li>"
rs.movenext
loop
web_ad1site_list=web_ad1site_list&""
else
web_ad1site_list=web_ad1site_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_ad1site_list$",web_ad1site_list)



'②47080广告列表读取替换
set rs=server.createobject("adodb.recordset")
sql1="select top 2 name,url,image from web_site where index_push=1 and id > 62 order by time asc"
rs.open(sql1),cn,1,1
if not rs.eof and not rs.bof then
web_ad2site_list=web_ad2site_list&""
do while not rs.eof 
web_ad2site_list=web_ad2site_list&"<li><a href='"&rs("url")&"' target='_blank'><img src='/7yimg/"&rs("image")&"' alt='"&rs("name")&"' border='0'></a></li>"
rs.movenext
loop
web_ad2site_list=web_ad2site_list&""
else
web_ad2site_list=web_ad2site_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_ad2site_list$",web_ad2site_list)



'③47080广告列表读取替换
set rs=server.createobject("adodb.recordset")
sql1="select top 2 name,url,image from web_site where index_push=1 and id > 64 order by time asc"
rs.open(sql1),cn,1,1
if not rs.eof and not rs.bof then
web_ad3site_list=web_ad3site_list&""
do while not rs.eof 
web_ad3site_list=web_ad3site_list&"<li><a href='"&rs("url")&"' target='_blank'><img src='/7yimg/"&rs("image")&"' alt='"&rs("name")&"' border='0'></a></li>"
rs.movenext
loop
web_ad3site_list=web_ad3site_list&""
else
web_ad3site_list=web_ad3site_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_ad3site_list$",web_ad3site_list)



'④47080广告列表读取替换
set rs=server.createobject("adodb.recordset")
sql1="select top 2 name,url,image from web_site where index_push=1 and id > 66 order by time asc"
rs.open(sql1),cn,1,1
if not rs.eof and not rs.bof then
web_ad4site_list=web_ad4site_list&""
do while not rs.eof 
web_ad4site_list=web_ad4site_list&"<li><a href='"&rs("url")&"' target='_blank'><img src='/7yimg/"&rs("image")&"' alt='"&rs("name")&"' border='0'></a></li>"
rs.movenext
loop
web_ad4site_list=web_ad4site_list&""
else
web_ad4site_list=web_ad4site_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_ad4site_list$",web_ad4site_list)


'⑤招商推荐列表读取替换
set rs=server.createobject("adodb.recordset")
sql1="select top 4 name,url,image from web_site where index_push=1 and id > 68 order by time asc"
rs.open(sql1),cn,1,1
if not rs.eof and not rs.bof then
web_ad5site_list=web_ad5site_list&""
do while not rs.eof 
web_ad5site_list=web_ad5site_list&"<li><a href='"&rs("url")&"' target='_blank'><img src='/7yimg/"&rs("image")&"' alt='"&rs("name")&"' width='136' height='116' border='0'></a><a href='"&rs("url")&"' target='_blank' title='"&rs("name")&"'>"&left(rs("name"),11)&"</a></li>"
rs.movenext
loop
web_ad5site_list=web_ad5site_list&""
else
web_ad5site_list=web_ad5site_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_ad5site_list$",web_ad5site_list)




'⑥招商推荐列表读取替换
set rs=server.createobject("adodb.recordset")
sql1="select top 1 name,url,image from web_site where index_push=1 and id > 72 order by time asc"
rs.open(sql1),cn,1,1
if not rs.eof and not rs.bof then
web_ad6site_list=web_ad6site_list&""
do while not rs.eof 
web_ad6site_list=web_ad6site_list&"<a href='"&rs("url")&"' target='_blank'><img src='/7yimg/"&rs("image")&"' alt='"&rs("name")&" border='0'></a>"
rs.movenext
loop
web_ad6site_list=web_ad6site_list&""
else
web_ad6site_list=web_ad6site_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_ad6site_list$",web_ad6site_list)


'站内公告列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 1 id,title,content,file_path,[url],time from [article] where view_yes=1 and index_push=1 and cid='58' order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_gonggao_list=web_gonggao_list&"<a href='"&rs_url&"' title='"&rs("title")&"' target='_blank'><font color=#333333>"&left(rs("title"),27)&"</font>"
web_gonggao_list=web_gonggao_list&""
else
web_gonggao_list=web_gonggao_list&"无数据"
end if
rs.close
set rs=Nothing

replace_code=replace(replace_code,"$web_gonggao_list$",web_gonggao_list)


'院校推荐列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 8 image,title,content,file_path,[url],time from [article]  where view_yes=1 and index_push=1 and cid='59' order by [time] asc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_yuanxiaotuijian_list=web_yuanxiaotuijian_list&""
do while not rs.eof 
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=rs("file_path")
end if 
web_yuanxiaotuijian_list=web_yuanxiaotuijian_list&"<li><a href='"&rs_url&"' target='_blank'><img src='/7yimg/"&rs("image")&"' width='136' height='116' alt='"&rs("title")&"'></a><a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),11)&"</a></li>"
rs.movenext
loop
web_yuanxiaotuijian_list=web_yuanxiaotuijian_list&""
else
web_yuanxiaotuijian_list=web_yuanxiaotuijian_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_yuanxiaotuijian_list$",web_yuanxiaotuijian_list)

'支持单位列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 13 title,image,[url],memo from [web_special]  where index_push=1 and id > 17 order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_zhichidanwei_list=web_zhichidanwei_list&""
do while not rs.eof 
web_zhichidanwei_list=web_zhichidanwei_list&"<li><a href='"&rs("url")&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),20)&"</a></li>"
rs.movenext
loop
web_zhichidanwei_list=web_zhichidanwei_list&""
else
web_zhichidanwei_list=web_zhichidanwei_list&"无数据"
end if
rs.close
set rs=nothing

replace_code=replace(replace_code,"$web_zhichidanwei_list$",web_zhichidanwei_list)
%>

<%'生成HTML文件名,指定文件路径
filepath="/Index.html"
%>

<% '生成首页静态文件
Set fout = fso.CreateTextFile(Server.MapPath(filepath))
fout.WriteLine replace_code
fout.close
fso.close
set fso=nothing
end function
%>