几个ASP好用的自定义函数-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

几个ASP好用的自定义函数
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
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
dim zNum,zNum2
Randomize
zNum = cint(25*Rnd)
zNum2 = cint(10*Rnd)
if zNum2 mod 2 = 0 then
zNum = zNum + 97
else
zNum = zNum + 65
end if
thechr = thechr & chr(zNum)
next
MyRandc = thechr
end function

function MyRandn(n) \\\'生成随机数字，n为数字的个数
dim thechr
thechr = ""
for i=1 to n
dim zNum,zNum2
Randomize
zNum = cint(9*Rnd)
zNum = zNum + 48
thechr = thechr & chr(zNum)
next
MyRandn = thechr
end function

function formatQueryStr(str) \\\'格式化sql中的like字符串
dim nstr
nstr = str
nstr = replace(nstr,chr(0),"")
nstr = replace(nstr,"\\\'","\\\'\\\'")
nstr = replace(nstr,"[","[[]")
nstr = replace(nstr,"%","[%]")
formatQueryStr = nstr
end function

function GetRnd(min,max)
Randomize
GetRnd = Int((max - min + 1) * Rnd + min)
end function

返回类别: 教程
上一教程: ASP注入漏洞全接触
下一教程: 编译 ASP 应用程序

您可以阅读与"几个ASP好用的自定义函数"相关的教程:
· ASP中和星期有关的自定义函数
· 常用数据库操作的自定义函数
· 几个比较好用的ASP检查函数
· ASP自定义函数，仿VBA中域函数DLOOKUP
· T-SQL: 17 个与日期时间相关的自定义函数(UDF)


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接