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