首页
新闻中心 |
|
<%
Dim CONN_STRING
CONN_STRING = Server.MapPath("..\myfile\database\table.mdb")
CONN_STRING = "driver={Microsoft Access Driver (*.mdb)};dbq=" & CONN_STRING
set conn=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
conn.open CONN_STRING
sql = "select * from file order by id DESC"
rs.Open sql,conn,1,1
%>
|
|
|
|
|
|
|
 |
|
<%
i=0
rs.movefirst
do while not rs.eof
if rs("分类") = "科技动态" then
i=i+1
if i <= 6 then
temp=split(rs("mydate")," ")
%>
 |
" class="link1">[<%=temp(0)%>]
<%=rs("标题")%> |
<%
else
exit do
end if
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
|
|
| |
|
|
