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
相关文档:
注意:系统需要FSO权限、XMLHTTP权限
系统包括两个文件,其实可以合并为一个。之所以分为两个是因为部分杀毒软件会因为里边含有FSO、XMLHTTP操作而被认为是脚本木马。
调用时,需要在ASP页面的最上边包含主文件,然后在下边写下以下代码
Set MyCatch=new CatchFile
MyCatch.Overdue=60*5 &n ......
Function WriteToUTF(content,sFilen)'content为替换后的字符串,filename为生成的文件名
dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
&nb ......
连接代码1直接输入
<%
Dim my_conn, sql,rs
Set my_conn = createobject("ADODB.Connection")
my_conn.open = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=localhost;"_ '服务器名
& "DATABASE=mybase;"_ '数据库名
& "UID=root;PWD=111; OPTION=35;" '用户名和密码
Set rs = Server.Crea ......
指针在C中经常提到,但是任何一种语言中都隐藏着指针。
asp也是如此,在我们传递参数给function或者sub时,我们如果传递的是一个变量,那么asp会把这个变量地址传过去,所以如果你在函数和过程里面更改这个参数,那么原变量也会改变。
'函数例子
Dim i1,i2
i1=1
'=======================
Function toadd(i)'或 ......