自动识别验证码:自动识别HTML的标记 替换连接

复制代码 代码如下:

<%
Function SenFe_UbbCode(sContent)
Dim TempReg
Set TempReg = New RegExp
With TempReg
.IgnoreCase = True
.Global = True
'自动识别网址
If InStr(L(sContent),"http://")>0 Then
.Pattern = "(^|[^<=""])(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&)|&)+)"
sContent = .Replace(sContent,"$1<adocument.getElementById('scode').value=SenFe_UbbCode(document.getElementById('scode').value)" />
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]

延伸阅读

• 2010-12-9-- 新大陆自动识别,自动识别HTML的标记 替换连接
• 2011-7-27-- 自动识别,iOS 5能自动识别AirPort/Time Capsule
• 2011-2-14-- 验证码识别,python验证码识别——前处理
• 2009-2-3-- 自动识别:自动识别中英文 将Excel数据巧分列妙招 3则
• 2009-2-5-- 验证码识别:图像识别方面CSDN验证码的识别
• 2008-6-20-- 验证码识别:如何识别高级的验证码
• 2008-12-1-- 识别腾讯变态验证码的一点心得
• 2008-12-1-- 原创，使用轮廓以及扇形扫描实现qq的验证码识别