第3页_exts - 程序员之家

asp 网页视频播放器程序代码(通用代码),支持avi,wmv,asf,mov,rm,ra,ram等

2020-02-16 标签:asp,网页,视频,播放器,程序,代码,通用,支持,avi,wmv,asf,mov,rm,ra,ram,思路,先取,文件,类型

思路是先取得文件的类型,并根据类型选择不同的网页播放器代码..三下五去二.....同时为了代码在以后的复用性,写成了通用的调用函数.方便以后在别的系统中调用.. 现发布源代码如下:实现代码如下：Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt

首页

vbs实现的汉字转拼音的函数

2020-02-16 标签:vbs,实现,汉字,拼音,函数,核心,代码,error,resume,nextset,d,scripting,dictionary,add,a,20319,ai,20317

核心代码：On Error Resume NextSet d = createObject("Scripting.Dictionary") d.add "a",-20319 d.add "ai",-20317 d.add "an",-20304 d.add "ang",-20295 d.add "a

首页

让批处理被wsh解析的代码

2020-02-16 标签:批处理,wsh,解析,代码,示例,test,bat,实现,如下,error,resume,next,sub,echo,off,cls,batching,codez,following,vbs

示例批处理：test.bat 实现代码如下：:On Error Resume NextSub batecho off & clsecho Batching_codez_here_following_vbs_rules & pausestart wscript -e:vbs "%~f0

首页

2020-02-16 标签:asp,遍历,目录,子目录,函数,language,vbscript,以及,下文,function,bianli,path,set,fso,server,scripting

---"Response.write Objfile.nameNextResponse.write ""Bianli(nowpath)'递归NextSet Objfolder=nothingSet Objsubfolders=nothingSet Fso=nothingEnd Function%&g

用VBScript实现读取文本文件的方法

2020-02-16 标签:vbs,实现,读取,文本文件,方法,文件,function,readfile,error,resume,next,set,fs,scripting,file

vbs读取文件方法Function readfile(readfilepath) 'On Error Resume NextSet fs = CreateObject("Scripting.FileSystemObject")Set file = fs.OpenTextFile(readfilepa

ASP

asp加密解密函数decrypt

2020-02-16 标签:asp,加密,解密,函数,decrypt,function,dcode,dim,texts,i,len,chr,asc,mid,n,ext,end,encrypt

加密与解密函数 ">111111111

ASP

asp 的中文分词

2020-02-16 标签:asp,中文,分词,a,日本,中国,美丽,张家界,b,美国,苹果,split,k,ubound,s,n,i,instr

0 thens=s & instr(a(k),b(i)) & "," &instr(a(k),b(i))+len(b(i)) & ","end ifnexts=left(s,len(s)-1)if left(s,len(s)-1)<>len(a(k)) t

ASP

asp制作中常用到的函数库集合

2020-02-16 标签:asp,制作,中常,用到,函数,集合,目录,id,0001,字符串,0002,过滤,html,0003,打开,任意,数据

ASP函数库", ">"), " 255 Thent = t + 2Elset = t + 1End IfIf t >= strlen ThenstrTemp = Left(str, i)Exit ForEnd IfNextSubstZFC = Replace(Replace(Repla

ASP

asp 的分词实现代码

2020-02-16 标签:asp,分词,实现,代码,a,日本,中国,美丽,张家界,b,美国,苹果,split,k,ubound,s,n,i

0 thens=s & instr(a(k),b(i)) & "," &instr(a(k),b(i))+len(b(i)) & ","end ifnexts=left(s,len(s)-1)if left(s,len(s)-1)<>len(a(k)) t

ASP

asp 实现视频显示的效果函数

2020-02-16 标签:asp,实现,视频,显示,效果,函数,selplay,strurl,strwidth,strheight,参数,动画,路径,高度,作者,阿里,西西,日期,2007

'****************************** Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt If strUrl <> "" ThenisExt = LCase(Mid(strUrl,InStrRev(str

与 exts 相关的软件列表