<% Dim LinkStr,DoMainEndNum if Instr("###"&Request.QueryString("Link"),"http://") > 0 then LinkStr = Right(Request.QueryString("Link"),Len(Request.QueryString("Link")) - 7) elseif Request.QueryString("Link") <> "" then LinkStr = Request.QueryString("Link") else Response.Write("Url Error£¡") Response.End() End if DoMainEndNum = InStr(LinkStr,"/") if DoMainEndNum > 0 then if LCase(Right(Left(LinkStr,DoMainEndNum-1),9)) <> "examw.com" then Response.Write("Url Error£¡") else Response.Redirect("http://"&LinkStr) End if else if Len(LinkStr) < 10 or Right(LinkStr,9) <> "examw.com" then Response.Write("Url Error£¡£¡") else Response.Redirect("http://"&LinkStr) End if End if Response.End() %>