开发必备常用ASP函数的封装Word下载.docx
- 文档编号:19865615
- 上传时间:2023-01-11
- 格式:DOCX
- 页数:29
- 大小:470.59KB
开发必备常用ASP函数的封装Word下载.docx
《开发必备常用ASP函数的封装Word下载.docx》由会员分享,可在线阅读,更多相关《开发必备常用ASP函数的封装Word下载.docx(29页珍藏版)》请在冰豆网上搜索。
CleanCookies清除cookies
GetTimeover取得程序页面执行时间
FormatSize大小格式化
FormatTime时间格式化
Zodiac取得生肖
Constellation取得星座
-------------------------------------
ClassCls_fun
--------字符处理--------------------------
****************************************************
函数名:
StrLength
作用:
取得字符串长度(汉字为2)
参数:
str----字符串内容
返回值:
字符串长度
PublicfunctionStrLength(str)
DimRep,lens,i
Setrep=newregexp
rep.Global=true
rep.IgnoreCase=true
rep.Pattern="
[\u4E00-\u9FA5\uF900-\uFA2D]"
Foreachiinrep.Execute(str)
lens=lens+1
Next
SetRep=Nothing
lens=lens+len(str)
strLength=lens
EndFunction
CutStr
字符串长度切割,超过显示省略号
strlen------要显示的长度
切割后字符串内容
PublicFunctionCutStr(str,strlen)
Diml,t,i,c
Ifstr="
"
Then
cutstr="
ExitFunction
EndIf
str=Replace(Replace(Replace(Replace(Replace(str,"
&
nbsp;
"
"
),"
quot;
Chr(34)),"
gt;
>
lt;
#124;
|"
)
l=Len(str)
t=0
Fori=1Tol
c=Abs(Asc(Mid(str,i,1)))
Ifc>
255Then
t=t+2
Else
t=t+1
Ift>
=strlenThen
cutstr=Left(str,i)&
..."
ExitFor
cutstr=str
cutstr=Replace(Replace(Replace(Replace(replace(cutstr,"
),Chr(34),"
--------------系列验证----------------------------
CheckIsEmpty
检查是否为空
tstr----字符串
true不为空,false为空
PublicFunctionCheckIsEmpty(tstr)
CheckIsEmpty=false
IfIsNull(tstr)orTstr="
ThenExitFunction
DimStr,re
Str=Tstr
Setre=newRegExp
re.IgnoreCase=True
re.Global=True
str=Replace(str,vbNewLine,"
str=Replace(str,Chr(9),"
str=Replace(str,"
"
re.Pattern="
img(.[^>
]*)>
str=re.Replace(Str,"
94kk"
(.[^>
Str=re.Replace(Str,"
SetRe=Nothing
IfStr<
ThenCheckIsEmpty=true
isInteger
整数检验
tstr----字符
true是整数,false不是整数
PublicfunctionisInteger(para)
onerrorresumeNext
Dimstr
Diml,i
IfisNUll(para)then
isInteger=false
exitfunction
Endif
str=cstr(para)
Iftrim(str)="
then
l=len(str)
Fori=1tol
Ifmid(str,i,1)>
9"
ormid(str,i,1)<
0"
isInteger=true
Iferr.number<
0thenerr.clear
CheckName
名字字符检验
str----字符串
true无误,false有误
PublicFunctionCheckName(Str)
Checkname=true
DimRep,pass
SetRep=NewRegExp
Rep.Global=True
Rep.IgnoreCase=True
匹配字母、数字、下划线、汉字且必须以字母或下划线或汉字开始
Rep.Pattern="
^[a-zA-Z_u4e00-\u9fa5][\w\u4e00-\u9fa5]+$"
Setpass=Rep.Execute(Str)
Ifpass.count=0ThenCheckName=false
CheckPassword
密码检验
PublicFunctionCheckPassword(Str)
Dimpass
CheckPassword=true
IfStr<
DimRep
SetRep=NewRegExp
Rep.Global=True
Rep.IgnoreCase=True
匹配字母、数字、下划线、点号
[a-zA-Z0-9_\.]+$"
Pass=rep.Test(Str)
SetRep=nothing
IfnotPassThenCheckPassword=false
EndFunction
CheckEmail
邮箱格式检测
str----Email地址
PublicfunctionCheckEmail(email)
CheckEmail=true
SetRep=newRegExp
rep.pattern="
([\.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(\.([a-zA-Z0-9]){2,}){1,4}$"
pass=rep.Test(email)
IfnotpassThenCheckEmail=false
Endfunction
--------------信息提示----------------------------
Alert
弹出对话框提示
msg----对话框信息
gourl----提示后转向哪里
无
PublicFunctionAlert(msg,goUrl)
msg=replace(msg,"
\'
IfgoUrl="
goUrl="
history.go(-1);
window.location.href='
goUrl&
EndIF
Response.Write("
scriptlanguage="
JavaScript"
type="
text/javascript"
vbNewLine&
alert('
&
msg&
);
/script>
Response.End
GoBack
错误信息提示
str1----信息提示标题
str2----信息提示内容
isback----是否显示返回
PublicFunctionGoBack(Str1,Str2,isback)
IfStr1="
ThenStr1="
错误信息"
IfStr2="
ThenStr2="
请填写完整必填项目"
Ifisback="
Str2=Str2&
<
ahref="
javascript:
history.go(-1)"
返回重填<
/a>
/li>
else
Str2=Str2
endif
Response.Write"
divstyle="
margin-left:
5px;
border:
1pxsolid#0066cc;
width:
98%"
height:
22px;
font-weight:
bold;
color:
white;
font-size:
14px;
background:
#799AE1;
url(images/th.gif);
;
text-align:
left;
line-height:
20px;
padding:
3px;
Str1&
/div>
50px;
#F7F7F7;
vertical-align:
middle;
100%"
color:
red;
font:
50px/50px宋体;
float:
5%"
×
margin-top:
8px;
right;
90%;
padding-left:
str2&
response.end
Suc
成功提示信息
url----返回地址
PublicFunctionSuc(str1,str2,url)
Ifstr1="
操作成功"
Ifstr2="
成功的完成这次操作!
Ifurl="
Thenurl="
str2=str2&
url&
>
返回继续管理<
√<
--------------安全处理----------------------------
ChkPost
禁止站外提交表单
true站内提交,flase站外提交
PublicFunctionChkPost()
Dimurl1,url2
chkpost=true
url1=Cstr(Request.ServerVariables("
HTTP_REFERER"
))
url2=Cstr(Request.ServerVariables("
SERVER_NAME"
IfMid(url1,8,Len(url2))<
url2Then
chkpost=false
PSql
防止SQL注入
为空则无注入,不为空则注入并返回注入的字符
publicFunctionPSql()
Psql="
badwords="
防'
防;
防and防exec防insert防select防update防delete防count防*防%防chr防mid防master防truncate防char防declare防|"
badword=split(badwords,"
防"
IfRequest.Form<
ForEachTF_PostInRequest.Form
Fori=0ToUbound(badword)
IfInstr(LCase(Request.Form(TF_Post)),badword(i))>
0Then
Psql=badword(i)
IfRequest.QueryString<
ForEachTF_GetInRequest.QueryString
IfInstr(LCase(Request.QueryString(TF_Get)),badword(i))>
FiltrateHtmlCode
防止生成html代码
PublicFunctionFiltrateHtmlCode(Str)
IfNotisnull(str)Andstr<
Str=Replace(Str,Chr(9),"
Str=replace(Str,"
Str=replace(Str,chr(39),"
#39;
Str=Replace(str,CHR(13),"
Str=Replace(str,CHR(10),"
FiltrateHtmlCode=Str
HtmlCode
过滤Html标签
PublicfunctionHtmlCode(str)
str=replace(str,"
str=Replace(str,CHR(32),"
str=Replace(str,CHR(9),"
str=Replace(str,CHR(34),"
str=Replace(str,CHR(39),"
str=Replace(str,CHR(13),"
str=Replace(str,CHR(10),"
script"
#115cript"
HtmlCode=str
E
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 开发 必备 常用 ASP 函数 封装