ASP页面合并请教。

有没有办法把下面的代码，和代码中提到的index.asp合并成一个页面。不能改变现有判断的本意。

VBScript code

<%
    Dim rs,sql,Url,Id
    set rs=conn.execute("select * from User where Id = '"&Id&"'")
    Url = request.servervariables("HTTP_HOST") 
    if Url = "www.baidu.com" or Url= baidu.com" then
    Response.Redirect("index.asp")
    Response.end
    Else
    Id = split(url,".")
    Id = replace(Id(0),"http://","")
     set rs=conn.execute("select * from User where Id = '"&Id&"'")
    If not rs.eof Then
    response.Write ("<frameset><frame src='Mb/Mb001/index.asp?Id="&Id&"'></frameset>")
    Else
    Response.Redirect("index.asp")
    End If
    End if
    call close_conn
%>

代码中提及了两个index.asp呢

两个index.asp是同一个文件。

If not rs.eof Then
  response.Write ("<iframe src='Mb/Mb001/index.asp?Id="&Id&"'></iframe>")
Else
  Response.Redirect("index.asp")
End If

原来那是啥