datediff(n,AddTime,'"&now()&"')<"&cint(HosTime)
Set rs=conn.execute(sql)
if cint(rs(0))>=1 then
Call Alert("您的IP已经为选手投过票,在活动期间仅允许参与投票一次","index.asp")
End if
end if
sql="update kx_v_po set VoteNum=VoteNum+1 where id in("&Voteid&")"
conn.execute(sql)
for i=0 to Ubound(V)
sql="insert into kx_v_Record(Voteid,Userid,Hostip,HostAd,HostUl,AddTime) values("&V(I)&","&Zuid&",'"&getIP()&"','"&dlwz&"','"&HostUrl&"','"&now()&"')"
conn.execute(sql)
next
Call Alert("投票成功,感谢您宝贵的一票!","index.asp")
%>
参考资料 [1] 刘瑞新,文成林等编.vb6.0 程序设计教程.北京:机械工业出版社,2002
[2] 史济民,汤观全编著.vb6.0 及其应用程序开发.北京:清华大学出版社,2003
[3] 郑刚编著,数据库原理及应用 北京:人民邮电出版社,2002
[4] 朱欣娟,数据库原理教程入门 西安:西安电子科技大学出版社,2002
[5] 金英姿,邓少昆著. VB实用培训教程 人民邮电出版社 2003
[6] 刘瑞新著,VB程序设计 机械工业出版社 2003
[7] 张纪鹏著,VB程序设计教程 清华大学出版社 2001
[8] 李作纬著,VB实用教程 石油大学出版社 2002
[9] 周立柱著,数据库管理系统 清华大学出版社 2004
[10] 张志强著,数据库原理与设计 清华大学出版社 2004
[11] 王熠著, 数据库基础教程 机械工业出版社 2003
[12] 崔淼著, VB程序设计实践教程 机械工业出版社 2002
[13] 胡毓坚著,数据库原理及应用 机械工业出版社 2002