<%'
response.Expires=0
on error resume next
langmu=request("langmu")
shu=int(request("shu"))
tu=request("tu")
zhi=request("zhi")
date1=request("date")
hits=request("hits")
langmu=request("langmu")
query=request.servervariables("query_string")
'**********************************************
count=shu
d=request("id")
if d="" then
d=0
page=1
n=1
else
page=d
n=count*(int(d)-1)
end if
'***********************************************
addr0=request.servervariables("server_name")
addr1=request.servervariables("url")
addr1=replace(addr1,"moredate.asp","list.asp")
addr="http://"&addr0&addr1%>
gg="

"


<%
set rs=server.createobject("adodb.recordset")
if langmu="all" then
sql="select * from wenzhang order by ding and date desc"
else
sql="select * from wenzhang where langmuid="&langmu&" order by ding and date desc"
end if
rs.open sql,conn,3,1
yushu=rs.recordcount mod count
if yushu=0 then
totalpage=rs.recordcount/count
else
totalpage=int(rs.recordcount/count)+1
end if
if int(page)>int(totalpage) then
page=totalpage
end if
k=0
if d<>0 and int(d)<=int(totalpage) then
for i=1 to n
rs.movenext
next
end if
do while not rs.eof
title=rs("title")
title=formation(title)
k=k+1%>
<%if date1="no" and hits="no" then%>
gg=gg+"<%if tu="yes" then%><%end if%>  <%=rs("tuwen")%><%=title%>
"
<%elseif date1="yes" and hits="yes" then%>
gg=gg+"<%if tu="yes" then%><%end if%>  <%=rs("tuwen")%><%=title%>  (<%=rs("date")%> , <%=rs("hits")%>)
"
<%else%>
gg=gg+"<%if tu="yes" then%><%end if%>  <%=rs("tuwen")%><%=title%>  (<%if date1="yes" then%><%=rs("date")%><%end if%><%if hits="yes" then%><%=rs("hits")%><%end if%>)
"
<%end if
if k=count then
exit do
end if
rs.movenext
loop
%>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%query=replace(query,"id="&page,"id=")
query1=replace(query,"id="&page," ")
Response.Write Err.description%>
gg=gg+"

"
<% if page>1 then %>
gg=gg+"<<上一页  "
<%end if%>
<% if int(page) < int(totalpage) then %>
gg=gg+"下一页>>"
<% end if %>
gg=gg+"【共<%=totalpage%>页】【第<%=page%>页】跳转到页"
document.write (gg)