2020-02-16 标签:vbs,获取,系统,本次,上次,开关,机时,间的,代码,winxp,win,2003,兼容,实现,如下,lcase,right

实现代码如下： If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=

2020-02-16 标签:vbs,硬盘,读写,统计,分区,winxp,win,实现,代码,如下,原创,内容,转载,引用,核心,部分,注明

WinXP，Win7,Win8实现代码如下：'原创内容转载、引用代码核心部分请注明出处硬盘读写统计.vbs If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") ThenCreateObject("WScript.Shell").Run("%C

2020-02-16 标签:jquery,camelcase,学习,string,replace,函数,功能,形如,background,color,转化,驼峰,表示,data,以及,涉及到,css

功能 camelCase函数的功能就是将形如background-color转化为驼峰表示法：backgroundColor。 此函数在jQuery的data函数，以及涉及到css的诸多函数中都有用到。 jQuery的实现 实现代码如下： //正则匹配 rdashAlpha = /-([a-z])/

2020-02-16 标签:asp,获取,当前,页面,地址,参数,函数,代码,实现,如下,function,error,resume,next,dim,strtemp,lcase,request

实现代码如下：Function getCurrentUrl() On Error Resume Next Dim strTemp If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strT

2020-02-16 标签:vbs,探测,端口,代码,不用,注册,winsock,实现,如下,error,resume,next,lcase,right,wscript,fullname,11,exe,echo,execute

实现代码如下： On Error Resume Next if (lcase(right(wscript.fullname,11))="wscript.exe") then wscript.echo "Execute it under the cmd.exe Plz! Thx." wscript.q

2020-02-16 标签:一段,asp,显示文件,夹下,图片,代码,实现,如下,dim,fso,objfolder,objfiles,filelist,set,server,scripting

实现代码如下： " End If Next '释放对象 Set objFolder=nothing Set fso=nothing '获取文件类型 Function getExt(str) getExt = Lcase(Right(str,Len(str)-InstrRev(str,"."))) E

2020-02-16 标签:asp,字符串,大写,转换成,小写,ucase,lcase,转成,下面,代码,直接,演示,效果,实现,如下,dim,str,abcdef

LCase：转成小写 UCase：转成大写 下面是ASP中的代码，可以直接演示效果的。 实现代码如下： 而.NET中将字符串转换为大写ToUpper()，将字符串转换为小写ToLower()。

2020-02-16 标签:rcmd,vbs,remote,cmd,wmi,远程,脚本,实现,代码,如下,error,resume,next,set,outstreem,wscript,stdout,lcase,right,fullname

实现代码如下：On Error Resume Next Set outstreem=Wscript.stdout If (LCase(Right(Wscript.fullname,11))="Wscript.exe") Then Set objShell=Wscript.CreateObject("

2020-02-16 标签:asp,post,数据,接收,过滤,实现,代码,如下,定义,dim,xh,inf,db,dbstr,自定义,需要,字串,分隔

实现代码如下： "" Then For Each XH_Post In Request.Form For XH_Xh=0 To Ubound(XH_Inf) If Instr(LCase(Request.Form(XH_Post)),XH_Inf(XH_Xh))<>0 Then Resp

2020-02-16 标签:asp,下去,超链接,函数,实现,代码,如下,function,replaceurl,htmlstr,dim,n,str,lcase,ubound

实现代码如下：") HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2))) HTMLstr = replace (HTMLstr,"","") ReplaceUrl2 = HTMLs