% Set fs =server.CreateObject("Scripting.FileSystemObject") path=server.MapPath ("counter.txt") Set thisfile = fs.OpenTextFile(path, 1, False) number=thisfile.readline number=number+1 thisfile.close set outfile=fs.createtextfile(path) outfile.writeline number set conn1=server.CreateObject ("adodb.connection") dbpath=server.MapPath ("news/info/news.mdb") 'Response.Write dbpath connstr1="Driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath 'Response.Write connstr1 conn1.Open connstr1 set newss=server.CreateObject ("adodb.recordset") newss.MaxRecords=8 sqll="select top 8 * from news order by time desc" newss.Open sqll,conn1,1,1 outfile.close %>
|
|||||||||
|
|
|||||||||
|
|
您现在位置|首页|诚邀合作| |
|
|
亿科网络有限公司版权所有
|
|
Copyright @ 2000 yi-ke.com. All rights reserved
|
|
陕ICP证010012号
|
|
E-mail: yk@yi-ke.com
|