IT专业技术博客

提示：Microsoft VBScript 运行时错误 错误 800a005e 无效使用 Null: Replace 出现这个问题应该是：非法使用 Null解决的方法：在使用replace之类的处理函数之前应该有一个是否为空的判断 if IsNull(str) or IsEmpty(str) or str="" then   str="nothing" end if

function getStoredProcByArray(str,CommandTextName)str为数组，二列n行，第一列为模版参数，第二列为实际参数值，CommandTextName为参数名称dim myComm,i,jset myComm=server.CreateObject("adodb.command")with myComm.ActiveConnection=

function getkeyvalue(s_keyname,s_keystr) s_keybegin="" s_keyend="" s_i_begin=instr(s_keystr,s_keybegin) s_i_end=instr(s_keystr,s_keyend) if s_i_end<=s_i_begin+len(s_keybegin) then getkeyv

判断是否是数字（包括整数和浮点数）function IsNumber(str)if RegPatrn("^-?[1-9]/d*$",str) or RegPatrn("^-?([1-9]/d*/./d*|0/./d*[1-9]/d*|0?/.0+|0)$",str) thenIsNumber=trueelseIsNumber=falseend ifend funct

<br />Function RemoveLinkCss(strHTML)if strHTML<>"" thenDim objRegExp, Match, MatchesSet objRegExp = New RegexpobjRegExp.IgnoreCase = TrueobjRegExp.Global = True'<link rel="stylesheet" type="text/css" href="../css/style.css" mce_href="css/style

11111111111111111111112222222222222222233333333333333334444444444444444444