📄 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="Provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("../chap12/vote.mdb")
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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -