ASP常用函数收藏乱七八糟未整理版(38)


MyString = "文字测试VBSCript"
LeftString = cLeft(MyString, 10)
返回 "文字测试VB"。

MyRandc(n) 生成随机字符,n为字符的个数

如:
response.Write MyRandn(10)
输出10个随机字符

MyRandn(n) 生成随机数字,n为数字的个数

如:
response.Write MyRandn(10)
输出10个随机数字

formatQueryStr(Str) 格式化sql中的like字符串.
如:
q = Request("q")
q = formatQueryStr(q)
sql = "select * from [table] where aa like '%"& q &"%'"

GetRnd(min, max) 返回min - max之间的一个随机数

如:
response.Write GetRnd(100, 200)
输出大于100到200之间的一个随机数

Function cLeft(Str, n)
    Dim str1, str2, alln, Islefted
    str2 = ""
    alln = 0
    str1 = Str
    Islefted = False
    If IsNull(Str) Then
        cleft = ""
        Exit Function
    End If
    For i = 1 To Len(str1)
        nowstr = Mid(str1, i, 1)
        If Asc(nowstr)<0 Then
            alln = alln + 2
        Else
            alln = alln + 1
        End If
        If (alln<= n) Then
            str2 = str2 & nowstr
        Else
            Islefted = True
            Exit For
        End If
    Next
    If Islefted Then
        str2 = str2 & ".."
    End If
    cleft = str2
End Function

Function MyRandc(n) '生成随机字符,n为字符的个数
    Dim thechr
    thechr = ""
    For i = 1 To n

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/2946.html