<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% If request.Form("submit") = "删除选中" Then If Request("id") = "" Then Call infoback("请选中要删除的相册！") End If sql = "delete from mj_photo where id in ("&Request("id")&")" conn.Execute ( sql ) Call infohref("成功删除选中的相册！", "mj_photo.asp") Call close_conn End If %>

管理图片

当前位置：管理图片

在这里，您可以管理您的图片！

管理图片

<% Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_photo order by mj_photo_order desc" rs.Open sql, conn, 1, 1 If rs.EOF Then response.Write "暂无相册！" Else rs.PageSize = 20 allpage = rs.RecordCount iPageSize = rs.PageSize maxpage = rs.PageCount page = request("page") If Not IsNumeric(page) Or page = "" Then page = 1 Else page = CInt(page) End If If page<1 Then page = 1 ElseIf page>maxpage Then page = maxpage End If rs.AbsolutePage = Page If page = maxpage Then x = allpage - (maxpage -1) * iPageSize Else x = iPageSize End If For i = 1 To x %> <% rs.movenext Next Call close_rs Call close_conn End If %>

选择	排序	图片名称	所属相册	修改操作
" />	<%=rs("mj_photo_order")%>	<%=rs("mj_photo_name")%>	<% set rsc = server.CreateObject("adodb.recordset") sql = "select * from mj_photo_category where id="&rs("mj_photo_category")&"" rsc.open sql,conn,1,1 if rsc.eof then response.Write ("分类不存") else response.Write rsc("mj_photo_category_name") end if rsc.close set rsc = nothing %>	[">修改图片]

<%call pcfinal_page%>