求一段不刷新當前頁面執行過程的asp程序

如題.
1.點擊鏈接執行(例如改變背景音樂)
2.保持當前頁不會刷新,也不會轉到其它頁面
---------------------------------------------------------------

 1   
 2dim vbgmidi   
 3if IsEmpty(session("bgmidi"))=True or session("bgmidi")=81 then   
 4session("bgmidi")=1   
 5else   
 6session("bgmidi")=session("bgmidi")+1   
 7end if   
 8vbgmidi=session("bgmidi")   
 9if len(vbgmidi)<2 then   
10vbgmidi="0" & vbgmidi   
11end if   
12vbgmidi="./midi/midi" & vbgmidi & ".mid"

 1<body>
 2<head>
 3<title></title>
 4<script language="javascript">   
 5i=0   
 6function change(arg)   
 7{   
 8i=i+1;   
 9var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");   
10xmlhttp.Open("POST", "change.asp?i="+i+"&do="+arg, false);   
11xmlhttp.Send();   
12document.all("bgsd").src="./midi/midi"+xmlhttp.responseText+".mid";   
13}   
14</script>
15</head>
16<body>
17<bgsound id="bgsd" loop="-1" src="```
18=vbgmidi
19```" volume="100"/>
20<a href="javascript:change('next')">下一首</a>
21<a href="javascript:change('pre')">上一首</a>
22</body>   
23  
24  
25change.asp:

if IsEmpty(session("bgmidi"))=True or session("bgmidi")=81 then
session("bgmidi")=1
else
session("bgmidi")=session("bgmidi")+1
end if
vbgmidi=session("bgmidi")
if len(vbgmidi)<2 then
vbgmidi="0" & vbgmidi
end if
Response.write vbgmidi

1\---------------------------------------------------------------   
2  
3  
4对不起上面的change.asp没写完，你把它改为:

if Request("do")="next" then
if IsEmpty(session("bgmidi"))=True or session("bgmidi")=81 then
session("bgmidi")=1
else
session("bgmidi")=session("bgmidi")+1
end if
else
if IsEmpty(session("bgmidi"))=True or session("bgmidi")=1 then
session("bgmidi")=81
else
session("bgmidi")=session("bgmidi")-1
end if
end if
vbgmidi=session("bgmidi")
if len(vbgmidi)<2 then
vbgmidi="0" & vbgmidi
end if
Response.write vbgmidi

 1  
 2\---------------------------------------------------------------   
 3  
 4function change(arg)   
 5{   
 6i=i+1; //产生一个变量，使每次的url参数都不一样，从而防止浏览器的页面缓存   
 7var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); //创建一个xmlhttp对象   
 8xmlhttp.Open("POST", "change.asp?i="+i+"&amp;do="+arg, false); //向change.asp提出请求，并且带了2个参数i和do，i是用来防止浏览器的页面缓存   
 9xmlhttp.Send(); //发送请求   
10document.all("bgsd").src="./midi/midi"+xmlhttp.responseText+".mid"; //将页面对象bgsd的src属性改为xmlhttp对象提交后的返回值   
11}   
12  
13这里主要是xmlhttp的使用，它可以不用刷新页面而向后台发出请求，并通过xmlhttp.responseText来接收服务器返回的请求   
14  
15change.asp里的程序根据url参数do来得知是该+1还是-1</body>