网址和邮件地址的转换函数<%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...

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    &...