<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("HOSTAUID")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf Request ("id")="" Then
	ef=True
	ec="请输入产品ID！"
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 dsICPDB = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_ICPDB where id='"&Request("id")&"'"
	dsICPDB.Open Sql,conn,1,3
if dsICPDB.Eof then
	ef=True
	ec="不存在的备案ID！"
end if
end if


if not ef then
if Application("beianusecode")=-1 and dsICPDB("status")<>"备案成功" and dsICPDB("status")<>"尚未检测" Then
dsICPDB("status")="尚未检测"
if Application("beianusecode")=-1 Then Application("noticemesg")=Application("noticemesg")&"　用户提交"&dsICPDB("domain")&"绑定等候审核。"
dsICPDB.update
dsICPDB.close
Response.Redirect request("goto")
End if
end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>