databusiness.vb

来自「《ASP.NET C#程序设计案例教程》」· VB 代码 · 共 18 行

Imports System

NameSpace nsAddress													'nsAddress为自己定义的名称空间
Public Class DataBusiness											'DataBusiness是自己定义的类的名称

	'该过程对客户输入的内容进行预处理
	Public Sub PreInsert(strName As String,strTel As String,strEmail As String,strIntro As String,dtmSubmit_Date As Date,strConn As String)
		'对个人简介进行处理
		If strIntro.Length>1000 Then								'如果大于1000个字符
			strIntro=strIntro.SubString(1,1000)						'则只取前1000个字符						
		End If
		'下面建立DataUsers对象实例，然后调用Insert方法添加数据
		Dim dus As New DataUsers(strConn)
		dus.Insert(strName,strTel,strEmail,strIntro,dtmSubmit_Date)
	End Sub

End Class
End NameSpace