skin_del.asp

来自「欢迎使用《雨点下载系统 2.0》！ 本系统仅提供给个人网站免费使用」· ASP 代码 · 共 29 行

<!--#include file="conn.asp"-->
<!--#include file="chkadmin.asp"-->
<!--#include file="inc/char.asp"-->
<%dim skin,errmsg,founderr
skin=Trim(Request.QueryString("skin"))
founderr=false

if chkadmin=false or power(5)="0" then
	founderr=true
	errmsg=errmsg+"<li>您没有删除配色方案的权限</li>"
end if

if skin="默认方案" then
	founderr=true
	errmsg=errmsg+"<li>默认方案不能删除</li>"
end if

if founderr=false then
	conn.execute("delete from Skin where SkinName='"&skin&"'")
	dim gourl,msg
	gourl="skin_list.asp"
	msg="此配色方案已删除！"
	call ok()
else
	call error()
end if

conn.close
set conn=nothing%>