<!--#include file=conn.asp-->
<!-- #include file="inc/const.asp" -->
<!--#include file=bank_data.asp-->
<%
'=========================================================
' File: bank_open.asp
' Version:2.1 for Dvbbs7.0
' date: 2004-1-7
' script modified by winriver from yaoyue Version
'=========================================================
' copyright (c) 2004 黄河论坛 all rights reserved.
' web: http://www.paperbridge.net http://www.winriver.org
' email: huanghetv@163.com winriver2002@yahoo.com
'=========================================================
Dvbbs.LoadTemplates("")
If Not IsObject(Conn) Then ConnectionDatabase
dim sql,rs,founderr,i,errmsg
founderr=false

dim admin_flag
admin_flag=",15,"
	if not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 then
		Errmsg=ErrMsg + "<BR><li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。"
response.end
else
if request("action")="close" then
cjconn.execute ("update bankconfig set active=0")
%>
<script language="JavaScript">
window.alert("您已成功关闭钱庄！");
</script>
<%
else
cjconn.execute ("update bankconfig set active=1")
%>
<script language="JavaScript">
window.alert("您已成功开启钱庄！");
</script>
<%
end if
end if
%>