最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
故事接龙2 handlevote.asp
时间：2022-07-02 23:34:19 编辑：袖梨 来源：一聚教程网
<%@ 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="
tempstr=tempstr & "
else
'如果用户没有留言，则
tempstr="这位网友没什么话要说，他/她只是觉得这篇文章接的很好，所以投了一票"
end if
'根据用户的投票更新记录投票次数的数据库
<%
'以下为处理投票的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="
" & tempstr & ""
tempstr=tempstr & "
你投了一票，谢谢
"else
'如果用户没有留言，则
tempstr="这位网友没什么话要说，他/她只是觉得这篇文章接的很好，所以投了一票"
end if
'根据用户的投票更新记录投票次数的数据库
相关文章
- 原神欧洛伦怎么培养 原神欧洛伦培养攻略介绍 11-22
- 炉石传说跳费大哥德卡组怎么样 炉石传说跳费大哥德卡组推荐介绍 11-22
- 蛋仔派对曙光龙女芙瑞怎么样 11-22
- 原神恰斯卡怎么养成 11-22
- 光遇11.22免费魔法有什么 11-22
- 光遇11.22大蜡烛在哪里 11-22