<%
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") '分类类型
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
if request.QueryString("type")="add" then
sqlAdd="insert into [img] ([title],[menu],[imgFull],[content],[links],[xuhao],[type]) values ('"&trim(request.Form("title"))&"',"&trim(request.Form("menu"))&",'"&trim(request.Form("imgFull"))&"','"&trim(request.Form("content"))&"','"&trim(request.Form("links"))&"',"&trim(request.Form("xuhao"))&",'"&trim(request.Form("lx"))&"')"
conn.execute(sqlAdd)
response.Redirect("?type=ok&lx="&lx)
end if
%>
图片添加