<%@ Language=VBScript %>
<%
If session("agentusername")="" Then
ef=True
ec="授权非法，有可能是超时造成的。"
ElseIf Request("username")="" or RegExpTest("[^A-Za-z0-9]",Request("username")) Then
ef=True
ec="用户名没填或非法字符！"
end if
if not ef Then
isagn=false
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open Application("FreeHostDBlink")
if Request("usertype")="user" then
Set ds = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_USER where username='"&Request("username")&"'"
ds.Open Sql,conn,3,2
if ds.Eof then
ef=True
ec="用户不存在！"
end if
end if
end if
if not ef then
if Request("usertype")="agent" then
Set ds = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_AGENT where username='"&Request("username")&"'"
ds.Open Sql,conn,3,2
if ds.Eof then
ef=True
ec="代理用户不存在！"
else
isagn=true
end if
end if
end If
if not ef then
if ds("agent1")<>session("agentusername") then
ef=True
ec="此用户并不是您所代理的用户，不能操作！"
end if
end if
if not ef Then
waitmoney=ds ("waitmoney")
ds ("waitmoney")=0
ds.Update
endmoney=ds ("waitmoney")
ds.Close
set ds=nothing
conn.Close
set conn=nothing%>
<%session("FreeHostCom").FreeHost_WR("html5")%>待入帐金额清零操作
<%session("FreeHostCom").FreeHost_WR("html6")%>
操作成功：
<%if isagn=true then%>
操作代理：
<%else%>
操作用户：
<%end if%>
<%=Request("username")&"
原来的待入帐金额是："&waitmoney&"元 现在的待入帐金额是：："&endmoney&"元。"%>
<%session("FreeHostCom").FreeHost_WR("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>