Private Sub SetFocus(ByVal controlToFocus As Control)
Dim scriptFunction As New StringBuilder
Dim scriptClientId As String

scriptClientId = controlToFocus.ClientID
scriptFunction.Append("<script language= vbscript>")
scriptFunction.Append("form1." & scriptClientId & ".focus")
scriptFunction.Append("</script>")
RegisterStartupScript("focus", scriptFunction.ToString())

End Sub
简介：String 对象是不可改变的。每次使用 System.String 类中的方法之一时，都要在内存中创建一个新的字符串对象，这就需要为该新对象分配新的空间。在需要对字符串执行重复修改的情况下，和创建新的 String 对象相关的系统开销可能会很昂贵。假如要修改字符串而不创建新的对象，则能够使用 System.Text.StringBuilder 类。例如，当在一个循环中将许多字符串连接在一起时，使用 StringBuilder 类能够提升性能。
RegisterStartupScript：允许 ASP.NET 服务器控件在 Page 中发出客户端脚本块

和 RegisterClientScriptBlock 方法类似，该方法在 Page 对象的 <form runat= server> 元素的结束标记之前发出该脚本。发出脚本块时已定义了呈现该页的对象时，因此必须同时包括 <script> 元素的两个标记。

通过使用 key 标识脚本，多个服务器控件实例能够请求该脚本块，而不用将其发送到输出流两次。

具备相同 key 参数值的任何脚本块均被视为重复的。

注意 请记住在脚本周围加入 HTML 注释标记，以便在请求的浏览器不支持脚本时脚本不会呈现。