<div id="jobquery" style="height:980px">

            <ul>

                <li class="cap">

                

                <div class="bt"><strong>标题</strong></div>

                <div class="bk"><strong>时间</strong></div>

                

                </li>

            </ul>

            <ul class="queryul" > 

             <%

               dim cnstr,epage,i,count,key

	       key=request.form("key")

               cnstr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("./lianjiang.mdb") 

               dim rs

               set cn = server.CreateObject("adodb.connection")

               cn.Open cnstr

               sql="select * from new where New_Name like '%"&key&"%' order by New_ID desc"

               set rs = server.createobject("adodb.recordset")

               rs.open sql,cn,3

               If (rs.bof And rs.EOF) Then

            	response.write "没有所要查询的信息"

            else

               rs.pagesize=25

               '设置每页记录数

               if request("page")<>"" then

                 epage=cint(request("page"))

               '取当前的页数

               if epage<1 then epage=1

               '若当前页数小于1则置为1

               if epage>rs.pagecount then epage=rs.pagecount

     &n