<%
dim cls
if session("admin")="" then
Response.Redirect("index.asp?err=4")
else
if session("flag")<>"0" then
cls = Instr(session("flag"), "banner")
if cls <= 0 then
%>
<%
end if
end if
end if
%>
<%
lx=request.QueryString("lx") '分类类型
id=request.QueryString("id")
function getMenu()
set rsMenu=server.CreateObject("adodb.recordset")
sqlMenu="select * from imgtype where type='"&lx&"'"
rsMenu.open sqlMenu,conn,1,1
do while not rsMenu.eof
%>
<%
rsMenu.movenext
loop
rsMenu.close
end function
function getMenuName(menuid)
set rsMenuName=server.CreateObject("adodb.recordset")
sqlMenuName="select name from imgtype where id="&menuid
rsMenuName.open sqlMenuName,conn,1,1
if not rsMenuName.eof or rsMenuName.bof then
getMenuName=rsmenuName(0)
end if
rsMenuName.close
end function
if request.QueryString("type")="update" then
set rsUpdate=server.CreateObject("adodb.recordset")
sqlUpdate="select * from img where id="&request.QueryString("id")
rsUpdate.open sqlUpdate,conn,1,3
'rsUpdate.update
rsUpdate("title")=trim(request.Form("title"))
rsUpdate("menu")=trim(request.Form("menu"))
rsUpdate("imgFull")=trim(request.Form("imgFull"))
rsUpdate("content")=trim(request.Form("content"))
rsUpdate("xuhao")=trim(request.Form("xuhao"))
rsUpdate("links")=trim(request.Form("links"))
rsUpdate("addtime")=date()
rsUpdate.update
rsUpdate.close
response.Redirect("?type=ok&id="&request.QueryString("id")&"&lx="&lx)
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from img where id="&id
rs.open sql,conn,1,1
%>
<%=rs("title")%> 图片添加