故事接龙2 handlevote.asp

2022-07-15 80酷酷网 80kuku.com

　　<% Language=VBScript %>
<%
'以下为处理投票的asp程序
if Request.ServerVariables("http_method")="POST" then
    if 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,3
            tempstr=Request.Form("votecomment")
            rec.AddNew
            rec("userip")=Request.ServerVariables("remote_addr")
            rec("comment")=tempstr
            rec.Update
            rec.Close
            tempstr="<PRE>" & tempstr & "</PRE>"
            tempstr=tempstr & "<P>你投了一票，谢谢</P>"
        else
            '如果用户没有留言，则
            tempstr="这位网友没什么话要说，他/她只是觉得这篇文章接的很好，所以投了一票"
        end if
        '根据用户的投票更新记录投票次数的数据库
        '?????如果没有该项怎么办？？？
        rec.Source="select * from tbvote where votechapter='" & Request.Form("voteradio") & "'"
        rec.Open ,,1,3
        if rec.BOF then
            '如果文章是第一次投票，则添加新记录
            rec.AddNew
            rec("votecount")=1
            rec("votechapter")=Request.Form("voteradio")
            rec.Update
        else
            '否则更新投票记数+1
            rec("votecount")=rec("votecount")+1
            rec.Update
        end if
        rec.Close
        set rec=nothing
    else
        '如果没有新文章或用户没有选择就提交，则会出现此信息提示
        tempstr="<PRE>" & "这位网友真奇怪，都觉得不好还投票" & "</PRE>"
    end if
    Response.Redirect "showmessage.asp?message=" & tempstr
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
</BODY>
</HTML>