<%@ Language=VBScript %>
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf Request.QueryString ("op")<>"del" and Request.QueryString ("op")<>"get" and Request.QueryString ("op")<>"check"  Then
	ef=True
	ec="不正确的操作！"
ElseIf not IsNumeric(Request("id"))  Then
	ef=True
	ec="id应该是数字！"
end if

if not ef then
if Request.QueryString ("op")="del" then
If session("canmoneyI")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
elseif Request.QueryString ("op")="get" then
If session("canmoneyJ")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
elseif Request.QueryString ("op")="check" then
If session("canmoneyH")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
end if
end if 

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_moneylog where id='"&Request("id")&"'"
		ds.Open Sql,conn,1,3
if ds.Eof then
		ef=True
		ec="不存在的财务记录！"
end if
end if

if not ef then
if Request.QueryString ("op")="del" then
ds("isdel")="y"
end if
if Request.QueryString ("op")="check" then
if ds("havecheck")="是" then
ds("havecheck")="否"
else
ds("havecheck")="是"
end if
end if
if Request.QueryString ("op")="get" then
if ds("haveget")="是" then
ds("haveget")="否"
else
ds("haveget")="是"
end if
end if
ds.Update
ds.Close
set ds=nothing
conn.Close 
set conn=nothing
'Response.Redirect Request.ServerVariables("HTTP_REFERER")&"?"&request.QueryString("qs")
Response.Redirect Request.ServerVariables("HTTP_REFERER")
end if

if ef then
Response.Redirect "e.asp?e="&ec
end if%>