%
dim connstr
dim db
db="admin/database/topwang.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.open connstr
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from [info] order by Id desc"
rs.open sql,conn,1,3
%>
昆山IT外包 | 电脑维修 | 新闻中心 | 综合布线 | 昆山达晖网络科技有限公司
|
 |
技术中心 |
|
|
|
<%do while not rs.eof
i=i+1
%>"><%=rs("infotitle")%> |
<%if i mod 2=0 then
response.Write" "
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
|
|