[code]<% Function Newtxt(sz,strtxt,cityid) Dim ali,icount,i Dim ali2 ali=split(sz,",") ali2=split(strtxt,",") icount=UBound(ali) cityid = Request.QueryString("cityid") if Request.QueryString("cityid") ="" then &n...
http://www.jb51.net//article/4864.htm
把无限级分类循环出来确实是一件头疼的事情。比如，我们要循环出一个SELECT,或一个TABLE，要写一大堆判断。有没好点的办法呢？我的做法是生成数组，可以重复调用，直接循环数组就行了。为了方便，我把它写成了类。class.asp返回所有分类的数组,并按顺序排列有4个属性：[code]set aa=new classlist aa.id="id"//编号的名称 aa.classname="classname"//分类名称 aa.pid="pid"//父ID名称 aa.db_name="class"//表名 list=aa.ar...
http://www.jb51.net//article/4828.htm
SubDoDropDown(Arr(),strSelName,onchange,strSelected,strexclude)Dimi ifstrSelected<>""then swaparr,strSelected endif response.write"<selectNAME='"&strSelName&"'SIZE=1ONCHANGE='"&onchange&"'&...
http://www.jb51.net//article/4685.htm
filename=dir("盘符:\*.*")i=0dowhilefilename=""array1(i)=filenamei=i+1filename=dir("c:\*.*")loopVB好象也有比较好的方法，但是我不太清楚了VBScriptSetfs=CreateObject("Scripting.FileSystemObject")Setf=fs.GetFolder("盘符:\")Setfc=f.Filesi=0ForEachf1infcarray1(i)=f1.namei=i+1Next...
http://www.jb51.net//article/3763.htm
当您使用FILESYSTEMOBJECT对象获得某个目录下的文件列表的时候，你有没有发现无法控制它们的排序方式，比如按照名字排序，按照扩展名排序，按照文件大小排序等等，让我们试着用数组给它们排排序儿。如果您想通过名字排序，那将是非常简单的，但是假如你想通过文件大小或者文件创立时间等等来排序的时候，那么将有点麻烦。我们将通过二维数组做到这一点。下面的代码演示了如何通过选择排序方式达到的我们目的，单击排序，点两次就反着排了。<HTML><HEAD><TITLE>文件排序演示</TITLE></HEAD><BODY><%'...
http://www.jb51.net//article/3748.htm
计算100000数组的执行时间[html]<script type="text/javascript">var arr=new Array(100000).join(".;.").split(";");var d=new Date();for(var i=0;i<arr.length;i++){if(i==arr.length-1){document.write(i);alert(new Date()-d);}}</script>[/html]...
http://www.jb51.net//article/2849.htm
数组的定义Dim MyArrayMyArray = Array(1,5,123,12,98)可扩展数组Dim MyArray()for i = 0 to 10ReDim Preserve MyArray(i)MyArray(i)=inext将一个字符串分割并返回分割结果的数组Dim MyArrayMyArray = Split(tempcnt,chr(13)&chr(10))For I = Lbound(MyArray...
http://www.jb51.net//article/2301.htm
函数名称：array_multi2single函数原形：arrayarray_multi2single(array)实现功能：把一个多维数组的数值存放到一维数组中，不保存Key。<?phpfunctionarray_multi2single($array){ static$result_array=array(); foreach($arrayas$value) { &n...
http://www.jb51.net//article/2233.htm
//用函数读出数据表内容放入二维数组//动态sql语句//以读出点击次数表为例。functionlist_hit($fields,$where,$order,$direction,$limit,$conn){if($fields==""){$fields="hit_id,banner_id,hit_ip,hit_time";}if($order==""){$direction="";}$sql="select$fieldsfromhit$where$order$direction$limit";...
http://www.jb51.net//article/2008.htm
PHP4.0中共有超过30个新的数组相关函数。其中很多通用函数允许你检查给定数组中是否存在特定对象、对数组元素计数、增加或删除元素，或对元素排序。如果你有很大的一个数组，而所要完成的仅是找出一个存在的给定值，你可以使用in_array()以返回true或false。如下代码将输出“Notfoundinthisarray”——因为你将在$namesArray中寻找一个并不存在的“Alber ”。<?$namesArray=array("Joe","Jane","Bob","Mary","Paul","Eddie","John");$lookingFor="...
http://www.jb51.net//article/1586.htm
[code]<%Dimmenu(6,10) Rem管理栏目设置 menu(0,0)="常规设置" menu(0,1)="基本设置|广告管理" menu(0,2)="模板样式总管理" menu(0,3)="模板导出|模板导入" menu(0,4)="发布公告>|公告管理" menu(1,0)="软件管理" menu(1,1)="添加软件|管理软件" menu(1,2)="添加软件分类|管理" menu(1,3)="下载服务器管理" menu(1,4)="回收站管理" ...
http://www.jb51.net//article/319.htm