最新下载
热门教程
- 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
'根据用户的投票更新记录投票次数的数据库
相关文章
- Binance.US已上线VIRTUAL 04-30
- binance官网电脑下载_binance苹果版下载地址V2.57.7 04-30
- 比特币交易量最大的交易所是哪个？全球最大的比特币交易平台排名 04-30
- 奥比岛梦想国度卡死闪退有哪些解决方法 04-30
- DNF手游骨戒在哪个位置 04-30
- 回望羊驼：当利空成为短暂的财富密码 04-30