用ASP实现分页显示

人曾用Idc/Htx 开发过Web 应用程序，Idc/Htx 功能有限，其中最大的缺点是对满足条件的纪录只能一次性显示出来，假设有一万条纪录，像Idc/Htx 那样一次全部显示出来。简直是不可忍受的。Asp 功能强大，对此问题应付自如。

一. 表 结 构 定 义:

　　 表 名:Product

　　 字 段 名: 产 品 编 号:Product_Id

　　产 品 名 称:Product_Name

二. 功 能 描 述:

　　 用户输入产品号，不必输入全名，采用模糊查询的方法，找到满足条件的纪录。

三. 程 序 脚 本

　　 整个程序有三个 Asp 文件(省略Html语言部分)

1. 用户查询数据输入表单:Input.Asp

-----用户输入产品编号

< Form Method="Post" Action="/Cgi/Prod.Asp" >

< Input Type="Text" Name="Id" Size="20" >

< Input Type="Submit"

Value="Submit" Name="B1" >

< /Form >

  

2.分页处理程序之一:Prod.Asp

----用户提交表单Input.Asp后触发

< %Cid=Trim(Request.Form("Id"))% >

< %Set Rlt = Createobject("Adodb.Recordset")% >

******创建Recordset对象

< %Sql="Select * From Product Where Product_Id Like '

"& Cid &"'+'%'" >

      

< %Rlt.Open Sql,"Uid=Ncgi;Pwd=Sql;Dsn=Tcgi",1% >

******执行Sql语句

< % If Rlt.Pagecount<
1 Then % >

< H2 >没有纪录< /H2 >

< A Href="Javascript:History.Back()" >

    返回< /A >

< %Else% >