 最新供应信息 |
|
 |
<%
connstrimg="dbq="+server.mappath("/news/CmsData/#b0363ad723348247.asa")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set connimg=server.createobject("adodb.connection")
connimg.open connstrimg
sqlimg="select top 14 N_Fname,newsid,title from article where typeid=7 order by newsid desc"
set rsimg=connimg.execute(sqlimg)
do while not rsimg.eof
%>·" target="_blank"><%=rsimg("title")%>
<%
rsimg.movenext
loop
rsimg.close
set rsimg=nothing
%>
|
|
|
|
|
<%
sqlconfig="select * from config"
set rsconfig=server.createobject("adodb.recordset")
rsconfig.open sqlconfig,conn,1,1
sql1="select * from type where typeid=7"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
sql="select top 16 * from article where check=1 and typeid=7 order by newsid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
·
<%if rs("selectpic") = 1 then%>
[图文]
<%else%>
[<%=Month(rs("date"))%>.<%=Day(rs("date"))%>]
<%end if%>
<%
n=n-1
rs.movenext
loop
rs.close
set rs=nothing
rsconfig.close
set rsconfig=nothing
rs1.close
set rs1=nothing
%>
|
|
 |
<%
sqlconfig="select * from config"
set rsconfig=server.createobject("adodb.recordset")
rsconfig.open sqlconfig,conn,1,1
sql1="select * from type where typeid=2"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
sql="select top 16 * from article where check=1 and typeid=2 order by newsid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
·
<%if rs("selectpic") = 1 then%>
[图文]
<%else%>
[<%=Month(rs("date"))%>.<%=Day(rs("date"))%>]
<%end if%>
<%
n=n-1
rs.movenext
loop
rs.close
set rs=nothing
rsconfig.close
set rsconfig=nothing
rs1.close
set rs1=nothing
%>
|
|
|
|
|
<%
sqlconfig="select * from config"
set rsconfig=server.createobject("adodb.recordset")
rsconfig.open sqlconfig,conn,1,1
sql1="select * from type where typeid=3"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
sql="select top 16 * from article where check=1 and typeid=3 order by newsid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
·
<%if rs("selectpic") = 1 then%>
[图文]
<%else%>
[<%=Month(rs("date"))%>.<%=Day(rs("date"))%>]
<%end if%>
<%
n=n-1
rs.movenext
loop
rs.close
set rs=nothing
rsconfig.close
set rsconfig=nothing
rs1.close
set rs1=nothing
%> |
|
|
<%
sqlconfig="select * from config"
set rsconfig=server.createobject("adodb.recordset")
rsconfig.open sqlconfig,conn,1,1
sql1="select * from type where typeid=8"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
sql="select top 16 * from article where check=1 and typeid=8 order by newsid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
·
<%if rs("selectpic") = 1 then%>
[图文]
<%else%>
[<%=Month(rs("date"))%>.<%=Day(rs("date"))%>]
<%end if%>
<%
n=n-1
rs.movenext
loop
rs.close
set rs=nothing
rsconfig.close
set rsconfig=nothing
rs1.close
set rs1=nothing
%> |
|
|
|
<%
sqltop="select top 4 * from article where check=1 and tjnews=1 and picchk=1 order by newsid desc"
Set rstop= Server.CreateObject("ADODB.Recordset")
rstop.open sqltop,conn,1,1
do while not rstop.eof
%>
 " alt="" border="0" />
推荐阅读：<%=rstop("title")%> |
<%
rstop.movenext
loop
%>
|
