<%
postfile=server.mappath("bbsdata/postdata.asp")
set fs=createobject("scripting.filesystemobject")
set pfile=fs.opentextfile(postfile,1,false)
dim ps()
rec=0
do while not pfile.atendofstream
thisline=pfile.readline
redim preserve ps(rec)
ps(rec)=thisline
rec=rec+1
loop
pfile.close
page=request.querystring("page")
if page="" then page=1
if page*200+1>=rec then
pageend=rec-1
else
pageend=(page*200+1)
end if
pagetop=(page*200+1-200)
allrec=0
for p=1 to rec-1 step 10
allrec=allrec+1
next
'allpage=0
'for p=1 to rec-1 step 200
'allpage=allpage+1
'next
%>
南京高格科技有限公司>技术支持
