asp自动跳转刷新

Server.ScriptTimeout=666666666
response.flush
start_time=now()
Response.Buffer=True
set rsg=server.createobject("adodb.recordset")
bid=request("bid")
igc=request("igc")
act=request("act")
if bid<>"" then
bid=request("bid")
else
bid=0
end if
if igc<>"" then
igc=request("igc")
else
igc=0
end if
if act="url" then
file=server.mappath("gequUrl.txt") 
set fs=Server.CreateObject("Scripting.FileSystemObject")
set txt=fs.opentextfile(file,1,true) 
if not txt.atendofstream then
line=txt.ReadAll
end if
set txt=nothing
set fs=nothing
if line<>"" then
response.Write("<script>window.location.href='"+line+"';</script>")
else
response.Write("<script>window.location.href='';</script>")
end if
response.End()
end if

if bid=0 then
rsg.open"select top 20 id from table order by id desc",conn,1,1
else
rsg.open"select top 20 id from table  where  id<"&bid&" order by id desc",conn,1,1
end if


 do while not rsg.eof 
    'do something
 lastid=rsg("id")
 igc=igc+1
 rsg.movenext
 loop
rsg.close

if lastid<>1 then
 EndTime=now()
 UseTime=DateDiff("s",start_time ,EndTime ) 
response.Write("总共花了"&UseTime&"秒<br>")
Call WriteTxt("xx?bid="&lastid&"&igc="&igc)
Response.Write("<li class=""red"">  页面将自动刷新</li>")
Response.Write("<form name=""SiteCollect1"" id=""SiteCollect1"" action=""?bid="&lastid&"&igc="&igc&""" method=""post"" ></form>")
Response.Write("<script language=""javascript"">document.SiteCollect1.submit();</script>")
Response.Flush()
end if
set rsg=nothing
Call CloseConn()
response.Write("统计完成<br>")
response.Write("总共有"&igc&"首<br>")


function WriteTxt(str)

filepath=Server.MapPath("gequUrl.txt")
set fileConn=Server.CreateObject("Scripting.FileSystemObject")
set fileOpen=fileConn.OpenTextfile(filepath,2,true)
fileOpen.write(str)
fileOpen.close
set fileConn=nothing

set fileOpen=nothing

end function