stdctrl.vb

来自「Code for VB.NET教程源码 很好的源码」· VB 代码 · 共 25 行

Imports System
Imports System.Collections
Imports System.Configuration
Imports System.Web.UI
Imports System.Web.Security


Namespace IBuyAdventure

   Public Class ControlBase
   	Inherits UserControl
   
      Public Function getConnStr() As String
      
	Dim dsn As String = ConfigurationSettings.AppSettings("connectionString")
	
	Return dsn
      
      End Function
      
   End Class

End Namespace