<%
dim vbgmidi
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
vbgmidi="./midi/midi" & vbgmidi & ".mid"
%>
<body>
<head>
<title></title>
<script>
function change(arg)
{
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.Open("POST", "change.asp?do="+arg, false);
xmlhttp.Send();
document.all("bgsd").src="./midi/midi"+xmlhttp.responseText+".mid";
}
</script>
</head>
<body>
<bgsound src="<%=vbgmidi%>" loop=-1 volume=100 id="bgsd">
<a href="javascript:change('next')">下一首</a>
<a href="javascript:change('pre')">上一首</a>
</body>
change.asp:
<%
if IsEmpty(session("bgmidi"))=True or session("bgmidi")=81 then
session("bgmidi")=1
else
session("bgmidi")=session("bgmidi")+1
end if
Response.write session("bgmidi")
%>
对不起上面的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
%>
<%
dim vbgmidi
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
vbgmidi="./midi/midi" & vbgmidi & ".mid"
%>
<body>
<head>
<title></title>
<script language="javascript">
i=0
function change(arg)
{
i=i+1;
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.Open("POST", "change.asp?i="+i+"&do="+arg, false);
xmlhttp.Send();
document.all("bgsd").src="./midi/midi"+xmlhttp.responseText+".mid";
}
</script>
</head>
<body>
<bgsound src="<%=vbgmidi%>" loop=-1 volume=100 id="bgsd">
<a href="javascript:change('next')">下一首</a>
<a href="javascript:change('pre')">上一首</a>
</body>
change.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
%>
自動循環播放代碼如下:
<%
function midi()
rem 背景音樂子程序,"81"是曲目總數
dim vbgmidi
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
vbgmidi="./midi/midi" & vbgmidi & ".mid"
Response.Write("<bgsound src=" & vbgmidi & " loop=-1 volume=100>")
end function
%>