tso-func.asp

来自「金路网络硬盘====特首快传系统 (Tso upload system 1.0)」· ASP 代码 · 共 29 行

<%
'转换字符串Str中英文字符大写为小写
Public Function xiaoxie(Str)
    Dim I,CurStr,ReturnStr,Upper,Lower
    For I = 1 To Len(Str)
        CurStr = Mid(Str, I, 1)
        If IsAlphabet(CurStr) Then
             '如果是英文字符
            Lower = Asc(LCase(CurStr))
            '返回字符。原来是大写则返回小写；原来是小写则返回大写
			ReturnStr = ReturnStr & Chr(Lower)
        Else
		     ReturnStr = ReturnStr & CurStr
		End If
    Next
    xiaoxie = ReturnStr
End Function
 '判断字符Char是否是英文字符
Public Function IsAlphabet(ByVal Char)
	Dim AscValue
	AscValue = CInt(Asc(Char))
	If (65 <= AscValue and AscValue <= 90) or (97 <= AscValue and AscValue <= 122) Then
		IsAlphabet = True
	Else
		IsAlphabet = False
	End if
End Function
%>