|
<%
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("liuyan/database/#sunbtob.mdb")
set db= Server.CreateObject("ADODB.Connection")
db.Open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from zixuncontent where zixunid=1 order by id desc"
rs.open sql,db,3,2
%>
| >> 企业动态 |
<%
if not rs.EOF then
for i=1 to 5
if not rs.EoF then
%>
| ><%=rs("topic")%> |
<%=rs("username")%> |
<%=rs("data")%> |
<%
else
exit for
End if
if not rs.EOF then
rs.movenext
else
exit for
End if
next
rs.close
else
response.Write("| 暂无资讯!! | ")
End if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from zixuncontent where zixunid=2 order by id desc"
rs.open sql,db,3,2
%>
| >> 买卖信息 |
<%
if not rs.EOF then
for i=1 to 5
if not rs.EoF then
%>
| <%=rs("topic")%> |
<%=rs("username")%> |
<%=rs("data")%> |
<%
else
exit for
End if
if not rs.EOF then
rs.movenext
else
exit for
End if
next
rs.close
else
response.Write("| 暂无资讯!! | ")
End if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from zixuncontent where zixunid=3 order by id desc"
rs.open sql,db,3,2
%>
| >> 合作信息 |
<%
if not rs.EOF then
for i=1 to 5
if not rs.EoF then
%>
| <%=rs("topic")%> |
<%=rs("username")%> |
<%=rs("data")%> |
<%
else
exit for
End if
if not rs.EOF then
rs.movenext
else
exit for
End if
next
rs.close
else
response.Write("| 暂无资讯!! | ")
End if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from zixuncontent where zixunid=4 order by id desc"
rs.open sql,db,3,2
%>
| >> 招聘信息 |
<%
if not rs.EOF then
for i=1 to 5
if not rs.EoF then
%>
| <%=rs("topic")%> |
<%=rs("username")%> |
<%=rs("data")%> |
<%
else
exit for
End if
if not rs.EOF then
rs.movenext
else
exit for
End if
next
rs.close
else
response.Write("| 暂无资讯!! | ")
End if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from zixuncontent where zixunid=5 order by id desc"
rs.open sql,db,3,2
%>
| >> 其它信息 |
<%
if not rs.EOF then
for i=1 to 5
if not rs.EoF then
%>
| <%=rs("topic")%> |
<%=rs("username")%> |
<%=rs("data")%> |
<%
else
exit for
End if
if not rs.EOF then
rs.movenext
else
exit for
End if
next
rs.close
else
response.Write("| 暂无资讯!! | ")
End if
%>
| 关键词:干洗,干洗加盟,干洗机,石油干洗机,干洗机械,干洗店加盟,洗衣房装备,水洗房设备,洗涤设备,洗涤机械,宾馆洗衣房设备,干洗连锁 |
|
|