admin_cat_hp.asp

来自「本程序采用花香内核」· ASP 代码 · 共 38 行

<!--#include file="mdb.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="inc/config.asp"-->
<%
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
  response.end
else
cat1=trim(request("cat1"))
cat2=trim(request("cat2"))
if request.querystring("action")="news" then'============移动新闻
conn.Execute = "update news set cat_id="&cat2&" where cat_id="&cat1&""
conn.close
set conn=nothing
Response.Redirect "admin_news.asp"
elseif request.querystring("action")="art" then'============移动文章
conn.Execute = "update art set cat_id="&cat2&" where cat_id="&cat1&""
conn.close
set conn=nothing
Response.Redirect "admin_art.asp"
elseif request.querystring("action")="dj" then'============移动歌曲
conn.Execute = "update dj set djcat_id="&cat2&" where djcat_id="&cat1&""
conn.close
set conn=nothing
Response.Redirect "admin_dj.asp?action=djcat"
elseif request.querystring("action")="vid" then'============移动影片
conn.Execute = "update vid set vidcat_id="&cat2&" where vidcat_id="&cat1&""
conn.close
set conn=nothing
Response.Redirect "admin_video.asp?action=vidcat"
elseif request.querystring("action")="pic" then'============移动图片
conn.Execute = "update pic set piccat_id="&cat2&" where piccat_id="&cat1&""
conn.close
set conn=nothing
Response.Redirect "admin_pic.asp?action=piccat"
end if
end if
%>