001.
<%@ Import
Namespace
=
"System.Data"
%>
002.
<%@ Import
Namespace
=
"System.Data.SqlClient"
%>
003.
<%@Import
Namespace
=
"System.IO"
%>
004.
<%@ Page Language=
"VB"
%>
005.
<script runat=
"server"
>
006.
Dim
count
As
Integer
007.
008.
009.
Sub
Page_Load(sender
As
Object
, e
As
EventArgs)
Handles
Me
.Load
010.
count = 1
011.
button1.Visible =
False
012.
state.Text =
"1"
013.
Me
.pnlAdd1.Visible =
True
014.
Me
.pnlAdd2.Visible =
False
015.
Me
.pnlAdd3.Visible =
False
016.
Me
.pnlAdd4.Visible =
False
017.
018.
End
Sub
019.
020.
Sub
btnPrevious(sender
As
Object
, e
As
EventArgs)
021.
count = count-1
022.
If
(count=1)
023.
button1.Visible =
False
024.
button2.Visible =
True
025.
state.Text =
"1"
026.
Me
.pnlAdd1.Visible =
True
027.
Me
.pnlAdd2.Visible =
False
028.
Me
.pnlAdd3.Visible =
False
029.
Me
.pnlAdd4.Visible =
False
030.
Else
If
(count=2)
031.
button1.Visible =
True
032.
button2.Visible =
True
033.
state.Text =
"2"
034.
Me
.pnlAdd2.Visible =
True
035.
Me
.pnlAdd1.Visible =
False
036.
Me
.pnlAdd3.Visible =
False
037.
Me
.pnlAdd4.Visible =
False
038.
Else
If
(count=3)
039.
button1.Visible =
True
040.
button2.Visible =
True
041.
state.Text =
"3"
042.
Me
.pnlAdd3.Visible =
True
043.
Me
.pnlAdd1.Visible =
False
044.
Me
.pnlAdd2.Visible =
False
045.
Me
.pnlAdd4.Visible =
False
046.
Else
If
(count=4)
047.
button1.Visible =
True
048.
button2.Visible =
False
049.
state.Text =
"4"
050.
Me
.pnlAdd4.Visible =
True
051.
Me
.pnlAdd1.Visible =
False
052.
Me
.pnlAdd2.Visible =
False
053.
Me
.pnlAdd3.Visible =
False
054.
End
If
055.
End
Sub
056.
057.
Sub
btnNext(sender
As
Object
, e
As
EventArgs)
058.
count=count+1
059.
If
(count=1)
060.
button1.Visible =
False
061.
button2.Visible =
True
062.
state.Text =
"1"
063.
Me
.pnlAdd1.Visible =
True
064.
Me
.pnlAdd2.Visible =
False
065.
Me
.pnlAdd3.Visible =
False
066.
Me
.pnlAdd4.Visible =
False
067.
Else
If
(count=2)
068.
button1.Visible =
True
069.
button2.Visible =
True
070.
state.Text =
"2"
071.
Me
.pnlAdd2.Visible =
True
072.
Me
.pnlAdd1.Visible =
False
073.
Me
.pnlAdd3.Visible =
False
074.
Me
.pnlAdd4.Visible =
False
075.
Else
If
(count=3)
076.
button1.Visible =
True
077.
button2.Visible =
True
078.
state.Text =
"3"
079.
Me
.pnlAdd3.Visible =
True
080.
Me
.pnlAdd2.Visible =
False
081.
Me
.pnlAdd1.Visible =
False
082.
Me
.pnlAdd4.Visible =
False
083.
Else
If
(count=4)
084.
button1.Visible =
True
085.
button2.Visible =
False
086.
button1.Visible =
True
087.
state.Text =
"4"
088.
Me
.pnlAdd4.Visible =
True
089.
Me
.pnlAdd2.Visible =
False
090.
Me
.pnlAdd3.Visible =
False
091.
Me
.pnlAdd1.Visible =
False
092.
End
If
093.
End
Sub
094.
095.
096.
097.
</script>
098.
<form runat=
"server"
>
099.
<asp:Button id=
"button1"
Text=
"previous"
Onclick=
"btnPrevious"
runat=
"server"
/>
100.
<asp:TextBox id=
"state"
runat=
"server"
Width=
"15px"
></asp:TextBox>
101.
<asp:Label id=
"total"
runat=
"server"
text=
"\4"
></asp:Label>
102.
<asp:Button id=
"button2"
Text=
"next"
Onclick=
"btnNext"
runat=
"server"
/>
103.
<asp:panel id=
"pnlAdd1"
runat=
"server"
><embed src=
"testxml2.swf"
quality=
"high"
bgcolor=
"#ffffff"
width=
"500"
height=
"380"
name=
"testxml2"
align=
"middle"
allowScriptAccess=
"sameDomain"
allowFullScreen=
"false"
type=
"application/x-shockwave-flash"
pluginspage=
"http://www.macromedia.com/go/getflashplayer"
/>
104.
</asp:panel>
105.
<asp:panel id=
"pnlAdd2"
runat=
"server"
><embed src=
"testxml2.swf"
quality=
"high"
bgcolor=
"#ffffff"
width=
"500"
height=
"380"
name=
"testxml2"
align=
"middle"
allowScriptAccess=
"sameDomain"
allowFullScreen=
"false"
type=
"application/x-shockwave-flash"
pluginspage=
"http://www.macromedia.com/go/getflashplayer"
/>
106.
</asp:panel>
107.
<asp:panel id=
"pnlAdd3"
runat=
"server"
><embed src=
"testxml2.swf"
quality=
"high"
bgcolor=
"#ffffff"
width=
"500"
height=
"380"
name=
"testxml2"
align=
"middle"
allowScriptAccess=
"sameDomain"
allowFullScreen=
"false"
type=
"application/x-shockwave-flash"
pluginspage=
"http://www.macromedia.com/go/getflashplayer"
/>
108.
</asp:panel>
109.
<asp:panel id=
"pnlAdd4"
runat=
"server"
><embed src=
"testxml2.swf"
quality=
"high"
bgcolor=
"#ffffff"
width=
"500"
height=
"380"
name=
"testxml2"
align=
"middle"
allowScriptAccess=
"sameDomain"
allowFullScreen=
"false"
type=
"application/x-shockwave-flash"
pluginspage=
"http://www.macromedia.com/go/getflashplayer"
/>
110.
</asp:panel>
111.
</form>