<%
Set web_Comment=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT * from Web_News where new_Class="&newclass&" ORDER BY new_PostTime desc"
aUrl="?"
pSize = 20
web_Comment.Open SQL,Conn,1,1
IF web_Comment.EOF AND web_Comment.BOF Then
else
web_Comment.PageSize=pSize
web_Comment.AbsolutePage=CurPage
comm_Num=web_Comment.RecordCount
commArr=web_Comment.GetRows(comm_Num)
web_Comment.close
set web_Comment = nothing
commArrLen=Ubound(commArr,2)
do until Pcount = commArrLen+1 or Pcount = pSize
%>
<%
Pcount=Pcount+1
loop
end if
%>
<%=DateToStr(commArr(5,Pcount),"Y-m-d")%>
<%=MultiPage(comm_Num,pSize,CurPage,aUrl,"","float:right")%>
Mirror