模板
教程
环境
性能
功能
管理
故事接龙2 handlevote.asp
发表于：2007-06-30来源：作者：点击数：
标签：
%@ Language= VB Script % % ‘’以下为处理投票的asp程序 if Request.ServerVariables(http_method)=POST then if Request.Form(voteradio) then ‘’只有用户选择了认为续写得好得文章才进行处理 set rec=server.CreateObject(adodb.recordset) rec.ActiveC
<%@ 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>
