<!-- #include file="conn.asp" -->
<%
'热门搜索读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 3 [name],[url] from web_keywords where hot_yes=1 order by [time] desc"
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="/query/?q="&rs("name")&"&tp=1"
end if
article_hotkeys=article_hotkeys&"<a href='"&hotkeys_url&"' target='_blank' title='"&rs("name")&"'>"&left(rs("name"),6)&"</a> "
rs.movenext
loop
else
article_hotkeys=article_hotkeys&"无数据"
end if
rs.close
set rs=nothing

response.write article_hotkeys
%>
<%
'新进企业列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 20 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&"<div><a href='"&rs("file_path")&"' target='_blank' title='"&rs("name")&"'>"&left(rs("name"),20)&"</a></div>"
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

response.write web_xjcom_list
%>

<%
'新进企业列表读取替换
set rs=server.createobject("adodb.recordset")
sql="select top 2 name,url from [web_menu] where position=3 order by order"
rs.open(sql),cn,1,3
if not rs.eof and not rs.bof then

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

response.write web_menu
%>