ASP常用函数:GetRsRows()

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

目前还是有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 )

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

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

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

程序代码 <% '功能:输出字符串加换行 '来源:http://www.knowsky.com/asp.asp Function WriteLn(sString) Response.

'缓存时间，单位分钟 Const WebCacheTime = 20 '缓存标示，用于一个空间安装多个系统时使用 Const WebCacheFlag = "Cache" ' 设置缓存 缓存名，缓