Copy Code code as follows:
<title>52515.net Upload Program </title>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<style type= "Text/css" >
<!--
body,td,th {
font-size:14px;
Color: #FFFFFF;
}
INPUT {
border-top-width:1px; border-left-width:1px; font-size:12px; border-bottom-width:1px; border-right-width:1px
}
. style1 {
font-size:36px;
Font-family: "Official script";
}
Body {
Background-color: #000000;
}
a:link {
Color: #FFFFFF;
Text-decoration:none;
}
a:visited {
Color: #FFFFFF;
Text-decoration:none;
}
a:hover {
Color: #FFFFFF;
Text-decoration:none;
}
a:active {
Color: #FFFFFF;
Text-decoration:none;
}
. style2 {font-size:18px}
-->
</style>
<script language=javascript>
<!--Begin
More JavaScript from Http://www.smallrain.net
var rotate_delay = 3000; Delay in milliseconds (1000 = 1 secs)
current = 0;
function Next () {
if (Document.slideform.slide[current+1]) {
if (document.all) {
Document.images.show.style.filter= "Blendtrans (duration=2)"
Document.images.show.style.filter= "Blendtrans (duration=crossfadeduration)"
Document.images.show.filters.blendTrans.Apply ()
}
DOCUMENT.IMAGES.SHOW.SRC = Document.slideform.slide[current+1].value;
if (document.all) {
Document.images.show.filters.blendTrans.play ()
}
Document.slideform.slide.selectedIndex = ++current;
}
else A ();
}
function Previous () {
if (current-1 >= 0) {
if (document.all) {
Document.images.show.style.filter= "Blendtrans (duration=2)"
Document.images.show.style.filter= "Blendtrans (duration=crossfadeduration)"
Document.images.show.filters.blendTrans.Apply ()
}
DOCUMENT.IMAGES.SHOW.SRC = Document.slideform.slide[current-1].value;
if (document.all) {
Document.images.show.filters.blendTrans.play ()
}
Document.slideform.slide.selectedIndex =--current;
}
else last ();
}
function A () {
current = 0;
if (document.all) {
Document.images.show.style.filter= "Blendtrans (duration=2)"
Document.images.show.style.filter= "Blendtrans (duration=crossfadeduration)"
Document.images.show.filters.blendTrans.Apply ()
}
DOCUMENT.IMAGES.SHOW.SRC = Document.slideform.slide[0].value;
if (document.all) {
Document.images.show.filters.blendTrans.play ()
}
Document.slideform.slide.selectedIndex = 0;
}
function last () {
current = Document.slideform.slide.length-1;
if (document.all) {
Document.images.show.style.filter= "Blendtrans (duration=2)"
Document.images.show.style.filter= "Blendtrans (duration=crossfadeduration)"
Document.images.show.filters.blendTrans.Apply ()
}
DOCUMENT.IMAGES.SHOW.SRC = Document.slideform.slide[current].value;
if (document.all) {
Document.images.show.filters.blendTrans.play ()
}
Document.slideform.slide.selectedIndex = current;
}
Function ap (text) {
Document.slideform.slidebutton.value = (Text = "Stop playing")? "AutoPlay": "Stop playing";
Rotate ();
}
function Change () {
current = Document.slideform.slide.selectedIndex;
if (document.all) {
Document.images.show.style.filter= "Blendtrans (duration=2)"
Document.images.show.style.filter= "Blendtrans (duration=crossfadeduration)"
Document.images.show.filters.blendTrans.Apply ()
}
DOCUMENT.IMAGES.SHOW.SRC = Document.slideform.slide[current].value;
if (document.all) {
Document.images.show.filters.blendTrans.play ()
}
}
function rotate () {
if (Document.slideform.slidebutton.value = "Stop playing") {
Current = (current = = document.slideform.slide.length-1)? 0:current+1;
if (document.all) {
Document.images.show.style.filter= "Blendtrans (duration=2)"
Document.images.show.style.filter= "Blendtrans (duration=crossfadeduration)"
Document.images.show.filters.blendTrans.Apply ()
}
DOCUMENT.IMAGES.SHOW.SRC = Document.slideform.slide[current].value;
if (document.all) {
Document.images.show.filters.blendTrans.play ()
}
Document.slideform.slide.selectedIndex = current;
Window.settimeout ("Rotate ()", rotate_delay);
}
}
End-->
</SCRIPT>
<body>
<form name=slideform>
<div align= "center" class= "Style1" > Tfdn picture player
</div>
<table width= "80%" height= "243" border=1 align=center cellpadding=0 cellspacing=0 bordercolor= "#009900" bgcolor= "# 009933 "style=" Border-collapse:collapse ">
<TR>
<TD height= "align=" center "valign=center > </TD>
</TR>
</TABLE>
<table width= "80%" border=1 align= "center" cellpadding=0 cellspacing=0 "bordercolor=" #FF9900 "style=" Border-collapse:collapse ">
<TR>
<TD height=29 align=middle bgcolor= "#FF9900" >
<%
Set Rs=conn.execute ("SELECT * from upload ORDER by id")
%>
<select Onchange=change (); Name=slide>
<% do, not rs.eof%>
<option value=<%=rs ("Upfile")%>><%=rs ("filename")%></option>
<%
Rs.movenext
Loop
Set rs=nothing
Set conn=nothing
%>
</SELECT>
<input title=beginning Onclick=first (); Type=button value= "The first photo" >
<input title=previous onclick=previous (); Type=button value= "Previous" >
<input title=autoplay Onclick=ap (this.value); Type=button value= Automatic Playback name=slidebutton>
<input Title=next Onclick=next (); Type=button value= "Next" >
<input title=end onclick=last (); Type=button value= "Mei Zhang" >
<a href= "up.htm" >[upload pictures]</a> <a href= "admin.asp" >[picture Management]
</a></TD>
</TR>
</TABLE>
</FORM>
</body>