所属类别：Asp

文章作者：佚名

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

<%@ Language=VBScript %><%'以下为处理投票的asp程序if Request.ServerVariables("http_method")="POST" thenif Request.Form("voteradio")<>"" then'只有用户选择了认为续写得好得文章才进行处理set rec=server.CreateObject("adodb.recordset")rec.ActiveConnection="dsn=vote"if Request.Form("votecomment")<>"" then'将用户的留言加入到数据中rec.Source="select * from tbcomment"rec.Open ,,1,3tempstr=Request.Form("votecomment")rec.AddNewrec("userip")=Request.ServerVariables("remote_addr")rec("comment")=tempstrrec.Updaterec.Closetempstr="" & tempstr & ""tempstr=tempstr & "你投了一票，谢谢"else'如果用户没有留言，则tempstr="这位网友没什么话要说，他/她只是觉得这篇文章接的很好，所以投了一票"end if'根据用户的投票更新记录投票次数的数据库'?????如果没有该项怎么办？？？rec.Source="select * from tbvote where votechapter='" & Request.Form("voteradio") & "'"rec.Open ,,1,3if rec.BOF then'如果文章是第一次投票，则添加新记录rec.AddNewrec("votecount")=1rec("votechapter")=Request.Form("voteradio")rec.Updateelse'否则更新投票记数+1rec("votecount")=rec("votecount")+1rec.Updateend ifrec.Closeset rec=nothingelse'如果没有新文章或用户没有选择就提交，则会出现此信息提示tempstr="" & "这位网友真奇怪，都觉得不好还投票" & ""end ifResponse.Redirect "showmessage.asp?message=" & tempstrend if%> 关闭本页

....