Public Function XmlEncode(strText)
Dim aryChars
aryChars = Array(38, 60, 62, 34, 61, 39)
Dim i
For i = 0 To UBound(aryChars)
strText = Replace(strText, Chr(aryChars(i)), "&#" & ary.....
[阅读全文]
Chr函数返回 String，其中包含有与指定的字符代码相关的字符 。语法Chr(charcode)charcode为各类字符的ASCII码
在ASP脚本字符串中不能识别、无法标识或与该语法产生冲突的字符，可用“chr(相应ASCII码)”来表达，
本函数也可称为ASP程序中的转义符。用法：
比如“ASP中字符串替换”
将media_span_url("index.html")替换为&.....
[阅读全文]
Private Function bytes2BSTR(vIn)
Dim i, ThischrCode, NextchrCode
strReturn = ""
For i = 1 To LenB(vIn)
ThischrCode = AscB(MidB(vIn, i, 1))
If ThischrCode < &H80 Then
strReturn = strRetu.....
[阅读全文]
Function fillStr(str,char,direction,length)
'------------------------------------------------------------
'功能： 填充字符
'参数说明：
' str : 操作的字符串
' char : 填充的字符
' direction: 方向，0:在str的前方填充，1：在后方
' len...
[阅读全文]
<%
'欢迎转载，但请注明来自"菩提树下的杨过(QQ:278919507 Mail:yjmyzz@126.com)
'option explicit'001.function lpad(desstr,padchar,lenint) 左填充
'002.function rpad(desstr,padchar,lenint) 右填充
'003.function MakeRn...
[阅读全文]
Asp中一些FSO方面的函数
'//==================================文件操作==================================
'取文件大小
Function GetFileSize(FileName)
'//功能：取文件大小
'//形参：文件名
'//返回值：成功为文件大小，失败为-1
'//
Dim f
If ...
[阅读全文]
<%
''''===============================================''''
'''' 函数制作说明 ''''
'''' 本函数库作者：马政永，内蒙古阿拉善 ''''
''''作者主页：www.lovemycn.com or als.lovemycn.com ''''
''...
[阅读全文]
刚刚写好的ASP生成随机数，很简单的不用我说大家也看的明白！由于我不经常用就不做成函数了！这是供新手学习用的，高手就略过吧！<%
RANDOMIZE
dim jg(5)
jg(0) = ""
for r=0 to 5
su = ""
for i=0 to 2
su = su & int((9+1)*rnd())
...
[阅读全文]
在这里也不做说明了，大家也应该会用的！
<%
Function sqlzr1(ParaName)
if IsNumeric(ParaName) then
SafeRequest=ParaName
exit Function
else
ParaValuet...
[阅读全文]
一段简单的ASP防SQL注入函数，这些都是很简单的，相信大家都能看得明白！ <%
Function sqlzr(ParaName)
if ParaName <> "" then
if IsNumeric(ParaName) = True then
sqlzr=ParaName
&nb.....
[阅读全文]
最新碎语