错误类型: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 %>
添加回答
举报
0/150
提交
取消