忙了一天在asp中写了几个Class，保存起来，不过不知道这样用好不好！！

<!--#include file = "Conn.asp"-->
<%
Class Cl_NewsClass1
 Private c_ID,c_ClassName,c_ErrId
 
 Private Sub Class_Initialize()
  c_ErrId = 0
  c_ID = 0
  c_ClassName = ""
 End Sub
 
 Public Property Get ID
  ID = c_ID
 End Property
  
 Public Property Get ClassName
  ClassName = c_ClassName
 End Property
 
 Public Property Get ErrId
  ErrId = c_ErrId
 End Property
 
 Public Sub GetByName (ClassName)
  Dim SetIdRs
  Set SetIdRs = Server.CreateObject("adodb.recordset")
  SetIdRs.Open "Select ID from NewsClass1 where ClassName = '"&ClassName&"'",Conn,1,1
  If Not SetIdRs.Eof Then
   c_ID = SetIdRs("ID")
   c_ClassName = ClassName
  Else
   c_ErrId = 1
  End If
  SetIdRs.Close : Set SetIdRs = Nothing
 End Sub
 
 Public Sub GetById (intID)
  Dim GCName
  Set GCName = Server.CreateObject("adodb.recordset")
  GCName.Open "Select ClassName from NewsClass1 Where ID = " & intID,Conn,1,1
  If Not GCName.Eof Then
   c_ClassName = GCName("ClassName")
   c_ID = intID
  Else
   c_ErrId = 2
  End If
  GCName.Close : Set GCName = Nothing
 End Sub
 
 Public Sub UpName (intId,strName)
  Conn.Execute "Update NewsClass1 Set ClassName = '"&strName&"' Where ID = " & intId
 End Sub
 
 Public Sub Add (strName)
  Conn.Execute "Insert into NewsClass1 (ClassName) Values ('"&strName&"')"
 End Sub
 
End Class

Class Cl_NewsClass2
 Private c_Id,c_Class1,c_ClassName,c_ErrId
 
 Private Sub Class_Initialize()
  c_Id = 0
  c_Class1 = 0
  c_ClassName = ""
  c_ErrId = 0
 End Sub
 
 Public Property Get Id
  Id = c_Id
 End Property
 
 Public Property Get Class1
  Class1 = c_Class1
 End Property
 
 Public Property Get ClassName
  ClassName = c_ClassName
 End Property
 
 Public Property Get ErrId
  ErrId = c_ErrId
 End Property
 
 Public Sub GetById (intId)
  Dim IdRs
  Set IdRs = Server.CreateObject("adodb.recordset")
  IdRs.Open "Select * from NewsClass2 Where ID = " & intId,conn,1,1
  If Not IdRs.Eof Then
   c_Id = IdRs("ID")
   c_Class1 = IdRs("Class1")
   c_ClassName = IdRs("ClassName")
  Else
   c_ErrId = 1
  End If
  IdRs.Close : Set IdRs = Nothing
 End Sub
 
 Public Sub GetByName (strName)
  Dim NameRs
  Set NameRs = Server.CreateObject("adodb.recordset")
  NameRs.Open "Select * From NewsClass2 where ClassName = '"&strName&"'",conn,1,1
  If Not NameRs.Eof Then
   c_Id = NameRs("ID")
   c_Class1 = NameRs("Class1")
   c_ClassName = NameRs("ClassName")
  Else
   c_ErrId = 2
  End If
  NameRs.Close : Set NameRs = Nothing
 End Sub
 
 Public Sub UpById (intId,intClass1,strClassName)
  Conn.Execute "UpDate NewsClass2 Set Class1 = " & intClass1 & ",ClassName = '"&strClassName&"' Where ID ="&intId
 End Sub
 
 Public Sub UpByName (intClass1,strClassName)
  Conn.Execute "Update NewsClass2 Set Class1 = '"&intClass1&"' Where ClassName = '"&strClassName&"'"
 End Sub
 
 Public Sub Add (intClass1,strClassName)
  Conn.Execute "Insert into NewsClass1 (Class1,ClassName) Values ("&intClass1&",'"&strClassName&"')"
 End Sub
 
End Class

Class Cl_NewsClass3
 Private c_Id,c_Class1,c_Class2,c_ClassName,c_ErrId
 
 Private Sub Class_Initialize()
  c_Id = 0
  c_Class1 = 0
  c_Class2 = 0
  c_ClassName = ""
  c_ErrId = 0
 End Sub
 
 Public Property Get Id
  Id = c_Id
 End Property
 
 Public Property Get Class1
  Class1 = c_Class1
 End Property
 
 Public Property Get Class2
  Class2 = c_Class2
 End Property
 
 Public Property Get ClassName
  ClassName = c_ClassName
 End Property
 
 Public Property Get ErrId
  ErrId = c_ErrId
 End Property
 
 Public Sub GetById (intId)
  Dim IdRs
  Set IdRs = Server.CreateObject("adodb.recordset")
  IdRs.Open "Select * from NewsClass3 Where ID = " & intId,conn,1,1
  If Not IdRs.Eof Then
   c_Id = IdRs("ID")
   c_Class1 = IdRs("Class1")
   c_Class2 = IdRs("Class2")
   c_ClassName = IdRs("ClassName")
  Else
   c_ErrId = 1
  End If
  IdRs.Close : Set IdRs = Nothing
 End Sub

 Public Sub GetByName (strName)
  Dim NameRs
  Set NameRs = Server.CreateObject("adodb.recordset")
  NameRs.Open "Select * From NewsClass3 where ClassName = '"&strName&"'",conn,1,1
  If Not NameRs.Eof Then
   c_Id = NameRs("ID")
   c_Class1 = NameRs("Class1")
   c_Class2 = NameRs("Class2")
   c_ClassName = NameRs("ClassName")
  Else
   c_ErrId = 2
  End If
  NameRs.Close : Set NameRs = Nothing
 End Sub
 
 Public Sub UpById (intId,intClass1,intClass2,strClassName)
  Conn.Execute "Update NewsClass3 set Class1 = "&intClass1&",Class2 = "&intClass2&",ClassName = '"&ClassName&"'"
 End Sub
 
 Public Sub Add(intClass1,intClass2,strClassName)
  Conn.Execute "Insert into NewsClass3 (Class1,Class2,ClassName) Values ("&intClass1&","&intClass2&",'"&strClassName&"')"
 End Sub
 
End Class

Class Cl_News
 Private c_ID,c_Class1,c_Class2,c_Class3,c_Title,c_Content,c_AddTime,c_AddPerson,c_HitCount,c_LastHit,c_IsBest,c_ErrId
 
 Private Sub Class_Initialize()
  c_Id = 0
  c_Class1 = 0
  c_Class2 = 0
  c_Class3 = 0
  c_Title = ""
  c_Content = ""
  c_AddTime = ""
  c_AddPerson = ""
  c_HitCount = 0
  c_LastHit = ""
  c_IsBest = False
  c_ErrId = 0
 End Sub
 
 Public Property Get Id
  Id = c_Id
 End Property
 
 Public Property Get Class1
  Class1 = c_Class1
 End Property
 
 Public Property Get Class2
  Class2 = c_Class2
 End Property
 
 Public Property Get Class3
  Class3 = c_Class3
 End Property
 
 Public Property Get Title
  Title = c_Title
 End Property
 
 Public Property Get Content
  Content = c_Content
 End Property
 
 Public Property Get AddTime
  AddTime = c_AddTime
 End Property
 
 Public Property Get AddPerson
  AddPerson = c_AddPerson
 End Property
 
 Public Property Get HitCount
  HitCount = c_HitCount
 End Property
 
 Public Property Get LastHit
  LastHit = c_LastHit
 End Property
 
 Public Property Get IsBest
  IsBest = c_IsBest
 End Property
 
 Public Sub GetById (intId)
  Dim GetRs
  GetRs = Server.CreateObject("adodb.recordset")
  GetRs.Open "Select * From News Where Id = "&intId,Conn,1,1
  If Not GetRs.Eof Then
   c_Id = GetRs("ID")
   c_Class1 = GetRs("Class1")
   c_Class2 = GetRs("Class2")
   c_Class3 = GetRs("Class3")
   c_Title = GetRs("Title")
   c_Content = GetRs("Content")
   c_AddTime = GetRs("AddTime")
   c_AddPerson = GetRs("AddPerson")
   c_HitCount = GetRs("HitCount")
   c_LastHit = GetRs("LastHit")
   c_IsBest = GetRs("IsBest")
  Else
   c_ErrId = 1
  End If
  GetRs.Close : Set GetRs = Nothing
 End Sub
 
 Public Sub AddNews (intClass1,intClass2,intClass3,strTitle,strContent,dtAddTime,strAddPerson,boolIsBest)
  Dim AddSql
  AddSql = "Insert into News (Class1,Class2,Class3,Title,Content,AddTime,AddPerson,IsBest) Values (" &intClass1
  AddSql = AddSql & ","&intClass2&","&intClass3&",'"&strTitle&"','"&strContent&"','"&dtAddTime&"','"&strAddPerson&"',"&boolIsBest&")"
  Conn.Execute AddSql
 End Sub
 
 Public Sub UpById(intId,intClass1,intClass2,intClass3,strTitle,strContent,dtAddTime,strAddPerson,boolIsBest)
  Dim UpRs
  UpRs = Server.CreateObject("adodb.recordset")
  UpRs.Open "Select * From News Where ID = "&intId,Conn,1,3
  If Not UpRs.Eof Then
   UpRs("Class1") = intClass1
   UpRs("Class2") = intClass2
   UpRs("Class3") = intClass3
   UpRs("Title") = strTitle
   UpRs("Content") = strContent
   UpRs("AddTime") = dtAddTime
   UpRs("AddPerson") = strAddPerson
   UpRs("IsBest") = boolIsBest
   UpRs.Update
  Else
   c_ErrId = 1
  End If
  UpRs.Close : Set UpRs = Nothing
 End Sub
 
 Public Sub UpHitById(intId)
  Conn.Execute "Update News Set HitCount = HitCount + 1,LastHit = '"&Now&"'"
 End Sub
 
End Class

Class Cl_User
 Private c_UserId,c_UserName,c_UserPwd,c_UserEmail,c_UserLevel,c_UserSex,c_UserPic,c_UserBirthday
 Private c_UserTel,c_UserAddress,c_UserNote,c_UserLabel,c_ErrId
 
 Private Sub Class_Initialize()
  c_UserId = 0
  c_UserName = ""
  c_UserPwd = ""
  c_UserEmail = ""
  c_UserLevel = ""
  c_UserSex = ""
  c_UserPic = ""
  c_UserBirthday = ""
  c_UserTel = ""
  c_UserAddress = ""
  c_UserNote = ""
  c_UserLabel = ""
  c_ErrId = 0
 End Sub
 
 Public Property Get UserId
  UserId = c_UserId
 End Property
 
 Public Property Get UserName
  UserName = c_UserName
 End Property
 
 Public Property Get UserPwd
  UserPwd = c_UserPwd
 End Property
 
 Public Property Get UserEmail
  UserEmail = c_UserEmail
 End Property
 
 Public Property Get UserLevel
  UserLevel = c_UserLevel
 End Property
 
 Public Property Get UserSex
  UserSex = c_UserSex
 End Property
 
 Public Property Get UserPic
  UserPic = c_UserPic
 End Property
 
 Public Property Get UserBirthday
  UserBirthday = c_UserBirthday
 End Property
 
 Public Property Get UserTel
  UserTel = c_UserTel
 End Property
 
 Public Property Get UserAddress
  UserAddress = c_UserAddress
 End Property
 
 Public Property Get UserNote
  UserNote = c_UserNote
 End Property
 
 Public Property Get UserLabel
  UserLabel = c_UserLabel
 End Property
 
 Public Property Get ErrId
  ErrId = c_ErrId
 End Property
 
 Public Sub GetByUserId (intId)
  Dim GetRs
  Set GetRs = Server.CreateObject("adodb.recordset")
  GetRs.Open "Select * From Users Where UserId = "&intId,Conn,1,1
  If Not GetRs.Eof Then
   c_UserName = GetRs("UserName")
   c_UserPwd = GetRs("UserPwd")
   c_UserEmail = GetRs("UserEmail")
   c_UserLevel = GetRs("UserLevel")
   c_UserSex = GetRs("UserSex")
   c_UserPic = GetRs("UserPic")
   c_UserBirthday = GetRs("UserBirthday")
   c_UserTel = GetRs("UserTel")
   c_UserAddress = GetRs("UserAddress")
   c_UserNote = GetRs("UserNote")
   c_UserLabel = GetRs("UserLabel")
  Else
   c_ErrId = 1
  End If
  GetRs.Close : Set GetRs = Nothing
 End Sub
 
 Public Sub AddUser(strUserName,strUserPwd,strUserEmail,strUserLevel,strUserSex,strUserPic,dtUserBirthday,strUserTel,strUserAddress,strUserNote,strUserLabel)
  Dim AddSql
  AddSql = "Insert into Users ('UserName','UserPwd','UserEmail','UserLevel','UserSex','UserPic','UserBirthday','UserTel','UserAddress','UserNote'.'UserLabel')"
  AddSql = AddSql & " Values ('"&strUserName&"','"&strUserPwd&"','"&strUserEmail&"','"&strUserLevel&"','"&strUserSex&"','"&strUserPic&"','"&dtUserBirthday&"','"&strUserTel&"','"&strUserAddress&"','"&strUserNote&"','"&strUserLabel&"')"
  Conn.Execute AddSql
 End Sub
 
 Public Sub UpUserById (intId,strUserName,strUserPwd,strUserEmail,strUserLevel,strUserSex,strUserPic,dtUserBirthday,strUserTel,strUserAddress,strUserNote,strUserLabel)
  Dim UpRs
  UpRs = Server.CreateObject("adodb.recordset")
  UpRs.Open "Select * From Users Where UserId = "&intId,conn,1,3
  If Not UpRs.Eof Then
   UpRs("UserName") = strUserName
   UpRs("UserPwd") = strUserPwd
   UpRs("UserEmail") = strUserEmail
   UpRs("UserLevel") = strUserLevel
   UpRs("UserSex") = strUserSex
   UpRs("UserPic") = strUserPic
   UpRs("UserBirthday") = strUserBirthday
   UpRs("UserTel") = strUserTel
   UpRs("UserAddress") = strUserAddress
   UpRs("UserNote") = strUserNote
   UpRs("UserLabel") = strUserlabel
   UpRs.Update
  Else
   c_ErrId = 1
  End If
  UpRs.Close : Set UpRs = Nothing
 End Sub
 
End Class
%>