<%@ Language=VBScript %>
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canadmdomain")="" 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")&"'"
if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
	dsdom.Open sql,conn,1,3
if dsdom.eof then
	ef=True
	ec="不存在的域名！"
end if
end if

if not ef then
if isnull(dsdom("retdns")) or dsdom("retdns")="" then
	ef=True
	ec="很抱歉，没有相关的返回信息！"
end if
end if

if not ef then%>
注册返回信息:
<%=server.HTMLEncode(dsdom("retdns"))%>
<br><br><br>
发送给注册商的信息为:
<%=dsdom("postcon")%><br>


<br><br><br>详细的出错原因解说请参考:<a href=http://sys.7i24.com/system/support/default.asp?id3=1&id4=2 target=_blank>http://sys.7i24.com/system/support/default.asp?id3=1&id4=2</a>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>