<% '資料庫連線 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") SET rs1=Server.CreateObject("ADODB.RecordSet") %>

<% Call List_Feat(Request("Page"),Request("PC_Serial"))%>

 

<% '=================================================================================== Sub List_Feat(Page,PC_Serial) IF PC_Serial="" THEN strSQL="SELECT Feat_Base.FT_PICTURE,Feat_Base.FT_NO,Feat_Base.FT_ID, Feat_Base.FT_WORKS, Feat_Base.FT_PLACE, Feat_Base.FT_NUMBER, Feat_Base.FT_MEMO, Feat_Class.PC_NAME " strSQL=strSQL & " FROM Feat_Base INNER JOIN Feat_Class " strSQL=strSQL & " ON Feat_Base.PC_SERIAL = Feat_Class.PC_SERIAL ORDER BY Feat_Base.PC_SERIAL asc ,Feat_Base.FT_ID asc" PC_Serial=1 elseif PC_Serial=0 then strSQL="SELECT Feat_Base.FT_PICTURE,Feat_Base.FT_NO,Feat_Base.FT_ID, Feat_Base.FT_WORKS, Feat_Base.FT_PLACE, Feat_Base.FT_NUMBER, Feat_Base.FT_MEMO, Feat_Class.PC_NAME " strSQL=strSQL & " FROM Feat_Base INNER JOIN Feat_Class " strSQL=strSQL & " ON Feat_Base.PC_SERIAL = Feat_Class.PC_SERIAL ORDER BY Feat_Base.PC_SERIAL asc ,Feat_Base.FT_ID asc" PC_Serial=1 ELSE strSQL="SELECT Feat_Base.FT_PICTURE,Feat_Base.FT_NO,Feat_Base.FT_ID, Feat_Base.FT_WORKS, Feat_Base.FT_PLACE, Feat_Base.FT_NUMBER, Feat_Base.FT_MEMO, Feat_Class.PC_NAME " strSQL=strSQL & " FROM Feat_Base INNER JOIN Feat_Class " strSQL=strSQL & " ON Feat_Base.PC_SERIAL = Feat_Class.PC_SERIAL " strSQL=strSQL & " WHERE Feat_Base.PC_SERIAL=" & Request("Pc_Serial") & " ORDER BY Feat_Base.FT_ID" END IF IF Page="" THEN Page=1 Page_Size=10 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="" noi=1 Do While Not rs.Eof IF idx>End_Count THEN Exit Do List_Data=List_Data &"" if rs("FT_PICTURE")<>empty then pic="" else pic=" " end if List_Data=List_Data & "" List_Data=List_Data & "" List_Data=List_Data & "" List_Data=List_Data & "" List_Data=List_Data & "" idx=idx+1 noi=noi+1 rs.MoveNext Loop Response.Write(List_Data) rs.close %>

<%=page%>/<%=rs.pagecount%>頁 <% Call List_Product_Class(Request("PC_Serial"))%> <% opt_str="" FOR i=1 To PageCount Step 1 opt_str=opt_str & "第 " & i & " 頁" Next Response.Write(opt_str) %>
編號	圖檔	工程名稱	工作地點	規格及數量	備註
" & rs("FT_ID") & "	" & pic & "	" & rs("FT_WORKS") & "	" & rs("FT_PLACE") & "	" & rs("FT_NUMBER") & "	" & rs("FT_MEMO") & "

<% End Sub '=================================================================================== Sub List_Product_Class(PC_Serial) '列出產品類別 strSQL="SELECT PC_SERIAL, PC_NAME " strSQL=strSQL & " FROM Feat_Class " strSQL=strSQL & " ORDER BY PC_SERIAL ASC " IF PC_Serial="" THEN PC_Serial=0 rs1.Open strSQL,dbConn,3 List_Data="" response.write "全部" Do While Not rs1.Eof List_Data=List_Data & " " List_Data=List_Data & rs1("PC_NAME") & "" rs1.MoveNext Loop rs1.close Response.Write(List_Data) End Sub %>