易截截图软件、单文件、免安装、纯绿色、仅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 连接 mysql 代码

 连接代码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 ......

asp页面传值小结

按照跳转页面的方式,一一来总结
首先说接受页面获取参数的方式:
  1)request.querystring。只要url中含有参数,即可传递
      比如 地址:index.aspx?label=da
              则用Request.QueryString["label"]即 ......

VISTA+IIS+ASP架站

VISTA+IIS+ASP架站                      
1.      VISTA裝IIS
1-1.           控制面板中“程序和功能”的位 ......

asp多风格分页类

 <%
'asp多风格分页类
'使用范例
'==========================================================================
'Set test = New Page '创建啦
'test.CurrentPage=1 '自己去读取拉,当前的页数
'test.temp="{N1}{N2}{N3} {N4}"'这里是显示的模版,自己可以定义,至于标签,可以自己去那个类里找
'test.Exec "S ......

asp Access数据备份,还原,压缩类

 <!--#include file="config.asp" -->
<!--#include file="Fun.asp" -->
<%
'数据库管理类
class Datas
'备份
public sub Bk()
Set fso=server.createobject("scripting.filesystemobject")
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号