產品內容
<% sql = " Select * from T_type " set rs=server.createobject("adodb.recordset") rs.open sql,oConn,3,2,1 ' Create_Ado rs, sql,3,1,1 %>
<% sqlt = "Select * from T_type where valid = 'Y'" sqlt = sqlt & " order by Seq" set rst=server.createobject("adodb.recordset") rst.open sqlt,oConn,3,1,1 do while not rst.eof %>
" <%if cstr(request ("type_id")) = cstr(rst("type_id")) then response.write "selected" end if%>> <%=rst("type_name")%>
<% rst.movenext loop %>
關鍵字:
" size=20 maxlength=20>
編輯
產品類別
產品名稱
產品檔案
狀況
刪除
<% sql = " Select a.*, b.type_id, b.type_name from T_product a, T_type b where" if trim(request("keyword")) <> "" then sql = sql & " a.detail_name LIKE '%" & trim(request("keyword")) & "%' and" end if if trim(request("type_id")) <> "" then sql = sql & " a.type_id =" & trim(request("type_id")) & " and" end if sql = sql & " a.type_id = b.type_id and" sql = sql & " a.valid = 'Y' order by a.seq" 'response.Write(sql) 'response.End() set rs=server.createobject("adodb.recordset") rs.open sql,oConn,3,1,1 'Create_Ado rs,sql,3,1,1 num = 0 do while not rs.EOF rs.movenext num = num + 1 loop totalPut=num if num > 0 then rs.movefirst end if if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if if currentPage <> 1 then if (currentPage-1)*MaxPage
&type_id=<%=rs("a.type_id")%>">編輯
<%=rs("type_name") %>
<%=rs("product_title") %>
<%=rs("org_file_name") %>
<%if rs("valid") = "Y" then%> 有效 <%else%> 無效 <%end if%>
">刪除
<% rs.movenext num = num + 1 loop else %>
沒有資料
<%end if%>
<% showpages %>
<% sub showpages() dim n if (totalPut mod MaxPage)=0 then n= totalPut \ MaxPage else n= totalPut \ MaxPage + 1 end if if n=1 then exit sub %>
<%if n > 1 then%>
&page=1"><<
<%end if%>
<% dim k for k=1 to n if k=currentPage then response.write "
" & Cstr(k)+"
" else Response.Write "
"+Cstr(k)+"
" end if next%>
<%if n > 1 then%>
&page=<%=n%>">>>
<%end if%>
<%end sub%>