Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'IsTimeOut'
/Common/Inc_Login.asp, 第 2 行
源代码（后台登陆）

<%
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   
%>

[url]http://zhidao.baidu.com/question/22060257.html?si=1[/url]

Microsoft VBScript 编译器错误 (0x800A03F2)
缺少标识符
/Common/Inc_Login.asp, line 5, column 9
Function (vintMemberKey)

<%
if not IsTimeOut(Session("boobuser"),Session("boobpass")) then
Response.Redirect "Inc_login.asp"%>
<%    
    Function (vintMemberKey)
    If Not IsTimeOut then
    IsTimeOut = False
    Else
    IsTimeOut = True
    End if

    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            
%>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="126" border="0">
  <tbody>
  <tr>
    <td width="100%" height="10"></td>
  </tr>
  <tr>
    <td width="100%" height="22" align="center"><font color="#FF0000"><% = strRealName%></font> <font color="#000000"><% = strMemberType%></font></td>
  </tr>
  <tr>
    <td width="100%" height="22"><font color="#000000">会员点数：<% = rdsMemberss("point")%></font></td>
  </tr>
  <tr>
    <td width="100%" height="22"><font color="#000000">登陆次数：<% = rdsMemberss("logincount")%>&nbsp;次</font></td>
  </tr>
  <tr>
    <td width="100%" height="22"><font color="#000000">注册时间：<% = FormatTime(rdsMemberss("CreateTime"),4)%></font></td>
  </tr>
  <tr>
    <td width="100%" height="22" align="right"><a href="<% = strSysUrl%>user.asp?id=<% =intMemberKey%>">进入管理</a>&nbsp; |&nbsp;<a href="<% = strSysUrl%>LogOut.asp" target=_blank>退 出</a>&nbsp;|&nbsp;</td>
  </tr>
</tbody>
</table>
<%
    end if
    rdsMemberss.Close
    set rdsMemberss = nothing
else
%>
<script language="javascript">
//检验表单的合法性
function CheckLoginForm() {
    if (document.Logon.Member.value == "") {
        alert("\请输入您的帐户！");
        document.Logon.Member.focus();
    }
    else if (document.Logon.Password.value == "") {
        alert("\请输入您的密码！");
        document.Logon.Password.focus();
    }
    else {
        return true;
    }
    return false;
}
</script>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="126" border="0">
<form method="post" name="Logon" action="<% = strSysUrl%>CheckPass.asp" OnSubmit="return CheckLoginForm()">
<input type="hidden" name="ParentUrl" value="<% = Request.ServerVariables("SCRIPT_NAME")%>">
  <tbody>
  <tr>
    <td vAlign="top" colSpan="2" height="14"></td>
  </tr>
  <tr>
    <td align="middle" width="41" height="25" align="right"><font class="b03">账号：</font></td>
    <td align="middle" width="85" height="25"><input style="BORDER-RIGHT: 1px inset; BORDER-TOP: 1px inset; BORDER-LEFT: 1px inset; COLOR: #6b6d6b; BORDER-BOTTOM: 1px inset; BACKGROUND-COLOR: #efefef" type="text" size="11" name="Member"></td>
  </tr>
  <tr>
    <td align="middle" width="41" height="25" align="right"><font class="b03">密码：</font></td>
    <td align="middle" width="85" height="25"><input style="BORDER-RIGHT: 1px inset; BORDER-TOP: 1px inset; BORDER-LEFT: 1px inset; COLOR: #6b6d6b; BORDER-BOTTOM: 1px inset; BACKGROUND-COLOR: #efefef" type="password" size="11" name="Password"></td>
  </tr>
  <tr>
    <td colSpan="2" height="30"><input type="image" height="20" width="55" src="<% = strImageUrl%>button_login.gif" border="0" name="Submit"><a href="<% = strSysUrl%>RegMember/FindPwd.asp"><img height="20" alt="取回密码" src="<% = strImageUrl%>button_get_password.gif" width="67" height="20" border="0"></a></td>
  </tr>
  <tr>
    <td colSpan="2" height="26"><a href="<% = strSysUrl%>RegMember/index.asp"><img height="26" alt=" 免 费 注 册 " src="<% = strImageUrl%>button_freeregister_01.gif" width="125" border="0"></a></td>
  </tr>
</form>
</tbody>
</table>
<%end if%>

顶，没人能够解决了。本人菜鸟希望回答详细点 OK??

Function (vintMemberKey)这个函数没有函数名称，在ASP中好像不能使用匿名函数。