admin_user_class.asp

简简单单的客户管理系统-This a simple customer management systems

<%
'// Script CreateBy: Mscga
'// Modify DateTime: 2007-9-3 20:41:21
Class Cls_User
	Dim vID
	Dim vXm
	Dim vDw
	Dim vDz
	Dim vDh
	Dim vZt
	Dim vMail
	Dim vBz
	Dim LastError
	Private Sub Class_Initialize()
		Call Initialize()
	End Sub
	Private Sub Class_Terminate()
		Call Initialize()
	End Sub
	Public Function Initialize()
		vID = 0
		vXm = ""
		vDw = ""
		vDz = ""
		vDh = ""
		vZt = ""
		vMail = ""
		vBz = ""
	End Function
	Public Function GetValue()
		vXm = Request.Form("oXm")
		If Len(vXm) < 0 Or Len(vXm) > 50 Then
			LastError = "姓名的长度请控制在 0 至 50 位" : GetValue = False : Exit Function
		End If
		vDw = Request.Form("oDw")
		If Len(vDw) < 0 Or Len(vDw) > 50 Then
			LastError = "单位的长度请控制在 0 至 50 位" : GetValue = False : Exit Function
		End If
		vDz = Request.Form("oDz")
		If Len(vDz) < 0 Or Len(vDz) > 50 Then
			LastError = "地址的长度请控制在 0 至 50 位" : GetValue = False : Exit Function
		End If
		vDh = Request.Form("oDh")
		If Len(vDh) < 0 Or Len(vDh) > 50 Then
			LastError = "电话的长度请控制在 0 至 50 位" : GetValue = False : Exit Function
		End If
		vZt = Request.Form("oZt")
		If Len(vZt) < 0 Or Len(vZt) > 50 Then
			LastError = "状态的长度请控制在 0 至 50 位" : GetValue = False : Exit Function
		End If
		vMail = Request.Form("oMail")
		If Len(vMail) < 0 Or Len(vMail) > 50 Then
			LastError = "邮箱的长度请控制在 0 至 50 位" : GetValue = False : Exit Function
		End If
		vBz = Request.Form("oBz")
		If Len(vBz) < 0 Then
			LastError = "备注的长度请控制在 0 位以内" : GetValue = False : Exit Function
		End If
		GetValue = True
	End Function
	Public Function SetValue()
		Dim Rs
		Set Rs = DB("Select * From [User] Where ID=" & vID,1)
		If Rs.Eof Then Rs.Close : Set Rs = Nothing : LastError = "你所需要查询的记录 " & vID & " 不存在!" : SetValue = False : Exit Function
		vXm = Rs("Xm")
		vDw = Rs("Dw")
		vDz = Rs("Dz")
		vDh = Rs("Dh")
		vZt = Rs("Zt")
		vMail = Rs("Mail")
		vBz = Rs("Bz")
		Rs.Close
		Set Rs = Nothing
		SetValue = True
	End Function
	Public Function Create()
		Dim Rs
		Set Rs = DB("Select * From [User]",3)
		Rs.AddNew
		Rs("Xm") = vXm
		Rs("Dw") = vDw
		Rs("Dz") = vDz
		Rs("Dh") = vDh
		Rs("Zt") = vZt
		Rs("Mail") = vMail
		Rs("Bz") = vBz
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		Create = True
	End Function
	Public Function Modify()
		Dim Rs
		Set Rs = DB("Select * From [User] Where ID=" & vID,3)
		If Rs.Eof Then Rs.Close : Set Rs = Nothing : LastError = "你所需要更新的记录 " & vID & " 不存在!" : Modify = False : Exit Function
		Rs("Xm") = vXm
		Rs("Dw") = vDw
		Rs("Dz") = vDz
		Rs("Dh") = vDh
		Rs("Zt") = vZt
		Rs("Mail") = vMail
		Rs("Bz") = vBz
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		Modify = True
	End Function
	Public Function Delete()
		Call SetValue()
		DB "Delete From [User] Where ID=" & vID ,0
		Delete = True
	End Function
End Class
Dim U
Set U = New Cls_User
%>