asp.net小程序（替换字段名的方法）

<%@ 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>

posted on 2006-11-16 10:15 罗明超阅读(211) 评论(0) 收藏举报