🚀 go-pugleaf

<%
Dim down,down1,objRedExp,mmm
down="<a href='http://www.arongsoft.net/down.asp?id=124&no=1'
onclick='returnJyDownH(this.href);'>����������-> UltraISO Media
Edition(���ͨ) V7.2.1.844 SR-2�������İ�(�һ�)</a><br><a
href='http://www.arongsoft.net/down.asp?id=124&no=2'onclick='return
JyDownH(this.href);'>����������-> UltraISO(���ͨ)
V7.23�����ƽ��</a><br><a
href='http://www.arongsoft.net/down.asp?id=124&no=3'onclick='return
JyDownH(this.href);'>����������-> UltraISO(���ͨ)
V7.23�����ƽ��</a><br><a
href='http://www.arongsoft.net/down.asp?id=124&no=4'onclick='return
JyDownH(this.href);'>����������-> UltraISO(���ͨ) v7.25.923
ME������԰�</a><br><a
href='http://www.arongsoft.net/down.asp?id=124&no=5'onclick='return
JyDownH(this.href);'>����������-> UltraISO(���ͨ) v7.25.923
ME������԰�</a>"

Set objRegExp = New Regexp   '��������
objRegExp.IgnoreCase = True    '��Сд����
objRegExp.Global = True          'ȫ��Ϊ��
objRegExp.Pattern
="http://www\.arongsoft\.net/down\.asp\?id=[0-9]{1,4}\&no=[0-9]{1,2}"
'ƥ���ֶ�
set mmm=objRegExp.Execute(down)    'ִ�в��ң�downΪ�������
For Each Match in mmm      '����ѭ��
down1 = down1+"<br>"+Match.value

next
response.write down1

%>
--