09-09
11
Pjblog Bug:myblog/common/library.asp,行 479
作者:Java伴侣 日期:2009-09-11
Private Function checkTagID(tagID) '检测是否存在此标签(根据ID)
checkTagID = False
Dim log_Tag, log_TagItem
For Each log_TagItem IN Arr_Tags
log_Tag = Split(log_TagItem, "||")
If Int(log_Tag(0)) = Int(tagID) Then #现在我把Int换成LCase了,就好了~
checkTagID = True
Exit Function
End If
Next
End Function
checkTagID = False
Dim log_Tag, log_TagItem
For Each log_TagItem IN Arr_Tags
log_Tag = Split(log_TagItem, "||")
If Int(log_Tag(0)) = Int(tagID) Then #现在我把Int换成LCase了,就好了~
checkTagID = True
Exit Function
End If
Next
End Function
评论: 0 | 引用: 0 | 查看次数: 238
发表评论