table.cls

本系统是基于B/S结构的客户关系管理系统. 测试管理员和密码是super 用户名super 密码super 前台和后台是一次性同时登陆的 系统工能介绍: 客户管理---------- 添

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "table"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Dim objConn As ADODB.Connection

Public Sub OnEndPage()
    Set server = Nothing
    Set session = Nothing
    Set application = Nothing
    Set request = Nothing
    Set response = Nothing
    disconnect objConn
End Sub ' OnEndPage

Public Sub OnStartPage(mysc As ScriptingContext)
    Set server = mysc.server
    Set application = mysc.application
    Set session = mysc.session
    Set request = mysc.request
    Set response = mysc.response
    
    Set objConn = server.CreateObject("ADODB.Connection")
    connect objConn
End Sub


Public Sub tablemanage()
     table_cat_id = request("table_cat_id")
     If table_cat_id = "" Then
        table_cat_id = 0
     End If
       
     If request("meth") = "del" Then
          strSqlB = "delete from table_cat where table_cat_id=" & request("table_cat_id")
          objConn.Execute strSqlB
     End If
    
     
     If request("meth") = "tabledel" Then
         strSql = "delete from tables where table_id=" & request("table_id")
         objConn.Execute strSql
         response.Redirect "tabledesign.asp?table_cat_id=" & table_cat_id
     End If
End Sub

Public Function gettable_cat() As Recordset
        strSqlA = "select * from table_cat order by table_cat_id"
        Set objRsA = server.CreateObject("adodb.recordset")
            objRsA.Open strSqlA, objConn, 1, 1
        Set gettable_cat = objRsA
End Function

Public Function gettable() As Recordset
        table_cat_id = request("table_cat_id")
        If table_cat_id = "" Then
           table_cat_id = 0
        End If
        strSql = "select * from tables where table_cat_id=" & table_cat_id
        Set objrs = server.CreateObject("adodb.recordset")
            objrs.Open strSql, objConn, 1, 1
        Set gettable = objrs
End Function