vote.asp

功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私

<!-- #include file="conn.asp" -->
<% 
'程序演示地址：http://www.5i58.net/diary.htm
'● 程序名：flash日记本和flash留言本  v1.2
'● 语言：ASP & as
'● 运行环境：Win2000 IIS，ASP+Access。
'● 开发者: www.5i58.net 我爱我吧学习网
'● 联系方式（技术支持）：QQ:50810089    MSN: [e-mail](VIP技术支持)
'如果您想用作商业用途，请与我们联系，升级为 VIP 版本

TPid=Request("TPid")

'已经投过票
if Request.Cookies("repeat1")="true" then
    Response.Write("repeat=1&TPok=0")
    Response.End()
else
  '没有投票   
    set rs=server.CreateObject("ADODB.Recordset")
    SQL="select * from TPvote where TPid="&TPid
    rs.open SQL,conn,1,1
    TPup=rs("TPcer")+1
    conn.execute "Update TPvote set TPcer='"&TPup&"' where TPid="&TPid
    Response.Write("TPok=1")
	'写入cookies
    Response.Cookies("repeat1")="true"
    Response.End()
	rs.close
    set rs=Nothing
    CloseDataConn
end if 
%>