网址和邮件地址的转换函数<%function URLconvert(str) convertstr=strurlLocation=instr(convertstr,"http://")if (urlLocation=0) and (mailLocation=0) then URLconvert=convertstrexit functionend ifif urlLocation<>0 thenrightstr=strDo while urlLoc...
http://www.jb51.net//article/12902.htm
FunctionInsertHyperlinks(inText)DimobjRegExp,strBufDimobjMatches,objMatchDimValue,ReplaceValue,iStart,iEnd strBuf="" iStart=1 iEnd=1 SetobjRegExp=NewRegExp objRegExp.Pattern="\b(www|http|\S+@)\S+\b" '判断URLs和emails. objRegExp.IgnoreCase=True &...
http://www.jb51.net//article/4798.htm
共有:2/10,当前1/1页
[首页] [上一页]
1
[下一页] [尾页]
转到:
