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>


相关阅读

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

2020-10-10695

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

纯CSS无表达式实现未知尺寸图片等比缩放(支持IE7及以上)

2020-10-1026

在制作网页的时候,常常会遇到一种情况,我们需要把一些未知尺寸的图片放在一个固定宽高的容器中,这时候我们需要考虑这样的问题:只给图片设置宽度或高度的其中一项可以实现图片等比缩放,但图片可能超出容器大小。给图片设置固定的宽高可能导致图片变形。有些人可能会简单地用JavaScript解决:代码如下:&lt;imgsrc=&quot;image-url.png&qu…

常用批量替换的正则表达式-批量删除tppabs

2020-10-1056

匹配一行的开头,然后在一行开头前加入指定字符串,比如修改hosts文件在域名前面加入127.0.0.1^(.{1,})127.0.0.1$1如果是sublimeText编辑器,按ctrl+H,然后在弹出的窗口中点击“.*”,如果要匹配一行的行尾,则是^(.{1,})$匹配A标签的超连接的正则表式如下$pattern=&quot;/&lt;a[^&gt;]+?…

360浏览器header的Location跳转无效的解决办法

2020-10-10428

在百度里搜索这个问题的答案,有的说是BOM头导致的问题,有的点是因为之前有输出语句导致的问题,有的话是Location和后面的:(冒号)之间有空格导致的问题,还有的话是因为没有加上exit()导致的问题,但是这几项都排除之外,用360浏览器8.1版本的仍然会有这种情况的发生,那么可以接着继续往下看如果用360浏览器8.1版本的打开“你的域名/admin/te…

小程序的下单与支付的业务流程

2020-10-10220

1:小程序携带商品信息调用第三方服务器的下单API2:第三方服务器下单API对小程序带来的商品作库存量检测3:如果检测通过,第三方服务器就会保存这个订单并且告之小程序下单成功4:小程序调用第三方服务器的支付api5:第三方服务器API调用微信的预订单API[WxPayApi::unifiedOrder](注意第三方服务器是无法完成支付的,这个订单实际是在微信…

FTP上的文件不宜在线编辑

2022-04-4673

知道FTP软件使用的都知道,打开软件登录某一空间后,一边是本地的文件,另一边是服务器上的文件,而FTP软件就是连接本地与虚拟主机的桥梁,因为有了该软件,线上线下的上传下载就显得非常的简单。一般情况下,如果要对服务器上的文件进行修改,可以先将其下载到本地,再用dr将其打开进行编辑,待编辑到满意后,再上传上去,覆盖以前的文件,或是将以前的文件改个名字,直接上传上…