<%PageName="Dong"%> <% dim Id,HeaName sql="select * from Xy_Gt where GtFLag=1 order by GtDate Desc" conn.CursorLocation = 3 set rsGt=conn.execute(sql) totalPut=rsGt.recordcount if rsGt.recordcount=0 then errors=errors+"

暂无信息!" founderr=true end if if founderr=true then call error() else Page_BiBn HeaName=BiName Page_Hea %>

本站动态

<% MaxPerPage=20 dim totalPut,CurrentPage,TotalPages,j,ActionPage ActionPage="Dong.asp?action=" if Not isempty(request("page")) then currentPage=Cint(request("page")) else currentPage=1 end if if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,ActionPage else if (currentPage-1)*MaxPerPage0 then ClassColor="table3" else ClassColor="table10" end if RsFDate="" & year(rsGt("GtDate")) & "-" & month(rsGt("GtDate")) & "-" & day(rsGt("GtDate")) & " " & Hour(rsGt("GtDate")) & ":" & Minute(rsGt("GtDate")) & "" %> <% i=i+1 if i>=MaxPerPage then Exit Do rsGt.movenext loop rsGt.close response.write "

主题	发布时间
#"><%=rsGt("GtName")%>	<%=RsFDate%>
" end Sub Function showpage(totalnumber,maxperpage,filename) Dim n,strNA If totalnumber Mod maxperpage=0 Then n= totalnumber \ maxperpage Else n= totalnumber \ maxperpage+1 end If strNA = strNA & " " strNA = strNA & " " strNA = strNA & " 共 " & n & " 页 第 " & CurrentPage & " 页 " strNA = strNA & " 共有" & totalnumber & "条信息" strNA = strNA & " " If CurrentPage<2 Then strNA = strNA & " [最前页] [上一页] " Else strNA = strNA & " [最前页] " strNA = strNA & " [上一页] " end If If n-currentpage<1 Then strNA = strNA & " [下一页] [最未页]" Else strNA = strNA & " " strNA = strNA & " [下一页] [最未页]" end If strNA = strNA & " 转： 页" strNA = strNA & "    " strNA = strNA & " " response.write strNA end Function response.write "

" Page_Bow Page_Config end if Page_Sys end if %>