摘要：今天遇到这种问题，单纯的使用replace函数不行，他会改变原有的字符串的大小写在网上找到相关的代码，自己备份下普通的替换函数public function HighLight(S,F)dim tL,tM,tR,ktL=""tM=""tR=Sk=instr(1,tR,F,1)do while k>0tL=tL & left(tR,k-1)tM=mid(tR,k,len(F))tL=tL & "<span style='color:red'>" & tM & " 阅读全文

摘要：'创建文件夹SubCreateAFolder(file)DimfsoSetfso=CreateObject("Scripting.FileSystemObject")fso.CreateFolder(file)response.write"已经建立了"&fileEndSub'删除文件夹SubDeleteAFolder(file)DimfsoSetfso=CreateObject("Scripting.FileSystemObject")fso.DeleteFolder(file)response.write&q 阅读全文

摘要：//取得动态文件内容Title1FunctionGetHttpPage(HttpUrl,Coding)2OnErrorResumeNext3IfIsNull(HttpUrl)=TrueOrLen(HttpUrl)<18OrHttpUrl=""Then4GetHttpPage=""5ExitFunction6EndIf7DimHttp8SetHttp=Server.CreateObject("MSXML2.XMLHTTP")9Http.Open"GET",HttpUrl,False10Http.Send11If 阅读全文

摘要：获取是什么浏览器<script>getOs();function getOs() { var OsObject = ""; if(navigator.userAgent.indexOf("MSIE")>0) { //ie document.getElementById('selectpic').src="http://www.bioon.com.cn/images/2010/ie.gif"; document.getElementById('selectpic').title=&quo 阅读全文

摘要：剔除页面中html中除文字以外的任何代码<%Function RemoveHTML(str)Dim objRegExp, Match,strHTMLif isnull(str) thenstr=""end ifstrHTML=strstrHTML=replace(replace(replace(strHTML,vblf,""),vbcr,""),vbcrlf,"")Set objRegExp... 阅读全文

摘要：<%'================================================' 显示解释函数，返回根据参数允许显示的格式字符串，具体调用方法可从后台管理获得' 输入参数：' s_Content : 要转换的数据字符串' s_Filters : 要过滤掉的格式集，用逗号分隔多个'=============================================... 阅读全文

摘要：vbscript脚本语言是一种弱类型语言，这样有好处也有坏处，在写asp网页的时候经常出了错误找到眼睛都快瞎了，因为vbscript有些时候会自作聪明“自动转型”。比如access数据库中的“是/否”类型，对应的是“是”、“Yes”、“True”、“否”、... 阅读全文

摘要：最近在为网站添加一个内容，涉及到在线读取和写入UTF-8编码的文件，才发现FSO对象只能读写ANSI编码的文件，无法读写UTF-8编码的文件，琢磨了半天，终于在网上找到一个很实用的函数 阅读全文