错误类型:
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'IsTimeOut'
/Common/Inc_Login.asp, 第 2 行
以下是前33行代码
<%
if not IsTimeOut(Session("boobuser"),Session("boobpass")) and intMemberKey <> "" then
Dim rdsMemberss
Dim sqlMemberss
Dim strMemberLevel
Dim strMemberType
Dim strRealName
set rdsMemberss = Server.CreateObject("ADODB.Recordset")
sqlMemberss = "Select * From Dat_Member Where MemberKey = "& intMemberKey
rdsMemberss.Open sqlMemberss,Conn
if not rdsMemberss.EOF then
intMemberKey=rdsMemberss("MemberKey")
if rdsMemberss("logincount") mod addpoint = 0 then
set rdsMember22 = Server.CreateObject("ADODB.Recordset")
sqlMember22 = "Select * From Dat_Member Where MemberKey = "& intMemberKey
rdsMember22.Open sqlMember22,Conn,1,3
rdsMember22("Point") = rdsMember22("Point") + 1
rdsMember22.Update
rdsMember22.Close
set rdsMember2 = nothing
end if
if rdsMemberss("MemberType") = "1" then
strMemberType = "个人会员"
strRealName = rdsMemberss("RealName")
else
strMemberType = "企业会员"
strRealName = rdsMemberss("CompanyName")
end if
%>
蛊毒传说
Smart猫小萌
相关分类