用ASP 實 現 分 頁 顯 示

一. 表 結 構 定 義:
　
---- 表 名:Product
---- 表 名:Product
---- 字 段 名: 產 品 編號:Product_Id
---- 產 品 名 稱:Product_Name
二. 功 能 描 述:
　
---- 用 戶 輸 入 產 品 號, 不 必 輸 入全 名. 采 用 模 糊 查 詢 的 方 法. 找 到 滿 足 條 件 的 紀 錄.
---- 用 戶 輸 入 產 品 號, 不 必 輸 入全 名. 采 用 模 糊 查 詢 的 方 法. 找 到 滿 足 條 件 的 紀 錄.
三. 程 序 腳 本
　
---- 整 個 程 序 有 三 個Asp 文 件( 省略Html 語 言 部 分)
---- 整 個 程 序 有 三 個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% >
------------------- 北極星書庫||http://www.ebook007.com
*****以下顯示查詢資訊:顯示樣式:
*****共有XX頁XXX條紀錄 頁號:1 .2 .3. 4. 5.........
共有< %=Rlt.Pagecount% >頁
< %=Rlt.Recordcount% >條紀錄
頁號:< % For I=1 To Rlt.Pagecount% >
< %cid=rlt("product_id")
< AHref="Prodpage.Asp?Pcnt=< %=I% >&id=< %=cid% > >
< %=I% >.< /A >
< %Next % >