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

当在首页点击投票按钮后弹出新页面显示调查的结果,如何让首页那块的投票选项局部刷新或清空选项呀,拜托求解最好给代码拜托
...全文
41 点赞 收藏 5
写回复
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调用数据
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告