大合基礎工程機構

<% '================================================================================== '程式名稱:index.asp ' '作　　者:王貴雄 ' '完成日期:2003/06/03 ' '備　　註:顯示產品明細 ' '================================================================================== %> <% '資料庫連線 SET dbConn=Server.CreateObject("ADODB.Connection") DB_Path=Server.MapPath("/DataBase/Data.mdb") dbConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DB_Path SET rs=Server.CreateObject("ADODB.RecordSet") %> 大合基礎工程機構

<% Call List_Product(Request("Page"))%>


機具名稱	製造地	廠牌	型式

<% '=================================================================================== Sub List_Product(Page) strSQL="SELECT PB_SERIAL, PB_NAME, PB_MAKE, PB_MILL, PB_TYPE " strSQL=strSQL & " FROM Product_Base " strSQL=strSQL & " ORDER BY PB_SERIAL ASC " IF Page="" THEN Page=1 Page_Size=15 End_Count=Page*Page_Size rs.Open strSQL,dbConn,3 PageCount=rs.RecordCount/Page_Size IF (rs.RecordCount MOD Page_Size)<>0 THEN PageCount=PageCount+1 idx=1 IF (Page>1) THEN idx=(Page-1)*Page_Size+1 For i=1 To End_Count-Page_Size Step 1 rs.MoveNext Next END IF List_Data="" Do While Not rs.Eof IF idx>End_Count THEN Exit Do List_Data=List_Data & "" & rs("PB_NAME") & "" List_Data=List_Data & "" & rs("PB_MAKE") & "" List_Data=List_Data & "" & rs("PB_MILL") & "" List_Data=List_Data & "" & rs("PB_TYPE") & "" idx=idx+1 rs.MoveNext Loop Response.Write(List_Data) rs.close %>

<% End Sub %>