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.....
[阅读全文]
<%
function fRndStr(num)
if isNumeric(num)=false then exit function else num=int(num)
d...
[阅读全文]
昨天在采集某一个网站的时候，采集程序出错了。是自写的采集程序。经过搜索以后，查到一些没有用的结果，后来发现，用Msxml2.ServerXMLHTTP替换掉Msxml2.XMLHTTP,问题成功解决。以下是分析排错过程。老是采集一段时间就挂了，指定资源下载失败，或者拒绝访问。后来直接全部是拒绝访问。一开始，认为，对方服务器做了防采集设置，比如有时间限制之类的。于是更改程序，原先是直接获取列表页，然...
[阅读全文]
![两个ASP随机生成[a-z,A-Z,0-9]的函数](http://blog.chdz1.com/content/templates/Jfive/timthumb.php?src=http://blog.chdz1.com/content/templates/Jfive/images/random/tb13.jpg&h=169&w=300&zc=1)
最新碎语