asp网站调查如何实现局部刷新,求高手解答急急急!

liuzengshuo 2009-08-06 10:10:14
sub ShowVote()
dim sqlVote,rsVote,i
sqlVote="select top 1 * from Vote where IsSelected=1"
Set rsVote= Server.CreateObject("ADODB.Recordset")
rsVote.open sqlVote,conn,1,1
if rsVote.bof and rsVote.eof then
response.Write " 没有任何调查"
else
response.write "<form name='VoteForm' method='post' action='vote.asp' target='_blank'><td>"
response.write rsVote("Title") & "<br>"
if rsVote("VoteType")="Single" then
for i=1 to 6
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='radio' name='VoteOption' value='" & i &"'>" & rsVote("Select" & i) & "<br>"
next
else
for i=1 to 6
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='checkbox' name='VoteOption' value='" & i &"'>" & rsVote("Select" & i) & "<br>"
next
end if
response.write "      <input name='VoteType' type='hidden' value='" & rsVote("VoteType") & "'>"
response.write "<input name='Action' type='hidden' value='Vote'>"
response.write "<input name='ID' type='hidden' value='" & rsVote("ID") & "'>"
response.write "<a href='javascript:VoteForm.submit();'><img src='images/voteSubmit.gif' width='52' height='18' border='0'></a>  "
response.write "<a href='Vote.asp?Action=Show' target='_blank'><img src='images/voteView.gif' width='52' height='18' border='0'></a>"
response.write "</td></form>"
end if
rsVote.close
set rsVote=nothing
end sub

当在首页点击投票按钮后弹出新页面显示调查的结果,如何让首页那块的投票选项局部刷新或清空选项呀,拜托求解最好给代码拜托
...全文
86 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
liuzengshuo 2009-08-06
  • 打赏
  • 举报
回复
[Quote=引用 3 楼 mahui19780126 的回复:]
用ajax
[/Quote]

不会
liuzengshuo 2009-08-06
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 phyllis2001 的回复:]
改成用ajax调用数据
[/Quote]
不会啊
mahui19780126 2009-08-06
  • 打赏
  • 举报
回复
用ajax
KevinI668 2009-08-06
  • 打赏
  • 举报
回复
ajax!不懂!!!
phyllis2001 2009-08-06
  • 打赏
  • 举报
回复
改成用ajax调用数据

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧