functions.asp

来自「是一个关于小学信息化教育的平台,提供了学校论坛,和聊天室功能!」· ASP 代码 · 共 63 行

<%
Function CutName(str)
Dim regEx
dim I
Set regEx = New RegExp
regEx.Pattern = "[\sa-zA-Z0-9_-]"
TempName = ""
Num = 0
EndNum = 10
I2 = EndNum
For I = 1 to 10
		TempStr = Mid(Str,i,1)
		If TempStr = "" Then
		End If


		if regEx.test(TempStr) Then		'如果是英文字符
			EndNum = EndNum - 1
		Else
			EndNum = EndNum - 2
		End If

		If EndNum >=0 Then
			TempName = TempName & TempStr
			If Mid(Str,i+1,1) = "" Then
			I2 = "0"
			End If
		Else
			Exit For
		End If

NExt

If I2 = "0" Then
CutName = TempName
Else
CutName = TempName & ".."
End If
End Function

function checkfriend(TempName2)
'建立正则表达式
Dim regEx
Set RegEx = New RegExp
regEx.pattern = "%"&TempName2&"%"
'response.write regex.pattern
If RegEx.Test(MyFriendName) Then
	CheckFriend = "yes"
Else
	CheckFriend = "No"
End If
End function

Function ReplaceTest(patrn, replStr,replStr2)
  Dim regEx                                    ' 建立变量。
  Set regEx = New RegExp                      ' 建立正则表达式。
  regEx.Pattern = patrn                             ' 设置模式。
	regEx.global = true
  regEx.IgnoreCase = True                      ' 设置是否区分大小写。
  ReplaceTest = regEx.Replace(replStr2, replStr)    ' 作替换。
End Function

%>