<%=TU(XNA_Title)%>
<%Public intPageCount:Const TFolder="WAP":Application.Lock:Application(SessionStr&"TFolder")=TFolder:Application.Unlock%> <% If isempty(Request.QueryString("List")) and isempty(Request.QueryString("page")) and isempty(Request.QueryString("cate")) and isempty(Request.QueryString("site")) then Call main Else Call Articlemain End If %> <%sub main%> <%=ExportStatistics()%>
<%=ExportCatelog()%>
<%End Sub%> <%Sub Articlemain%> <%=Export(Request.QueryString("page"),Request.QueryString("cate"),Request.QueryString("site"),Request.QueryString("date"),Request.QueryString("tags"),2)%> <%=ExportBar(Request.QueryString("page"),intPageCount,Request.QueryString("cate"),Request.QueryString("site"),Request.QueryString("date"),Request.QueryString("tags"))%> <%end Sub%>
Power by SXNA 1.5