<%
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%>
|
|
|
|
 |
|
