在上一篇《asp.net中javascript与后台c#交互》中实现了前端脚本javascript调用后台的数据库的数据。但新的问题又出现了，由于地图上有多个点，所以存放google maps的longitude和latitude有多个值，这就需要利用数组来存放经纬度，问题又演变成如何把后台的c#数组传给前端的js。由于刚接触asp.net和前端这块，基本是零基础，所以这个问题困扰了很久，上网查资料，后来在一篇文章中看到解决办法，但文章中的方法处理的是定长数组，而...
asp中REDIM的功能是动态定义数组长度 动态数组里面的一个语句，只能出现在过程里面，可以多次使用。可以改变数组大小，和维数。 格式： REDIM [Preserve] 数组名（下标1[下标2....]） Preserve 保留动态数组的内容（不用的话，每次执行REDIM语句，当前存储的语句会全部丢失） 例如：代码如下: Dim DynArray() 定义数组DynArray()为动态数组 REDIM Preserve DynArray(20)为该数组分配元数个数 这样对编程中一些动态的改变数组是非常...
filename=dir("盘符:\*.*") i = 0 do while filename = "" array1 (i)=filename i = i + 1 filename = dir("c:\*.*") loop VB好象也有比较好的方法，但是我不太清楚了 VBScript Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("盘符:\") Set fc = f.Files i = 0 For Each f1 in fc array1(i)=f1.name i=i+1 Next 资料来源：碧波山庄Visual Basic http://ctsvb.126.com
函数代码： 代码如下:<%******************************************************* 过滤数组重复函数名称：array_no(cxstr1,cxstr2,cxstr3) cxstr1：任意的字符串，自动识别 cxstr2：cxstr1中分割符号。 cxstr3：提取结果中的某一位置字串，等于0时返回为全部，大于数组下标时返回最后. 使用于二维数组 ******************************************************* function array_no(cxstr1,cxstr2,cxstr3) if len(cxstr3) > 0 the...
数组是有序数据的集合。数组中的元素可以不属于同一个数据类型。用一个统一的数组名和下标来唯一地确定数组中的元素，更改其中一个元素并不会影响其它元素。数组的下标是有界的，分为下界和上界。数组可以用Dim、Private、Public或Static来声明，它们的语法格式相同。下面只介绍用Dim声明数组的方法。 1．数组的定义与声明 数组的定义语法如下： Dim 数组名( [[下标下界 To ] 下标上界] ) [As 数据类型] 例如（假设在当前模块中 数...
定义简单数组 有两种方法在asp中定义和初始化数组，让我们看看每种的例子： 方法一： MyArray = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct", "Nov","Dec") 数组大小由初始化元素个数决定。 方法二： 代码如下:Dim myArray(2) 指定数组大小myArray(0)="Jan" myArray(1)="Feb" 数组动态扩展代码如下:DIM myArray()REDIM myArray(20) 将数组大小重新定义为20 ReDim Preserve MyArray(i) Preserve 保留数...
语法说明： Filter 函数 返回下标从零开始的 数组，其中包含以特定过滤条件为基础的字符串数组的子集。 Filter(InputStrings, Value[, Include[, Compare]]) 参数 InputStrings 必选项。一维数组，要在其中搜索字符串。 Value 必选项。要搜索的字符串。 Include 可选项。Boolean 值，指定返回的子字符串是否包含 Value。如果 Include 为 True，Filter 将返回包含子字符串 Value 的数组子集。如果 Include 为 False，Filter 将返回不...
所以对应的asp处理代码如下 代码如下:dedearr=split(xiangguanid2,chr(13)) '分割成数组for dede=0 to ubound(dedearr)-1 '数组长度减一，因为最后有两个chr(13)换行。dedearr2=split(dedearr(dede),"|") dedetitle=dedearr2(1) dedeurl=dedearr2(0) if dedetitle<>"" and dedeurl<>"" then xiangguanart2=xiangguanart2&"<li><a href="""&dedeurl&""" title="""&dedetitle&""" target=""_blank"">"&dedetitle&"</a></li>" end if ...
因为要写个东西用到，所以百度了一下，居然有朋友乱写，而且比较多，都没有认真测试过，只对字符可以，但是对数字就不可以，而且通用性很差，需要修改才可以真正使用。没办法就自己写了，经过测试完全没有问题，而且思路很方便，代码很短，如下： 代码如下:<% function cxarraynull(cxstr1,cxstr2) if isarray(cxstr1) then cxarraynull = "对不起，参数1不能为数组" Exit Function end if if cxstr1 = "" or isempty(cxstr1) the...
代码如下:Class Vector Private vector_datas() Private initial_capacity '初始化容量 Private capacity_increment '容量增量 Private element_count '元素数 Private max_capacity '总容量 Private Sub Class_Initialize() RemoveAll End Sub Public Function RemoveAll() element_count = 0 initial_capacity = 10 capacity_increment = 10 max_capacity = initial_capacity ReDim vector_datas(initial_capacity) End Function...
一个动态数组 a，如果你已经使用redim 语句给它设定了大小，那么在此之后使用 ubound(a) 就可以得到它的上边界。 如果你没有使用 redim 语句给它设定大小，直接使用 ubound(a) 函数，那么运行时会报错，并会中断程序的执行.我们恰恰利用这一点，可以知道这个数组还没有任何元素。于此同时，我们却不想程序中断执行，那么可以在 ubound(a) 函数执行前加上一句 代码如下:on error resume next 把本功能写成一个函数 function get_el...
目前还是有BUG的,最新的测试页面在: http://www.gxlsystem.com/getimg.asp 正则分析页面在: http://jorkin.reallydo.com/article.asp?id=380 发现BUG请在后面留言,谢谢. 1.31修正 src=后面有空格不能正确匹配.已修正. src=''为空时出错.已修正. 发现BUG: 图片路径有多个空格时只能保留一个.未修正. 2.18修正 图片路径有多个空格时只能保留一个的BUG.已修正. 代码如下:<% '功能:获取全部图片地址,保存到一个数组. '来源:http://...
asp用客户端数组存放数据，这种应用我已经见过很多。但最近在研究几套流量交换联盟系统时，这种技术才引起了我的注意。 下面我讲讲如何运用，先给出个没有结合ASP，就单纯适用javascript的例子。 1.js 代码如下:var a = new Array(); var temp = "<table>"; a[0] = new Array(1,"阿会楠","男"); a[1] = new Array(2,"小白兔","女"); a[2] = new Array(3,"小琦","女"); for(var i = 0;i < a.length;i ++) { temp =...
如何取得数组中的最大值(由71port_80端口提供) 该函数的作用是取得一组数组中最大的一个值，非常实用且精典，值得收藏! 代码如下:snum="345,231,56,786,1100,356,1200,300,685,111,134,765" function GetMax(str) num=split(str,",") max=num(0) for ii=0 to ubound(num) if cint(num(ii))>cint(max) then max=num(ii) response.Write "num="&num(ii)&",max="&max&"<br />" next GetMax=max end function response.W...
代码如下:<%Function MoveR(Rstr) Dim i,SpStr SpStr = Split(Rstr,",") For i = 0 To Ubound(Spstr) If I = 0 then MoveR = MoveR & SpStr(i) & "," Else If instr(MoveR,SpStr(i))=0 and i=Ubound(Spstr) Then MoveR = MoveR & SpStr(i) Elseif instr(MoveR,SpStr(i))=0 Then MoveR = MoveR & SpStr(i) & "," End If End If Next End Function response.write MoveR("abc,abc,dge,gcg,dge,gcg,die,dir,die")%> 结果是：abc,dge,g...