<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="charsetasp.asp"-->
<!--#include file="../core/fun/fun.asp"-->
<!--#include file="../crinc/trautocollectlist171116.asp"-->
<!--#include file="../crinc/trautocollectlasttime171116.asp"-->
<%
If isopen=1 and InStr(trautocollectlist171116interval, ",")>0 Then
    sptrautocollectlist171116interval = Split(trautocollectlist171116interval, ",")
    If CLng(DateDiff(sptrautocollectlist171116interval(0), trautocollect171116starttime, FormatDate(Now(), 1)))>CLng(sptrautocollectlist171116interval(1)) Then
        funpath = request.QueryString("l")
        response.Write "var ifmtrautocollect171116=document.createElement(""iframe"");" & vbCrLf
        response.Write "ifmtrautocollect171116.src="""&funpath&"inc/trautocollectqiantai171116.asp?l="&funpath&""";" & vbCrLf
        response.Write "ifmtrautocollect171116.style=""display:none;"";" & vbCrLf
        response.Write "ifmtrautocollect171116.id=""ifmtrautocollect171116"";" & vbCrLf
        response.Write "ifmtrautocollect171116.name=""ifmtrautocollect171116"";" & vbCrLf
        response.Write "document.body.appendChild(ifmtrautocollect171116);"
    End If
End If
%>