AJAX随机调用数组中不重复的元素

栏目:建站技术 2020-10-30

读以记事本中的网址,记事本里中有多个网址,每个一行,然后使用AJAX循环请求随机出来的部分不重复的网址
set srmObj = server.CreateObject("adodb.stream")
srmObj.type=1
srmObj.mode=3
srmObj.open
srmObj.Position=0
srmObj.LoadFromFile(Server.MapPath("url.txt"))'读取记事本中的内容
srmObj.Position = 0
srmObj.type=2
srmObj.charset="utf-8"
content=srmObj.readtext()
Set srmObj=Nothing
url_arr =split(content,vbCrLf)'使用记事本中的换行符作为分隔符打散成数组
For I = Lbound(url_arr) to Ubound(url_arr)-1
    url_str=url_str&"'"&url_arr(I)&"',"'组装'1','2','3',这样的字符串
Next
url_str=left(url_str,Len(url_str)-1)'去掉最右边的那个字符,这里即逗号


script代码如下,需要先调用jquery.js文件

function getRandomArrayElements(arr, count) {
    var shuffled = arr.slice(0), i = arr.length, min = i - count, temp, index;
    while (i-- > min) {
        index = Math.floor((i + 1) * Math.random());
        temp = shuffled[index];
        shuffled[index] = shuffled[i];
        shuffled[i] = temp;
    }
    return shuffled.slice(min);
}
var url_arr = [<%=url_str%>];
var rand_url_arr = getRandomArrayElements(url_arr,Math.round(url_arr.length/3));
for(var j = 0; j < rand_url_arr.length; j++){
$.ajax({
    async:false,
    cache: false,
    timeout: 5000,
    type: 'GET',
    url: rand_url_arr[j]
});
}


<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%'读以记事本中的网址,记事本里中有多个网址,每个一行,然后使用AJAX循环请求随机出来的部分不重复的网址set srmObj = server.CreateObject("adodb.stream")srmObj.type=1srmObj.mode=3srmObj.opensrmObj.Position=0srmObj.LoadFromFile(Server.MapPath("url.txt"))'读取记事本中的内容srmObj.Position = 0srmObj.type=2srmObj.charset="utf-8"content=srmObj.readtext()Set srmObj=Nothingurl_arr =split(content,vbCrLf)'使用记事本中的换行符作为分隔符打散成数组For I = Lbound(url_arr) to Ubound(url_arr)-1    url_str=url_str&"'"&url_arr(I)&"',"'组装'1','2','3',这样的字符串Nexturl_str=left(url_str,Len(url_str)-1)'去掉最右边的那个字符,这里即逗号%><script src="js/jquery.js"></script><script type="text/javascript">function getRandomArrayElements(arr, count) {    var shuffled = arr.slice(0), i = arr.length, min = i - count, temp, index;    while (i-- > min) {        index = Math.floor((i + 1) * Math.random());        temp = shuffled[index];        shuffled[index] = shuffled[i];        shuffled[i] = temp;    }    return shuffled.slice(min);}var url_arr = [<%=url_str%>];var rand_url_arr = getRandomArrayElements(url_arr,Math.round(url_arr.length/3));for(var j = 0; j < rand_url_arr.length; j++){$.ajax({    async:false,    cache: false,    timeout: 5000,    type: 'GET',    url: rand_url_arr[j]});}</script>


相关阅读

中英文混和的字符串的ASCII与UNICODE编码与解码

2020-10-10200

//1:获取中英文混合字符的编码(ASCII码与UNICODE码)$str=&quot;官网制作:网巢网络&quot;;foreach(math($str)as$key=&gt;$value){if(preg_match(&#39;/^[x{4e00}-x{9fa5}]+$/u&#39;,$value)){//中文,注意中文这里暂时不转换,因为无法通过chr…

用火狐打开百度一直加载s1.bdstatic.com的解决办法

2020-10-10738

一直用火狐浏览器,火狐浏览器插件多,很合适网页开发人员使用,以前一直用的好好的,但是今天使用的时候突然发现没有以前好用了,打开百度的官网一直很卡,通过FIREBGU发现在打开百度官网的时候一直会加载s1.bdstatic.com这个网站,无语,怎么打开百度的官网还需要链接s1.bdstatic.com这个网站这个网站吗?难道是百度被黑了,或者是自己的浏览器被…

正则表达式收集汇总

2020-12-12102

搜索:empty(($)tr[&#39;([a-z]{1,})&#39;]),可以查找这样的empty($tr[&#39;digest&#39;]),然后可以替换成!$digest替换:!$1$2匹配A标签的超连接的正则表式如下$pattern=&quot;/&lt;a[^&gt;]+?href=[&quot;&#39;]?([^&quot;&#39;]+)…

手机访问电脑网时自动跳转代码

2020-10-10103

4G降临,移动网站已经一发不可收拾,pc端和移动端官网并存。如何让别人访问你的pc端的官网直接跳转到移动端的网站呢?各位看官,小二上代码!来了!varurl=window.location.href;varurl_match=/vit=1$/i;if(!url.match(url_match)){if(navigator.userAgent.match(/(…

为什么小程序的页面有二次跳转时会瞬间显示一下第一次的页面再跳转呢?

2020-10-10470

为什么小程序的页面有二次跳转时会瞬间显示一下第一次的页面再跳转呢?navigateToredirectToswitchTabtabBar先来看示例代码并且在微信开发者工具上测试下面看示例代码共有三个页面,分别是indexproductshowcartindex的js与wxmlPage({/*跳转到商品详情*/toProductshow:function(ev…

小程序列表多个批量倒计时

2020-10-10120

Page({onShow(){letthat=this;vardates={datetime:[{dat:0,name:&#39;zs&#39;},{dat:6,name:&#39;ls&#39;},{dat:10,name:&#39;ww&#39;}]}//console.log(dates)//数据letlen=dates.datetime.length…