web学习吧　2006-12-16　来源:　收藏本文

<%
' Company: Sabra Inc
' Author: Dave Hoffenberg
' Function: Finds a value within a delimited list
' Freeware

Function ListFind(value,list,delim)

If list <> "" Then

arr = split(list,delim)

For i=0 to ubound(arr)

If arr(i) = value Then
Match = 1
Exit For
Else
Match = 0
End If

Next

ListFind = Match

Else

ListFind = 0

End If

End Function

strList = "1,2,3"
response.write ListFind("1",strList,",")

response.write "<br>"

strList = "a-b-c"
response.write ListFind("a",strList,"-")
%>

• ·asp生日自动提醒小程式
• ·vbscript和javascript互相调用
• ·数字字串（钱）转换为中文（大写）
• ·下拉式互动列表框(EC潮流网同学录之真情留
• ·关于vbscript 与 javascript如何传递变量（
• ·在网页中实现OICQ里的头像选择的下拉框
• ·集合sohu、SINA、YAHOO等搜索引擎的小程序
• ·页面自动刷新，又不用让用户按回车键来提交
• ·收藏夹里的小图标
• ·表单填写时用 回车 代替 TAB 的实现方式
• ·asp中的一个奇怪的函数
• ·用 PerlScript 寫 ASP 網頁
• ·JScript 方法 - log 方法
• ·通过地址栏传递参数.通过url传递参数
• ·JScript 方法 - localeCompare 方法
• ·怎么在html中include一个文件内容