<%strHead=strHead&"" strHead=strHead&"" strHead=strHead&"" strHead=strHead&"" strHead=strHead&"" %> <% sql="select * from news" set rs=server.createObject("ADODB.Recordset") rs.open sql,conn,1,1 %><% rs.pagesize=2 totalpage=rs.pagecount rs.close set rs=nothing for j=1 to totalpage sql="select * from news" set rs=server.createObject("ADODB.Recordset") rs.open sql,conn,1,1 whichpage=j rs.pagesize=2 totalpage=rs.pagecount rs.absolutepage=whichpage howmanyrecs=0 %><% str0="" str0=str0&"

" str0=str0&"" %><% do while not rs.eof and howmanyrecs<% str0=str0&"" str0=str0&"" str0=str0&"" str0=str0&"" str0=str0&"" str0=str0&"" %><% rs.movenext howmanyrecs=howmanyrecs+1 loop rs.close set rs=nothing %><%str0=str0&"

"&rs(0)&"

"&rs(1)&"

"&rs(2)&"

"&rs(3)&"

" %> <% '分页部分 ref="" ref=ref&"
" ref=ref&" " ref=ref&"" ref=ref&"" ref=ref&"

" ref=ref&"Pages： " & j & " / " & totalpage &"" ref=ref&"

" ref=ref&"" & "9" & " " if whichpage=1 then ref=ref&"7" else ref=ref&"" & "7" & " " end if for counter=1 to totalpage ref=ref&"[" & counter & "]" ref=ref& " " if counter mod 10 = 0 then ref=ref& " " end if next if (whichpage>totalpage or whichpage=totalpage) then ref=ref&"8" else ref=ref&"" & "8" & " " end if ref=ref&"" & ":" & " " Dim fso,f Dim strTitle,strContent,strOut '创建文件系统对象 Set fso=Server.CreateObject("Scripting.FileSystemObject") Set f=fso.CreateTextFile(Server.MapPath("list_"&j&".html"),true) '写入网页内容 f.WriteLine strHead&str0&ref f.close response.write "正在生成第"&j&"个页面! " %><% next%>