產品類別
<% sql3 = " Select * from T_type " set rs=server.createobject("adodb.recordset") rs.open sql3,oConn,3,2,1 ' Create_Ado rs, sql3,3,1,1 %>
關鍵字:
" size=20 maxlength=20>
編輯
產品類別名稱
類別檔案
狀況
刪除
<% sql = " Select * from T_type where" if trim(request("keyword")) <> "" then sql = sql & " type_name LIKE '%" & trim(request("keyword")) & "%'" end if sql = sql & " valid = 'Y' order by seq" 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
">編輯
<%=rs("type_name") %>
<%=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%>
<<
<%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%>
>>
<%end if%>
<%end sub%>