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

Function HTMLcode(fString)
    If Not IsNull(fString) Then
        fString = Replace(fString, Chr(13), "")
        fString = Replace(fString, Chr(10) & Chr(10), "</P><P>")
        fString = Replace(fString, Chr(34), "")
        fString = Replace(fString, Chr(10), "<BR>")
        HTMLcode = fString
    End If
End Function


%>
<%
cLeft(String, Length) 返回指定数目的从字符串的左边算起的字符，区分单双字节。
如：
Dim MyString, LeftString
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