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
相关文档：
GridView 为动态绑定 DataSet，结果 (DataSet)dt = grid1.DataSource 拿不到东西，想偷懒直接添加行不行了， 只好用最笨的办法，把GridView的东西倒成DataSet，然后在DataSet里加行，最后回绑gridview
try里面的
DataTable dtable = new DataTable("tb1");
&n ......
<%
'asp多风格分页类
'使用范例
'==========================================================================
'Set test = New Page '创建啦
'test.CurrentPage=1 '自己去读取拉,当前的页数
'test.temp="{N1}{N2}{N3} {N4}"'这里是显示的模版,自己可以定义,至于标签,可以自己去那个类里找
'test.Exec "S ......
1.UpLoadClass.asp
<%
Class UpLoadClass
Private p_MaxSize,p_FileType,p_SavePath,p_AutoSave,p_Error
Private objForm,binForm,binItem,strDate,lngTime
Public FormItem,FileItem
Public Property Get Version
Version=""
End Property
......
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 ......
ASP函数与VBSCRIPT类似，以下举一些常用的函数
Array()
函数返回一个数组
表达式 Array(list)
允许数据类型: 字符，数字均可
实例： <%
Dim myArray()
For i = 1 to 7
Redim Preserve myArray(i)
myArray(i) = WeekdayName(i)
Next
......
