select case ctype
case 1
if datediff("d",UserLastLogin,getdate())=0 then
sql="update [user] set
lastlogin=getdate(),logins=logins+1,UserLastIP='"&lastip&"',userclass='"&userclass&"',titlepic='"&titlepic&"',UserGroupID="&G
roupID&" where userid="&UserID
else
sql="update [user] set
userWealth=userWealth+"&Forum_user(4)&",userEP=userEP+"&Forum_user(9)&",userCP=userCP+"&Forum_user(14)&",lastlogin=Now(),logi
ns=logins+1,UserLastIP='"&lastip&"',userclass='"&userclass&"',titlepic='"&titlepic&"',UserGroupID="&GroupID&" where
userid="&UserID
end if
.......
错误提示
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'getdate'
/forum/inc/char_login.asp,行108
我该如何改呀????
---------------------------------------------------------------
if datediff("d",UserLastLogin,'" & Now() & "')=0 then