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())
...
[阅读全文]
一段简单的ASP防SQL注入函数，这些都是很简单的，相信大家都能看得明白！ <%
Function sqlzr(ParaName)
if ParaName <> "" then
if IsNumeric(ParaName) = True then
sqlzr=ParaName
&nb.....
[阅读全文]
昨天在采集某一个网站的时候，采集程序出错了。是自写的采集程序。经过搜索以后，查到一些没有用的结果，后来发现，用Msxml2.ServerXMLHTTP替换掉Msxml2.XMLHTTP,问题成功解决。以下是分析排错过程。老是采集一段时间就挂了，指定资源下载失败，或者拒绝访问。后来直接全部是拒绝访问。一开始，认为，对方服务器做了防采集设置，比如有时间限制之类的。于是更改程序，原先是直接获取列表页，然...
[阅读全文]
最新碎语