无标题文档

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%> 无标题文档 <% sql ="select * from tongzhi Order By 日期 DESC" openrs rs,sql,1,2 tt=0 if tztop=1 then currentnum=rs("tzid") end if 'rs.PageSize=MaxPerPage 'totalpage=rs.pagecount rs.move (CurrentPage-1)*MaxPerPage do while not rs.eof and tt <% rs.movenext tt=tt+1 loop totalput=rs.recordcount rs.close if (totalput mod maxperpage)=0 then totalpage=int(totalput/maxperpage) else totalpage=int(totalput/maxperpage)+1 end if %>

中心通知
	标题	来源	日期
	<%response.write""&rs("标题")&""%>	<%response.write rs("科室")%>	<%response.write year(rs("日期"))&"-"&month(rs("日期"))&"-"&day(rs("日期"))%>
第<%response.write currentpage%>/<%response.write totalpage%>页 <%if currentpage>1 then%>首页上一页 <%end if if currentpage 下一页尾页<%end if%>