錯誤類型：Microsoft VBScript 運行時錯誤 (0x800A000D)類型不匹配: 'IsTimeOut'/Common/Inc_Login.asp, 第 2 行以下是前33行代碼<%if not IsTimeOut(Session("boobuser"),Session("boobpass")) and intMemberKey <> "" thenDim rdsMemberssDim sqlMemberssDim strMemberLevelDim strMemberTypeDim strRealNameset rdsMemberss = Server.CreateObject("ADODB.Recordset")sqlMemberss = "Select * From Dat_Member Where MemberKey = "& intMemberKeyrdsMemberss.Open sqlMemberss,Connif not rdsMemberss.EOF thenintMemberKey=rdsMemberss("MemberKey")if rdsMemberss("logincount") mod addpoint = 0 thenset rdsMember22 = Server.CreateObject("ADODB.Recordset")sqlMember22 = "Select * From Dat_Member Where MemberKey = "& intMemberKeyrdsMember22.Open sqlMember22,Conn,1,3rdsMember22("Point") = rdsMember22("Point") + 1rdsMember22.UpdaterdsMember22.Closeset rdsMember2 = nothingend ifif rdsMemberss("MemberType") = "1" thenstrMemberType = "個人會員"strRealName = rdsMemberss("RealName")elsestrMemberType = "企業會員"strRealName = rdsMemberss("CompanyName")end if %>