几个常用的ASP自定义函数

<% Rem ###################################################################### Rem ## 隐藏执行时间 Sub

目前还是有BUG的,最新的测试页面在: 正则分析页面在: 发现BUG请在后面留言,谢谢. 1.31修正 src=后面有空格不能正确匹配.已修正. src=''为空时出错.已修正. 发现BUG:

程序代码 <% '功能:定义转换为Javascript字符串输出(约定Javascript中，用单引号引用字符串) '来源:http://www.knowsky.com/asp.asp Fu

程序代码 <% '功能:用来在指定CheckBox的哪几个值上打勾 '来源:http://www.knowsky.com/asp.asp Function CheckBoxScript(By

程序代码 <% '功能:判断一个值是否存在于数组 '来源:http://www.knowsky.com/asp.asp Function InArray( sValue, aArray )

<% Function GetRsRows(oRs) Dim aArray ReDim aArray(0, -1) If TypeName(oRs) = "Records

<% '功能:相当于HTMLEncode2的升级.不需要循环整个字符串. '来源:http://www.knowsky.com/536459.html Function BHTML(s)

<% '取字段数据每个汉字的拼音首字母 Function getpychar(char) tmp = 65536 + Asc(char) If(tmp>= 45217

parse_url() 本函数解析一个 URL 并返回一个关联数组，包含在 URL 中出现的各种组成部分。 本函数不是用来验证给定 URL 的合法性的，只是将其分解为下面列出的部分。不完整的 URL

<% '月份转换到中文 Function MonthToCH(TheMonth) Dim mm mm=split("一,二,三,四,五,六,七,八,九,十,十一,十二",",") If IsNu