<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canadmdomain")="" Then
	ef=True
	ec="您没有此操作的权限。"
ElseIf Request.QueryString ("id")="" Then
	ef=True
	ec="请选择产品！"
ElseIf not IsNumeric(Request.QueryString("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.QueryString ("id")&"'"
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
'if dsdom("Domain_API")=2 or dsdom("Domain_API")=4 then
session("selectedDomainName")=dsdom("Domain")
session("DomainNameModid")=dsdom("id")
Response.Redirect "/style/info/xindomainform.asp?id="&Request.QueryString("id")
'end if
end if


if not ef then
	ef=True
	ec="未知的接口信息。"
end if

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