function new_str(str)if instr(str,chr(34))<>0 and str<>"" thenstr_split=split(str,chr(34))i=1str_s=""for j=0 to ubound(str_split)-1if i mod 2 thenstr_s=str_s&str_split(j)&"“"&str_split(j+1)elsestr_s=str_s&str_split(j)&"”"&str_split(j+1)end ifi=i+1nextend function

<%@ Language=VBScript %><%'我写的一个遍历目录以及目录下文件的函数，%><%function bianli(path)set fso=server.CreateObject("scripting.filesystemobject") on error resume nextset objFolder=fso.GetFolder(path) set objSubFolders=objFolder.Subfolders for each objSubFolder in objSubFolders nowpath=path + "\" + objSubFolder.name Response.Write nowpath set objFiles=objSubFolder.Files for each objFile in objFilesResponse.Write "<br>---&q...

'2004/07/27 朱彦志(goodidea) myad@yeah.net '你是否非常讨厌 用 & 一大串的连接变量？ '你是否不得不经常使用""与"""" ？ '就好像这样： 'strFilter = strFilter & " and [" & strFldname & "] like """ & strValue & """" ' 'strSql ="insert into tblpubStyle (Class,Prop,Value,Type,[Set],memo,flag) values ('" & _ ' ctl.ControlType & "','" & _ ' prp.Name & "','" & _ ' prp.Value & "','" & _ ' prp.Type & "', " & _ ' 2 & "," &a...

Environ 函数      返回 String，它关连于一个操作系统环境变量。 在 Macintosh 中不可用 语法 Environ({envstring | number}) Environ 函数的语法含有以下这些命名参数： envstring: 可选参数。包含一个环境变量名的字符串表达式。 number: 可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。 说明 如果在环境字符串表格中找不到 envstring，则会返回一个零长度字符串 ("")。如果找到...

Visual Basci中的几个函数： 1.Split(包含子字符串和分隔符的字符串表达式 ，[分隔符]，[要返回的子字符串数]，[数字值表示判别子字符串时使用的比较方式]),[]部分为可选部分。该函数返回一个以零为下标的一维数组，它包含指定数目的子字符串。 例： dim xx as variant xx=split("hello world"," ")将hello world 分隔为hello和world text1.text= xx(0) 返回hello text2.text=xx(1) 返回world 2.Ubound(数组名），该函数返回一个 Long 型数据，其值为指定的数组维可用的最大下标 Lbound(数组名），返回一个 Long ...