|
|
<%
strSourceFile = Server.MapPath("/xml/hot.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async="false"
objXML.load(strSourceFile)
Set item=objXML.getElementsByTagName("id")
if item.Length<>0 then
dim ids
ids="0"
For i=0 To (item.Length-1)
ids=ids+","+item(i).text
next
sqlstr="select * from [technique_ifo] where id in ("& ids &")"
rs.Open sqlstr,Conn,1,3
if rs.EOF or rs.BOF then
Response.Write ("| 暂无推荐文章! | ")
else
rs.MoveFirst
do while not rs.EOF
Tech_id=trim(rs("technique_id"))
Tech_title=trim(rs("technique_title"))
%>
| <%=FormatTitle(Tech_title,24)%> |
<%
rs.MoveNext
loop
End if
rs.Close
end if
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<% Call ShowNews(2,12) %> |
|
|
|
|
|
|
|
|
|
|
<% Call ShowNews(3,20) %>
|
|
|
|
|
|
|
<%
sqlstr = "select top 13 company_id,company_name from [company_ifo] where company_commend=1 order by company_moddate desc"
rs.Open sqlstr,Conn,1,1
if rs.eof or rs.bof then
Response.Write ("| 公司列表为空! | ")
else
rs.MoveFirst
do while not rs.EOF
CompanyId=trim(rs("company_id"))
CompanyName=trim(rs("company_name"))
Response.Write ("| ")
Response.Write ("" & FormatTitle(CompanyName,35) & " | ")
rs.MoveNext
loop
End if
rs.Close
%>
|
|
