适用于企事业单位、管理部门等在确定了某个候选的新闻、事件、活动、图片、徽标、歌曲等候选项目后，由本单位职工或其他任何人通过网络进行投票，选出其中几项的投票活评选活动。- rem 检查sql字符串中是否有单引号，有则进行转化 function CheckStr(str) dim tstr,l,i,ch l=len(str) for i=1 to l ch=mid(str,i,1) if ch="