<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf Request("id")="" Then
	ef=True
	ec="请选择产品！"
ElseIf not IsNumeric(Request("id"))  Then
	ef=True
	ec="产品ID应该是数字！"
end if

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
Set dsdom = Server.CreateObject("ADODB.Recordset")
sql="Select * from FreeHost.FreeHost_Product_Domain where id='"&Request ("id")&"' and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc"
if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
	dsdom.Open sql,conn,1,1
if dsdom.eof then
	ef=True
	ec="不存在的域名！"
end if
end If

if not ef then
session("selectedDomainName")=dsdom("Domain")
session("DomainNameModid")=dsdom("id")
Response.Redirect "/style/info/xindomainform.asp?id="&Request("id")
end if

if not ef then
	ef=True
	ec="未知的接口信息。"
end if

if ef then
Response.Redirect "e.asp?e="&ec
end if%>