故事接龍2 handlevote.asp

<%@ 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
        '根據使用者的投票更新記錄投票次數的資料庫