CopyCode The Code is as follows: <%
Function senfe_ubbcode (scontent)
Dim tempreg
Set tempreg = new Regexp
With tempreg
. Ignorecase = true
. Global = true
'Automatically identifies the URL
If instr (lcase (scontent), "http: //")> 0 then
. Pattern = "(^ | [^ <=" "]) (HTTP :( \/| \\\\) ([\ W \/\ + \-~ '@: %]) + \.) + ([\ W \/\. \ = \? \ + \-~ '@\':! % #] | (&) | &) + )"
Scontent =. Replace (scontent, "$1 <a href =" "$2" "target =" "_ blank" "> $2 </a> ")
End if
'Automatically identifies the URLs starting with www.
If instr (lcase (scontent), "www.")> 0 or instr (lcase (scontent), "bbs.")> 0 then
. Pattern = "(^ | [^ \/\ W \ =]) (WWW | BBS )\. (\ W) + \. ([\ W \/\\\. \= \? \ + \-~ '@\'! % #] | (&) + )"
Scontent =. replace (scontent, "$1 <a href =" "http: // $2" "target =" _ blank ""> $2 </a> ")
End if
End
Set tempreg = nothing
Senfe_ubbcode = scontent
End Function
%>
<textarea id="runcode60680"><Textarea name = "scode" Cols = "50" rows = "20"> <input type = "button" value = "replace" onclick = "VBScript: document. getelementbyid ('scode '). value = senfe_ubbcode (document. getelementbyid ('scode '). value) "></textarea>
[Ctrl + A select all Note: If you need to introduce external JS, You need to refresh it to execute]
