addtable.cls

客户管理crm xitong ,希望能给你带来帮助

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "addtable"
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 addtable()
    If request("Submit") <> "" Then
        strSql = "insert into table_cat(table_cat_name,table_cat_desc) values('"
        strSql = strSql & getString(request("table_cat_name")) & "','"
        strSql = strSql & getString(request("table_cat_desc")) & "')"
        objConn.Execute strSql
        strSql = "select @@identity as table_cat_id"
        Set objrs = server.CreateObject("adodb.recordset")
            objrs.Open strSql, objConn, 1, 1
        table_cat_id = objrs.Fields("table_cat_id")
        response.Redirect "tabledesign.asp?table_cat_id=" & table_cat_id
    End If
End Sub