<% '資料庫連線 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") strSQL="SELECT PB_SERIAL, PB_NAME, PB_MAKE, PB_MILL, PB_TYPE, PB_SNO, PB_LOADING, PB_YM, PB_ENO, PB_OUT, PB_MEMO, PB_IMAGE_1, " strSQL=strSQL & " PB_IMAGE_2, PB_IMAGE_3, PB_IMAGE_4, PB_IMAGE_5, PB_IMAGE_6, " strSQL=strSQL & " PB_IMAGE_7, PB_IMAGE_8, PB_IMAGE_9, PB_IMAGE_10, PB_IMAGE_11, PB_IMAGE_12 " strSQL=strSQL & " FROM Product_Base " strSQL=strSQL & " WHERE PB_SERIAL=" & Request("Serial") rs.Open strSQL,dbConn,3 %> 大合基礎工程機構
　
　　
<% call product %>

 

<% sub product %>

[回上一頁]

機具名稱 <%=rs("PB_NAME")%> 製造地 <%=rs("PB_MAKE")%>
廠牌 <%=rs("PB_MILL")%> 型式 <%=rs("PB_TYPE")%>
序號 <%=rs("PB_SNO")%> 吊昇荷重 <%=rs("PB_LOADING")%>
出廠年份 <%=rs("PB_YM")%> 引擎序號 <%=rs("PB_ENO")%>
輸出功率 <%=rs("PB_OUT")%> 備註 <%=rs("PB_MEMO")%>
<% i = 0 IF (rs("PB_IMAGE_1")<>"") AND (NOT ISNULL(rs("PB_IMAGE_1"))) THEN Response.Write("") i= i + 1 END IF IF (rs("PB_IMAGE_2")<>"") AND (NOT ISNULL(rs("PB_IMAGE_2"))) THEN Response.Write("") i= i + 1 END IF IF (rs("PB_IMAGE_3")<>"") AND (NOT ISNULL(rs("PB_IMAGE_3"))) THEN IF (i = 2) THEN Response.Write("
") i = 0 END IF Response.Write("") i= i + 1 END IF IF (rs("PB_IMAGE_4")<>"") AND (NOT ISNULL(rs("PB_IMAGE_4"))) THEN IF (i = 2) THEN Response.Write("
") i = 0 END IF Response.Write("") i= i + 1 END IF IF (rs("PB_IMAGE_5")<>"") AND (NOT ISNULL(rs("PB_IMAGE_5"))) THEN IF (i = 2) THEN Response.Write("
") i = 0 END IF Response.Write("") i= i + 1 END IF IF (rs("PB_IMAGE_6")<>"") AND (NOT ISNULL(rs("PB_IMAGE_6"))) THEN IF (i = 2) THEN Response.Write("
") i = 0 END IF Response.Write("") i= i + 1 END IF IF (rs("PB_IMAGE_7")<>"") AND (NOT ISNULL(rs("PB_IMAGE_7"))) THEN IF (i = 2) THEN Response.Write("
") i = 0 END IF Response.Write("") i= i + 1 END IF IF (rs("PB_IMAGE_8")<>"") AND (NOT ISNULL(rs("PB_IMAGE_8"))) THEN IF (i = 2) THEN Response.Write("
") i = 0 END IF Response.Write("") i= i + 1 END IF IF (rs("PB_IMAGE_9")<>"") AND (NOT ISNULL(rs("PB_IMAGE_9"))) THEN IF (i = 2) THEN Response.Write("
") i = 0 END IF Response.Write("") i= i + 1 END IF IF (rs("PB_IMAGE_10")<>"") AND (NOT ISNULL(rs("PB_IMAGE_10"))) THEN IF (i = 2) THEN Response.Write("
") i = 0 END IF Response.Write("") i= i + 1 END IF IF (rs("PB_IMAGE_11")<>"") AND (NOT ISNULL(rs("PB_IMAGE_11"))) THEN IF (i = 2) THEN Response.Write("
") i = 0 END IF Response.Write("") i= i + 1 END IF IF (rs("PB_IMAGE_12")<>"") AND (NOT ISNULL(rs("PB_IMAGE_12"))) THEN IF (i = 2) THEN Response.Write("
") i = 0 END IF Response.Write("") i= i + 1 END IF %>
<% end sub %>