<%@ Page validateRequest="false" %>
<script language="VB" runat="server">
Sub Enter_Click(Sender As Object, E As EventArgs)
Call SearchImg(txtContent.Text) '调用子程序，输出所有匹配项
End Sub
Sub SearchImg(strInput As String)
Dim r As New Regex("[^\n]+" , RegexOptions.IgNoreCase)
Dim m As Match
m=r.Match(strInput) '查找第一个匹配项
Do While m.Success '如果查找成功，就继续循环
'message.Text &= "<br>位置" & m.Index.ToString() '输出匹配项的位置
message.Text &= "<br>" & m.Value & "=Rs(""" & m.Value & """)" '输出匹配项的字符串
m=m.NextMatch() '查找下一个匹配项
Loop
End Sub
</script>
<html>
<body>
select B.name from sysobjects as A inner join syscolumns as B on A.name='shjia' and A.id=B.id order by B.colid
<form runat=server>
<asp:TextBox id="txtContent" TextMode="MultiLine" Cols="40" Rows="8" runat="server" />
<asp:Button id="enter" Text="确定" Onclick="Enter_Click" runat="server" />
<p><asp:Label id="Message" runat=server/>
</form>
</body>
</html>