ASP中Split函数的实例
大家有碰到过要想取一字符串里的某些值而无从下手？有没有觉得看书或教材对split的写法糊里糊涂……如果有此疑问的话，请看下面我对例子的解释，相信您会对这个有一定的了解。
我先介绍一下Split函数的用法:
返回值数组 = Split("字符串","分割符")
假设变量strURL保存着URL值，如strURL = "ftp://username:password@server"，这是我们在ＩＥ中登录到FTP上时的ＵＲＬ形式，如果我们想把其中的username和password取出来的话，该怎么办呢？当然解决的方法有许多，在这里我们只介绍用Split来解决的方法。首先，我们找出分割符。我们发现在这个字符串中，username和password之间有个冒号把它们隔开了，所以我们就把这个冒号作为Split函数的"分割符"来分割整个字符串，最后达到取username和password的目的。代码如下：
strURL = "ftp://username:password@server"
aryReturn = Split(strURL,":")
这样我们就把字符串用冒号分割开了，分割后的结果保存在aryReturn中（aryReturn是一个数组）。
下面我们就来看看这个最终的结果吧，因为Split函数最终返回的是一个数组，所以我们主要就是显示数组中的元素了，就要涉及到一些跟数组有关的函数:IsArray()判断是否数组的函数,LBound()取数组的下标,UBound()取数组的上标。
Response.Write("返回值是否为数组:" & IsArray(aryReturn) & "<br>")
For i = LBound(aryReturn) To UBound(aryReturn)
Response.Write("返回值数组中的元素[" & i & "]：" & Right(aryReturn(i),Len(aryReturn(i))-2) & "<br>")
Next
通过上面的代码，我们看到字符串被分割成三个部分，即："ftp"、"//username"、"password@server"。我们要取username和password需要进一步的处理，我就不多说了，直接给出代码。
取username的代码：
strUsername = Right(aryReturn(1),Len(aryReturn(1))-2)
取password的代码：
'取password我们又用到Split函数了，不过这回的分割符是"@"
aryTemp = Split(aryReturn(2),"@")
strPassword = aryTemp(0)
'我们可以顺便取出server
strServer = aryTemp(1)
'分割符可以是一个字符，也可以是一个字符串。如：
aryReturn = Split("ftp://username:password@server,"//")
注意：
1.一般来说，ASP中可以不声明变量，使用Split函数时，如果要声明返回值的变量的话，只能用Dim，而不能用Redim。虽然说其返回是一个数组，�
相关文档：
2、纯ASP代码生成图表函数——柱图
<%
dim total(12,2)
total(1,1)=56
total(2,1)=7
total(3,1)=-7
total(4,1)=0
total(5,1)=16
total(6,1)=10
total(7,1)=14
total(8,1)=7
total(9,1)=9
total(10,1)=7
total(11,1)=11
total(12,1)=14
total(1,2)="地理"
total(2,2)="化学"
total(3,2)="历史 ......
3、纯ASP代码生成图表函数——折线图
<%dim total(7,3)
total(1,0)="中国经营报"
total(2,0)="招聘网"
total(3,0)="51Job"
total(4,0)="新民晚报"
total(5,0)="新闻晚报"
total(6,0)="南方周末"
total(7,0)="羊城晚报"
total(0,1)="#FF0000,1.5,1,2,公司1"'参数1线条的颜色，参数2线条的宽度，参数3� ......
一、asp.net中导出Execl的方法：
在asp.net中导出Execl有两种方法，一种是将导出的文件存放在服务器某个文件夹下面，然后将文件地址输出在浏览器上；一种是将文件直接将文件输出流写给浏览器。在Response输出时，t分隔的数据，导出execl时，等价于分列，n等价于换行。
1、将整个html全部输出execl
此法将html中所有的内 ......
<%'开始分页
Const MaxPerPage=25
dim totalPut
dim CurrentPage
dim TotalPages
dim j
......
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
Response.Write "父文件夹名字是：" & fldr & "<br>"
If fldr.IsRootFolder = True Then
Response.Write "该文件夹是一根文件夹" & "<br>"
Else
Resp ......
