求个正则表达式100分

Question

qoute:iasky打不开你的网站
打得开哦

Answer 1

<%
Function unbinary(bata)
'二进制转换 这个函数也看不懂。。它是转二进制的
    Dim i, ThisCharCode, NextCharCode
Dim Strng: Strng = ""
    For i = 1 To LenB(bata)
        ThisCharCode = AscB(MidB(bata, i, 1))
        If ThisCharCode < &H80 Then
            Strng = Strng & Chr(ThisCharCode)
        Else
            NextCharCode = AscB(MidB(bata, i + 1, 1))
            Strng = Strng & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
            i = i + 1
        End If
    Next
    unbinary = Strng
End FunctionSub play()
'发送请求
Dim a
Set a = Server.CreateObject("Microsoft.XMLHTTP")
a.open "GET", "http://www.manytutorials.com/more.html", False
a.send
'根据它的页面的内容，取出你要的信息大概，然后正则捕获完整链接和链接地址和链接内容
Call show(Split(unbinary(a.responseBody), "<div class=""clear""></div>")(2))
Set a = Nothing
End SubSub show(s)
Dim r, m, i
Set r = new RegExp
r.Pattern = "<a\s+href=""([^""]+)"">([\S\s]+?)<\/a>"
r.Global = True
r.IgnoreCase = True
Set m = r.Execute(s)
Response.Write "<div style=""font-size:12px; line-height:20px;"">"
For i = 0 To m.Count - 1
Response.Write "完整链接：" & Server.HTMLEncode(m(i).Value)
Response.Write "<br />"
Response.Write "链接地址：" & m(i).SubMatches(0)
Response.Write "<br />"
Response.Write "链接内容：" & m(i).SubMatches(1)
Response.Write "<hr />"
Next
Response.Write "</div>"
Set m = Nothing
Set r = Nothing
End Sub
Call play
%>

Answer 2

要 php 的 用 preg_mach_all()函数

Answer 3

不过思路已经给你了，而且很清晰，如果你转成PHP的话也就是语法问题。
你就不能自己写？非让人写好了给你啊。