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
内容版权声明:除非注明,否则皆为本站原创文章。