<%@ Language=VBScript %>
<%
If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
end if


if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
  Set dsagent = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_AGENT where username='"&session("agentusername")&"'"
		dsagent.Open Sql,conn,1,3
If dsagent.Eof Then
	ef=True
	ec="代理不存在!"
end if
end if

if not ef then


dsagent("pauseweb")=Request.Form ("pauseweb")
dsagent("pauseweb2")=Request.Form ("pauseweb2")
dsagent("pauseweb3")=Request.Form ("pauseweb3")
dsagent("pauseweb4")=Request.Form ("pauseweb4")
dsagent.update
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>
　修改成功
<%=htmlwrite("html6")%>
<br><br><br>修改成功了！
<%=htmlwrite("html7")%>
<%
dsagent.close
conn.Close
set conn=nothing
end if

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