asp-- 函数

最新推荐文章于 2025-08-19 21:04:35 发布

原创最新推荐文章于 2025-08-19 21:04:35 发布 · 505 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

asp 专栏收录该内容

17 篇文章

订阅专栏

1.随机产生数字跟字母组合的字符串

function rndStr(num)
'vCode(62)：存放所得字符串中的每个字符在cCode中的位置的数组’
Dim vCode(62),vCodes,i,tempNum
'判断num
tempNum=num
if IsNumeric(num) then
if tempNum>62 or tempNum<1 then
response.write"输入有误"
exit function
end if
else
response.write"输入有误"
exit function
end if

tempNum=cint(tempNum) 'cint()中最大只能是32767，2的15次方-1

'cCode：取值范围

Const cCode = "0123456789abcdefghiJklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Randomize
For i = 0 To tempNum-1
vCode(i) = Int(Rnd * 62)
vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)
Next
rndStr=vCodes
end function

2.正则表达式,有匹配就输出位置，字符串

Function RegExpTest(patrn, strng)
Dim regEx, i, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(strng) ' 执行搜索。

For Each i in Matches ' 遍历 Matches 集合。
RetStr = RetStr & "匹配 " & I & " 位于 "
RetStr = RetStr & i.FirstIndex & ". Match Value is "'
RetStr = RetStr & i.Value & "'." & vbCRLF
Next

if RetStr="" then RetStr="无匹配"
RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))