拒马河的传说故事

<% db=server.MapPath ("/sddyw/sddzgy#fjq#2010.asa") ConnStr ="driver={Microsoft Access Driver (*.mdb)};dbq=" & db Set Conn=Server.CreateObject("ADODb.Connection") Conn.Open ConnStr If Err Then Err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。" Response.End End If strMaxLen = 30 sql="select * from PE_Article where ChannelID=1010 and title like '%拒马河%' order by Updatetime desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize=50 if request("page")<>"" then epage=cint(request("page")) if epage<1 then epage=1 if epage>rs.pagecount then epage=rs.pagecount else epage=1 end if rs.AbsolutePage=epage int myi=1 while not rs.eof and myi"&title&"" myi=myi+1 rs.movenext wend %>

<% if epage>1 then Response.write "首页 " if epage>1 then Response.write "前一页 " %> <% if rs.pagecount>epage then Response.write "后一页 " %> <% if rs.pagecount>epage then Response.write "末页 " %> 现在是第<%=epage%>页一共有<%=rs.pagecount%>页