<%
dim rs,conn,filepath,lb,pcount,page
filepath=server.mappath("\bret\toxdb\news.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "&filepath&";Jet OLEDB:Database Password=111"
set rs=server.createobject("adodb.recordset")
sub showtb(table)
dim lb
select case table
case "schoolexpress" lb=1
case "eduinfo" lb=2
case "schoolbbs" lb=3
end select
sql="select top 3 id,title,content,date from "&table&" order by date desc"
rs.open sql,conn,1,1
dim color
color="ffffff"
for i=1 to rs.recordcount
if color="ffffff" then color="fbfbff" else color="ffffff"
dim b,e
yl=rs(1)
if len(yl)>6 then kk=left(yl,6)&"..." else kk=yl
kk=yl
dim date1
response.write "
"
if table="schoolexpress" then
if rs(2)<>"" then
response.write " "&kk&"
"&kk&"
