<%@ Language=VBScript %> <% 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")&"'" 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 dsdom("status")<>"预注册成功" Then ef=True ec="只有预注册成功状态的域名才能删除！" end If end if if not ef then dsdom.delete dsdom.update Response.write "


强行删除成功。" end if if ef then Response.Redirect "e.asp?e="&ec end if%>