-
集myfso = CreateObject（脚本。FileSystemObject ）
集myread = myfso.opentextfile（server.mappath（， / new_list .asp），1,0）
如果myread.atendofstream然后
回答：写此时没有添加任何消息。
反应结束
其他的
昏暗的mytext，listarray
mytext = myread.readall
listarray =分裂（mytext，| ）的#######所有记录分为一个数组
朦胧的总记录数，总页数，PageSize，pagenum
总记录数= UBound（listarray）的############记录数
PageSize = 2
总页数= RecordCount / PageSize的#######使页面数量
如果仪器（1，总页数，，）= null或仪器（1，总页数，，）= 0
pagenum =总页数
其他的
pagenum = int（总页数）+ 1
最后如果
昏暗的页
页= Cint（Request.QueryString（页）的########）得到显示页面
如果topagetopage = 1
最后如果
如果页> pagenum然后
pagenum页=
最后如果
朦胧的我，J，N
B = listarray
我= 0 recordcount-1########每个记录包含一个数组
J =分裂（listarray（我），
如果UBound（j）= 6
B（i）=单击：j（4）最后一次释放时间：j（5）
其他的
B（i）=单击：j（4）最后一次释放时间：j（5）
最后如果
下一个
########逆向排序的记录存储在时间反排序新数组
昏暗的C（100）
n = 0
我= RecordCount 0步- 1
c（n）＝b（i）
n＝n＋1
下一个
昏暗的currentrecord
currentrecord = PageSize *（topage-1）+ 1 #########显示每一页
K = 1页大小
如果len（C（currentrecord））= 0
退出
最后如果
响应。写C（currentrecord）
currentrecord = currentrecord + 1
下一个
响应。写
M = 1 pagenum
response.write
下一个
最后如果
%>