<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf Request("username")="" Then
	ef=True
	ec="请您输入代理名！"
ElseIf RegExpTest("[^A-Za-z0-9]",Request("username")) Then
	ef=True
	ec="子代理用户名中有非法字符！"
end if


if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsreg = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_AGENT where username='"&Request("username")&"'"
		dsreg.Open Sql,conn,1,3
if dsreg.eof then
	ef=True
	ec="代理用户不存在!"
Else
haveclosehtml=dsreg("haveclosehtml")
end if
end if

if not ef then
if dsreg("agenttype")="n" then
		ef=True
		ec="此的代理资格尚未被审批！"
end if
end if

if not ef then
if dsreg("agent1")<>session("agentusername") then
	ef=True
	ec="这个用户并不是您名下的用户!"
end if
end if

if not ef then
	Set dsstyle = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='"&dsreg("username")&"' and nowuse='1'"
		dsstyle.Open Sql,conn,1,1
if not dsstyle.eof Then
if Request.ServerVariables("HTTP_FreeHostAPI")<>"7i24.com" Then
session("html1")=dsstyle("html1")
session("html2")=dsstyle("html2")
session("html3")=dsstyle("html3")
session("html4")=dsstyle("html4")
session("html5")=dsstyle("html5")
session("html6")=dsstyle("html6")
session("html7")=dsstyle("html7")
session("html8")=Application("html8")
session("html9")=Application("html9")
session("html10")=Application("html10")
session("html11")=dsstyle("html11")
session("html12")=dsstyle("html12")
session("html13")=dsstyle("html13")
session("html14")=dsstyle("html14")
session("html15")=dsstyle("html15")
session("html16")=dsstyle("html16")
session("html17")=dsstyle("html17")
session("html18")=dsstyle("html18")
session("html19")=dsstyle("html19")
session("html20")=dsstyle("html20")
session("html21")=dsstyle("html21")
session("html22")=dsstyle("html22")
session("html23")=dsstyle("html23")
session("html24")=dsstyle("html24")
session("html25")=dsstyle("html25")

session("html26")=dsstyle("html26")
session("html27")=dsstyle("html27")
session("html28")=dsstyle("html28")
session("html29")=dsstyle("html29")
session("html30")=dsstyle("html30")
session("html31")=dsstyle("html31")
session("html32")=dsstyle("html32")
End if
session("ism")=false
else
'session("ism")=true
'----2005-5-10
session("ism")=False
if Request.ServerVariables("HTTP_FreeHostAPI")<>"7i24.com" Then
session("html1")=Application("agnhtml1")
session("html2")=Application("agnhtml2")
session("html3")=Application("agnhtml3")
session("html4")=Application("agnhtml4")
session("html5")=Application("agnhtml5")
session("html6")=Application("agnhtml6")
session("html7")=Application("agnhtml7")
session("html8")=Application("agnhtml8")
session("html9")=Application("agnhtml9")
session("html10")=Application("agnhtml10")
session("html11")=Application("agnhtml11")
session("html12")=Application("agnhtml12")
session("html13")=Application("agnhtml13")
session("html14")=Application("agnhtml14")
session("html15")=Application("agnhtml15")
session("html16")=Application("agnhtml16")
session("html17")=Application("agnhtml17")
session("html18")=Application("agnhtml18")
session("html19")=Application("agnhtml19")
session("html20")=Application("agnhtml20")
session("html21")=Application("agnhtml21")
session("html22")=Application("agnhtml22")
session("html23")=Application("agnhtml23")
session("html24")=Application("agnhtml24")
session("html25")=Application("agnhtml25")

session("html26")=Application("agnhtml26")
session("html27")=Application("agnhtml27")
session("html28")=Application("agnhtml28")
session("html29")=Application("agnhtml29")
session("html30")=Application("agnhtml30")
session("html31")=Application("agnhtml31")
session("html32")=Application("agnhtml32")
End if
'----2005-5-10
end if
dsstyle.close
set dsstyle=nothing
end if

if not ef Then
If haveclosehtml=True Then
if Request.ServerVariables("HTTP_FreeHostAPI")<>"7i24.com" Then
session("html1")=Application("html1")
session("html2")=Application("html2")
session("html3")=Application("html3")
session("html4")=Application("html4")
session("html5")=Application("html5")
session("html6")=Application("html6")
session("html7")=Application("html7")
session("html8")=Application("html8")
session("html9")=Application("html9")
session("html10")=Application("html10")
session("html11")=Application("html11")
session("html12")=Application("html12")
session("html13")=Application("html13")
session("html14")=Application("html14")
session("html15")=Application("html15")
session("html16")=Application("html16")
session("html17")=Application("html17")
session("html18")=Application("html18")
session("html19")=Application("html19")
session("html20")=Application("html20")
session("html21")=Application("html21")
session("html22")=Application("html22")
session("html23")=Application("html23")
session("html24")=Application("html24")
session("html25")=Application("html25")
session("html26")=Application("html26")
session("html27")=Application("html27")
session("html28")=Application("html28")
session("html29")=Application("html29")
session("html30")=Application("html30")
session("html31")=Application("html31")
session("html32")=Application("html32")
End if
End if
Response.Cookies("usernamecook")=session("agentusername")
Response.Cookies("password")=session("agentpasswordORI")
session("agentusername")=dsreg("username")
session("username")=""'add 12-5
session("password")=""
session("AgnRunasUser")=false
session("atspace")="代理区"
session("agentusername_A")=dsreg("username")
session("agentpassword")=dsreg("password")
session("agenttype")=dsreg("agenttype")
session("agentusermoney")=dsreg("usermoney")
session("agentdegree")=dsreg("agentdegree")
if dsreg("cannextagn")="y" then session("cannextagn")=dsreg("cannextagn")
if dsreg("canmyserver")="y" then session("canmyserver")=dsreg("canmyserver")


dsreg("lastuse")=now
dsreg.update
FreeHost_Loginlog session("agentusername"),"代理"

if Request.ServerVariables("HTTP_FreeHostAPI")="7i24.com" Then
Response.write dsreg("Domain_Agent_nonemd5_6")
Response.end
End if

if session("ism")=true then Response.Redirect "htmlstyle.asp"
Response.Cookies("username").Expires = "September 7, 1998" 
Response.Redirect "logininfo.asp"
dsreg.close
conn.Close
set conn=nothing
end if

if ef then
Response.Redirect "e.asp?e="&ec
end if%>