这个小程序可以把html控件转换为web控件,比如说<input name="a">可以换成<<asp:TextBox id= "a" runat="server"></asp:TextBox>
写了一中午才写成
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>一个小正则表达式 </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="蛙蛙王子">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<SCRIPT LANGUAGE="vbScript">
function change()
s=document.all("txt1").value
Dim regEx, retVal ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = "(<input)(.*?)(name=)(.*?)(>)" ' 设置模式。
regEx.IgnoreCase = True ' 设置不区分大小写。
regEx.Global = True ' 设置全程性质。
retVal = regEx.Test(s) ' 执行搜索测试。
If retVal Then
msgbox("找到一个或多个匹配")
Else
msgbox("没有找到")
End If
document.all("txt2").value=regEx.Replace(s, "<asp:TextBox $2 id= $4 runat=""server""></asp:TextBox>")
end function
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
function c(){
document.all["txt2"].value = document.all["txt1"].value.replace(/(<input)(.*?)(name=)(.*?)(>)/ig,"<asp:TextBox $2 id= $4 runat=/"server/"></asp:TextBox>");
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<p>
<textarea name="txt1" cols="50" rows="5" id="txt1"></textarea>
</p>
<p>
<textarea name="txt2" cols="50" rows="5" id="txt"></textarea>
<br>
</p>
<input type="button" name="Submit" value="转换" language="vbscript" onClick="change()"> <input type="button" name="Submit" value="转换" language="JavaScript" onClick="c()">
<p> </p>
</BODY>
</HTML>