DoDolock

<%@ Import Namespace="System.Web.Configuration" %>

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim c As System.Configuration.Configuration = WebConfigurationManager.OpenWebConfiguration("/所在目錄")
Dim pages As PagesSection = CType(c.GetSection("system.web/pages"), PagesSection)
Response.Write(pages.ElementInformation.Type.ToString())
End Sub