Super Slide Play Script (VBS)

zhaozj2021-02-08  205

Night rain Leisure - Slide Play </ Title> <meta http-equiv = "content-type" content = "text / html; charSet = GB2312> <link href =" images / STYLE.CSS "rel =" stylesheet "> </ head> <script language =" vbscript ">" *********************************** *********************** The analog slide play script is 'Night Rain Leisure BY 2003-11' ********** *************************************************** DIM FILELIST, FILELISTARR FILELIST = "001. JPG, 002.jpg, 003.jpg, 004.jpg, 007.jpg, 006.jpg, 007.jpg, 008.jpg, 009.jpg, 010.jpg "Filelistarr = Split (filelist,", ") DIM CANPLAY CanPlay = CINT (split (split (navigator.appversion, ";") (1), "") (2)> 5 DIM filterstr filterstr = "ReveAltrans (duration = 2, transition = 23)" Filterstr = filterStr " ; BlendTrans (duration = 2) "If canPlay Then FilterStr = FilterStr "; progid: DXImageTransform.Microsoft.Pixelate (, enabled = false, duration = 2, maxSquare = 25) "FilterStr = FilterStr "; progid: DXImageTransform.Microsoft .Fade (duration = 2, overlap = 0) "filterStr = filterStr " PROGID: DXIMAG eTransform.Microsoft.GradientWipe (duration = 2, gradientSize = 0.25, motion = forward) "FilterStr = FilterStr "; progid: DXImageTransform.Microsoft.Stretch (duration = 2, stretchStyle = PUSH) "FilterStr = FilterStr "; progid: DXIMAGETRANSFORM.MICROSOFT.WHEEL (Duration = 2, spokes = 16) "Filterstr = Filterstr "; progid: DxImageTransform.microsoft.randomdissolve (duration = 2) "Filterstr =</p> <p>FilterStr "; progid: DXImageTransform.Microsoft.Spiral (duration = 2, gridSizeX = 50, gridSizeY = 50)" FilterStr = FilterStr "; progid: DXImageTransform.Microsoft.Slide (duration = 2, bands = 1, slideStyle = SWAP "Filterstr = filterStr "; progid: DxImageTransform.microsoft.Radialwipe (Duration = 2, WipeStyle = clock) Slide Play has a variety of dynamic picture handover effects, but this feature requires your browser to IE5. 5 or above, otherwise you will only see part of the switching effect. ", 64 end if Dim Filterarr Filterarr = split (Filterstr,"; ") DIM PlayIMG_M PlayIMG_M = 5 * 1000 'Switch Time (milliseconds) = 1 SUB CHANGEIMG Do While Filelistarr (i) = "" i = i 1 if i> ubound (filelistarr) THEN I = 0 Loop Dim J I> Ubound (filelistarr) Then i = 0 Randomize J = Int (RND * (Ubound (Filterarr) 1)) IMG.Style.Filter = Filterarr (j) img.filters (0) .apply img.src = filelistarr (i) img.filters (0) .play i = i 1 if i > Ubound (filelistarr) THEN I = 0 Tempimg.src = filelistarr (i) settimeout "changeimg", PlayImg_m End Sub </ script></p> <p><Body bgcolor = "# 000000"> <table width = "100%" height = "100%" border = "0" cellspacing = "0" cellpadding = "0"> <triple = "noscript"> <td align = "Center" style = "color: white"> Sorry, the picture browsing feature requires script support, but your browser has set a ban on script. Please adjust the relevant security options in the browser settings. </ Td> </ tr> <tr style = "display: none" id = "canrunScript"> <td height = "100%" align = "center" valign = "center"> <img id = "img" border = "0"> </ td> <type = "0"> <td> <img id = "tempimg" border = "0"> </ td> </ tr> </ table > <Script language = "vbscript"> noscript.style.display = "none" canrunscript.style.display = "" IMG.SRC = filelistarr (0) setTimeout "ChangeImg", PlayImg_M </ script></p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-3187.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="3187" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: <b>0.031</b>, SQL: <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = '79LnuDHuS1XDggqcjN_2BDo2lVmxzVGB6FDD98b1U5ZxTzkTtfGLFEfgaYxNps19ZpH219sIOXn0SFDbcNTWUIWQ_3D_3D'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>