代码如下: % Function SenFe_UbbCode(sContent) Dim TempReg Set TempReg = New RegExp With TempReg .IgnoreCase = True .Global = True '自动识别网址 If InStr(Lcase(sContent),"http://")0 Then .Pattern = "(^|[^=""])(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&)|&)+)" sContent = .Replace(sContent,"$1a href=""$2"" target=""_blank""$2/a") End If...[ 查看全文 ]
<?php /* Function Written by Nelson Neoh @3/2004. For those who wants to utilize this code, please do not remove this remark. If you have done any enhancement to this code, please post the copy at http://www.dev-club.com PHP board. Thank you. Function usage: calendar(Month,Year) */ function calendar($MM,$YYYY){ &...[ 查看全文 ]