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")%> 次</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> | <a href="<% = strSysUrl%>LogOut.asp" target=_blank>退 出</a> | </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%>
