<%if session("username")="" then%> <%end if%> <% if request("action")="del_one" then openconn set rs=server.CreateObject("adodb.recordset") sql="delete from tblanh Where idanh='"&replace(Request.QueryString("nid"),"'","''")&"'" Conn.execute (sql) Response.Redirect("?saoviet=11&Quan-ly-anh.html") end if%> <% if request("action")="submit" then title=replace(request("title"),"'","''") pathanh=replace(request("pathanh"),"'","''") iddichvu=replace(request("iddichvu"),"'","''") top1=replace(request("top1"),"'","''") openconn set rs=server.CreateObject("adodb.recordset") sql="insert into tblanh(title,iddichvu,image,top1) values(N'"&title&"','"&iddichvu&"','"&pathanh&"','"&top1&"')" conn.execute(sql) response.Redirect("?saoviet=11&Quan-ly-anh.html") %> <%end if%>

QUẢN LÝ ẢNH

Thuộc dự án <% i=1 openconn set rs1= server.CreateObject("adodb.recordset") rs1.open "select * from tbldichvu order by thutu ASC", conn,3,1 if not rs1.eof then do while not rs1.eof %> style="background-color:#E3E2DE; color:#000000;"<%else%><%end if%> value='<%=rs1("iddichvu")%>'>  <%=rs1("name")%> <% rs1.movenext i=i+1 loop end if rs1.close %> Tiêu đề Hình ảnh   Tải ảnh.. Dự án nổi bật trang Tin tức

<% openconn set rs=server.CreateObject("adodb.recordset") rs.open"SELECT a.*,b.name AS dichvu FROM tblanh a INNER JOIN tbldichvu b ON a.iddichvu = b.iddichvu order by idanh desc",conn,3,1 If Request.QueryString("page") = "" Then intCurrentPage = 1 Else intCurrentPage = CInt(Request.QueryString("page")) End If RS.PageSize = 10 If rs.PageCount > 0 then rs.AbsolutePage = intCurrentPage Else intCurrentPage = 0 End If j=1 i=1 do while not rs.eof %> <% if j=RS.PageSize then exit do end if j=j+1 i = i + 1 RS.MoveNext loop %>  HÌNH ẢNH DỊCH VỤ QUẢN LÝ " border="0" width="200"> <%= rs("dichvu") %> "> ');" href="#"> <% If rs.PageCount > 1 then 'Print Previous Page if required If intCurrentPage <> 1 then Response.Write "Trang trước" Else Response.Write "Trang trước" End If 'Print direct access page numbers. For intCount = 1 to rs.PageCount If intCount = 1 then Response.Write " | " End If If intCount = intCurrentPage then Response.Write ""&intCount & " | " Else Response.Write "" & intCount & " | " End If Next 'Print Next Page if required If intCurrentPage <> rs.PageCount then Response.Write "Trang sau" Else Response.Write "Trang sau" End If End If Response.Write " Trang " & intCurrentPage & " / " & rs.PageCount %>