<%
set conn=server.createobject("adodb.connection")
conn.open "dbq="&server.mappath("data/news_data.mdb")&";driver={microsoft access driver (*.mdb)};"
%>
 |
| |
<%
Set rc=Server.CreateObject("ADODB.Recordset")
sql="Select top 12 * from WEBNEWS order by ID desc"
rc.open sql,conn,1,1
count=rc.pagesize
%>
|
<%if rc.bof then%>
| 暂时没有该类信息! |
<%else%>
<%do while not rc.eof and count > 0%>
| (<%=rc("News_date")%>) |
<%
rc.movenext
loop
%>
<%end if%>
|
|
|
|
 |
|
 |
| |
维修点:上海市漕溪北路41号339 (汇嘉大厦3楼339)
联系人:顾万华
电 话:021-25917101 25917102 13917581876
网 站:www.psp2006.com
邮 箱:wanhuagu@gmail.com |
|
|
 |
|
 |
| |
<%
set conn=server.createobject("adodb.connection")
conn.open "dbq="&server.mappath("data/news_data.mdb")&";driver={microsoft access driver (*.mdb)};"
%>
<%
Set rc=Server.CreateObject("ADODB.Recordset")
sql="Select * from WEBNEWS order by ID desc"
rc.open sql,conn,1,1
rc.pagesize=20
dim Page
Page =1
if request("Page") <> "" then
Page=cint(request("Page"))
end if
if not rc.eof and not rc.bof then
rc.absolutepage=Page
end if
count=rc.pagesize
%>
|
|
<%if rc.bof then%>
| 暂时没有新闻! |
<%else%>
<%do while not rc.eof and count > 0%>
| (<%=rc("News_date")%>) |
<%
rc.movenext
count=count-1
loop
%>
|
|
<%end if%>
|
|
|
|
 |
|