再发几个ASP不错的函数

1. ********************  
2. '函数作用:根据条件真假返回选定值中的某个  
3. '参数:blnCondition:条件变量,varResultTrue:条件为真时返回值,varResultFalse:条件为假时返回值  
4. Function IIF(blnCondition, varResultTrue,varResultFalse)  
5.    If CBool(blnCondition) Then  
6.       IIF = varResultTrue  
7.    Else  
8.       IIF = varResultFalse  
9.    End If  
10. End Function  
11.  
12. '********************  
13. '函数作用:判断某个字符串元素是否在给定枚举中  
14. '参数:sEle:待判断的字符串,sArray:指定枚举  
15. '举例:根据扩展名判断是否图片文件:InArray(strFileExt,"jpg,gif,bmp,png")  
16. Function InArray(sEle,sArray)  
17.     Dim aArray  
18.     Dim i  
19.     aArray = Split(sArray,",")  
20.     For i = 0 To UBound(aArray)  
21.         If Trim(sEle) = Trim(aArray(i)) Then  
22.             InArray = True  
23.             Exit Function  
24.         End If  
25.     Next  
26.     InArray = False  
27. End Function  
28. '********************  
29. '函数作用:判断某个字符串是否符合正则表达式  
30. '参数:strString:字符串,strPattern:正则表达式  
31. Function doReTest(strString, strPattern)  
32.     Dim oRE  
33.     Set oRE = New RegExp  
34.     oRE.Pattern = strPattern  
35.     oRE.IgnoreCase = True  
36.     doReTest =  oRE.Test(strString)  
37.     Set oRE = Nothing  
38. End Function 
39. '********************  
40. '函数作用:正则提取  
41. '参数:string:字符串,patrn:正则表达式  
42. '返回:逗号分割的结果数组集成  
43. Function doReExec(strng,patrn)  
44.   Dim regEx, Match, Matches,RetStr      ' 创建变量。  
45.   Set regEx = New RegExp         ' 创建正则表达式。  
46.   regEx.Pattern = patrn          ' 设置模式。  
47.   regEx.IgnoreCase = True         ' 设置为不区分大小写。  
48.   regEx.Global = True         ' 设置全局适用。  
49.   Set Matches = regEx.Execute(strng)   ' 执行搜索。  
50.   For Each Match in Matches      ' 对 Matches 集合进行迭代。  
51.     RetStr = RetStr & Match.Value & "," & vbCRLF  
52.   Next  
53.   doReExec = RetStr  
54. End Function  
55. 复制代码 '********************  
56. '函数作用:显示分页链接  
57. '参数:lngCurPage:当前页是第几页,lngPageCount:一共几页,strSueryString:分页链接需要附加的QueryString变量  
58. Sub showPageNav(lngCurPage,lngPageCount,ByVal strQueryString)  
59.     Response.Write "当前第" & lngCurPage & "页,共:" & lngPageCount & "页"  
60.     Dim i,j,k  
61.     If lngCurPage = 1 Then                    '如果是第一页  
62.         '如果lngPageCount小于10,则导航页最多到lngPageCount页  
63.         If lngPageCount < 10 Then  
64.             j = lngPageCount  
65.         Else  
66.             j = 10  
67.         End If  
68.         For i = 2 To j  
69.             Response.Write("<a href=""?" & strQueryString & "&p=" & i & """>" & i & "</a> ")  
70.         Next  
71.     ElseIf lngCurPage = lngPageCount Then    '如果是最后一页  
72.         '如果lngPageCount小于10,则导航起始从1开始  
73.         If lngPageCount < 10 Then  
74.             j = 1  
75.         Else  
76.             j = lngPageCount - 10  
77.         End If  
78.         For i = j To lngPageCount - 1  
79.             Response.Write("<a href=""?" & strQueryString & "&p=" & i & """>" & i & "</a> ")  
80.         Next  
81.         Response.Write(lPageCount)  
82.     Else                                    '如果是中间的页  
83.         If lngCurPage <= 5 Then  
84.             j = 1  
85.         Else  
86.             j = lngCurPage - 5  
87.         End If  
88.         If lngPageCount <= lngCurPage + 5 Then  
89.             k = lngPageCount  
90.         Else  
91.             k = lngCurPage + 5  
92.         End If  
93.         Response.Write("<a href=""?" & strQueryString & "&p=" & 1 & """>" & "<<" & "</a>  ")  
94.         For i = j To lngCurPage - 1  
95.             Response.Write("<a href=""?" & strQueryString & "&p=" & i & """>" & i & "</a> ")  
96.         Next  
97.         Response.Write(lngCurPage & " ")  
98.         For i = lngCurPage + 1 To k  
99.             Response.Write("<a href=""?" & strQueryString & "&p=" & i & """>" & i & "</a> ")  
100.         Next  
101.         Response.Write(" <a href=""?" & strQueryString & "&p=" & lPageCount & """>" & ">>" & "</a>")  
102.     End If      
103. End Sub  
104. '********************  
105. '函数作用:当前页请求方式是否为POST  
106. '说明:用于在同一页面处理显示和数据操作，当PostBack()为真时说明提交表单至当前页，应进行数据后台操作  
107. Function PostBack()  
108.     If UCase(Trim(Request.ServerVariables("REQUEST_METHOD"))) = "POST" Then  
109.         PostBack = True  
110.     Else  
111.         PostBack = False  
112.     End If  
113. End Function  
114. '********************  
115. '函数作用:返回执行长度的随机字符串  
116. '参数:Length:长度  
117. Function GenRadomString(Length)   
118.     dim i, tempS, v   
119.     dim c(39)   
120.     tempS = ""   
121.     c(1) = "a": c(2) = "b": c(3) = "c": c(4) = "d": c(5) = "e": c(6) = "f": c(7) = "g"   
122.     c(8) = "h": c(9) = "i": c(10) = "j": c(11) = "k": c(12) = "l": c(13) = "m": c(14) = "n"   
123.     c(15) = "o": c(16) = "p": c(17) = "q": c(18) = "r": c(19) = "s": c(20) = "t": c(21) = "u"   
124.     c(22) = "v": c(23) = "w": c(24) = "x": c(25) = "y": c(26) = "z": c(27) = "1": c(28) = "2"   
125.     c(29) = "3": c(30) = "4": c(31) = "5": c(32) = "6": c(33) = "7": c(34) = "8": c(35) = "9"   
126.     If isNumeric(Length) = False Then   
127.         Response.Write "A numeric datatype was not submitted to this function."   
128.         Exit Function   
129.     End If   
130.     For i = 1 to Length   
131.         Randomize   
132.         v = Int((35 * Rnd) + 1)   
133.         tempS = tempS & c(v)   
134.     Next   
135.     GenRadomString = tempS   
136. End Function