<% dim ChannelID,wzpage,wzrep ChannelID = PE_CLng(Request.QueryString("ChannelID")) wzpage = PE_CLng(Request.QueryString("page")) dim rssql '****************************************** '取文章总数及每页重复显示条数,准备分页 'wzcount 文章总数 'wzrep 重复显示条数 'wzpage 分页参数id 'wzpagecount 总页数 '****************************************** wzrep = 200 CALL OpenConn() wzcount = conn.execute ("select count(ArticleID) from [PE_Article] where ChannelID="& ChannelID &" and Deleted=0 and Status=3 ",0,1)(0) 'rs.close wzpagecount = abs(int(-abs(wzcount/wzrep))) CALL CloseConn() %> 文章网站地图<%= ChannelID %> <% For pagenum = 1 To wzpagecount Response.Write (" ") Response.Write (""& pagenum &"") Response.Write (" ") Response.Write (vbcrlf) Next %> <% '释放资源 Function PE_CLng(ByVal str1) If IsNumeric(str1) Then PE_CLng = Fix(CDbl(str1)) Else PE_CLng = 1 End If End Function %>