change_admin.asp

首页由top.asp index_asp.asp link.asp end.asp构成

<%
if session("flag")=1 then
%>
<!--#include file="pic_conn.asp"-->
<%
dim action,picid
action=request.QueryString("action")
tpid=request.QueryString("tpid")
select case action
case "edit"
set Rs=GrateRs("select * from type where typeid="&tpid,3)
change=request("change")
delet=request("delet")
if change<>"" then
Rs("type")=request.form("typename")
Rs.update
response.write "<script language='JavaScript'>{window.location='change.asp';}</script>"
end if

if delet<>"" then
Rs.delete
Rs.update
response.write "<script language='JavaScript'>{window.location='change.asp';}</script>"
end if

case "addnew"
set Rs=GrateRs("select * from type",3)
RS.addnew
Rs("type")=request.form("type")
RS.update
response.write "<script language='JavaScript'>{window.location='change.asp';}</script>"

end select
%>
<%
else
%>
<script language="javascript">alert("你没有权限进行该项管理！")</script>
<%
response.write "<script language='JavaScript'>{window.location='right.htm';}</script>"
end if
%>