易截截图软件、单文件、免安装、纯绿色、仅160KB

asp数组使用


在asp数组定义中,可以直接定义,也可以使用Array函数定义..
先看用Array()函数定义例子:
<%
dim MyArray
MyArray=Array("天涯风云","小小程序员")
%>
<p><%=MyArray(1)%></p>
返回结果:小小程序员
直接定义:
<%
dim MyArray(2)
MyArray(0)="天涯风云"
MyArray(1)="小小程序员"
%>
<p><%=MyArray(1)%></p>
返回结果:小小程序员
二维数组的定义;
’;yyh.asp
<%
dim MyArray(2,2)
MyArray(1,1)="天涯风云"
MyArray(1,2)="小小程序员"
MyArray(2,1)="小小小程序员"
MyArray(2,2)="天天涯风云"
%>
<p><%=MyArray(2,1)%></p>
返回结果:小小小程序员
动态数组
dim arr()
redim arr(2)
redim arr(4)重新定义一个数组,以前的值都不保留
redim preserve arr(5)保留以前的值
可以使用变量传递数组长度.
abc=34
redim thearr(abc)
例子:
<%
dim myarr()
redim a(4)
a(0)="天涯风云"
a(1)="风云天涯"
a(2)="小小程序员"
a(3)="程序员小小"
redim preserve a(8)   ’;保留原数组的值.
a(4)="程序员小小1"
a(5)="程序员小小2"
a(6)="程序员小小3"
a(7)="程序员小小4"
with response
.write a(0)& "<br>"
.write a(1)& "<br>"
.write a(2)& "<br>"
.write a(3)& "<br>"
.write a(4)& "<br>"
.write a(5)& "<br>"
.write a(6)& "<br>"
.write a(7)& "<br>"
end with
%>
数组的长度统计:UBound()函数
<%
dim a()
dim l
redim a(4)
a(0)="天涯风云"
a(1)="风云天涯"
a(2)="小小程序员"
a(3)="程序员小小"
redim preserve a(8)
a(4)="程序员小小1"
a(5)="程序员小小2"
a(6)="程序员小小3"
a(7)="程序员小小4"
l=UBound(a)
for i=0 to l-1
response.write a(i)& "<br>"
next


相关文档:

ASP通过cookie实现自动记住密码的功能

 ASP通过cookie实现自动记住密码的功能
把以下代码加入验证页:
<%if Trim(Cstr(request.QueryString("check")))="true" then ‘用来判断是否有选择记住密码
Response.Cookies("UserCookie")("username") = Trim(Cstr(request.Form("username")))
Response.Cookies("UserCookie")("passwords") = trim ......

ASP用ADODB.Stream写UTF

Function WriteToUTF(content,sFilen)'content为替换后的字符串,filename为生成的文件名
 dim objStream 
   Set objStream = Server.CreateObject("ADODB.Stream")  
     With objStream  
     .Open  
 &nb ......

关于asp函数和过程的变量是值还是指针

 指针在C中经常提到,但是任何一种语言中都隐藏着指针。
asp也是如此,在我们传递参数给function或者sub时,我们如果传递的是一个变量,那么asp会把这个变量地址传过去,所以如果你在函数和过程里面更改这个参数,那么原变量也会改变。
'函数例子
Dim i1,i2
i1=1
'=======================
Function toadd(i)'或 ......

asp上传类2

 1.html代码  formname是表单name,editname是文件域name,uppath是上传文件保存路径.
<input name="qtxx" type="text" id="qtxx" size="50" />
 
<input type="button" name="Submit22" value="上传图片" onClick="window.open('upload.asp?formname=from1&editname=qtxx&uppath ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号