jorkin / cuteaspframework Goto Github PK

东西不错，研究中...

不可以连接server slq DBMS呀

why not support Oracle?

[deleted issue]

Function Update(Table,Params,Where)
        Dim sqlCmd, parameteres, oParams
        Dim iName
        sqlCmd = "Set nocount on" & vbCrlf
        sqlCmd = sqlCmd & "Update "&Table&" set "
        parameteres = " "
        set objRec=ExecuteRecordSet("select top 0 * from " & table 
, null)
        Set oParams = Server.CreateObject("Scripting.Dictionary")
        If Not IsNull(params) Then
            For Each iName in params
                If InStr(iName,"#") > 0 Then
                    params.Key(iName) = 
Replace(iName,"#","")
                    iName = Replace(iName,"#","")
                    sqlCmd = sqlCmd & iName & "=" & 
iName & " + @" & iName & ","
                Else
                    sqlCmd = sqlCmd & iName & "=@" & 
iName & ","
                End If

                select case objRec(replace(iName, "@", 
"")).type
                case 3, 20, 17,2
                dtype = " int "
                case 4, 5, 6, 14, 131
                dtype = " decimal(20,15) "
                case 135
                dtype = " datetime "
                case 204, 128,205
                dtype = " binary "
                case 11

                dtype = " bit "
                case 129, 130, 202, 200, 201, 203
                dtype = " varchar(8000) "
                case else
                dtype = " varchar(8000) "
                end select

                parameteres = parameteres & "@" & iName & 
dtype & ","
            Next
        End If
        sqlCmd = Left(sqlCmd,Len(sqlCmd)-1)
        If Trim(Where) <> "" Then sqlCmd=sqlCmd&" Where "&Where&""
        sqlCmd = sqlCmd & vbCrlf & "select CAST(IsNull(@@ROWCOUNT,-
100) as int)"
        parameteres = Left(parameteres,Len(parameteres)-1)
        oParams.Add "@stmt",sqlCmd
        oParams.Add "@parameters",parameteres
        If Not IsNull(Params) Then
            For Each iName in Params
                oParams.Add "@"&iName,Params(iName)&""
            Next
        End If
        Update = Me.ExecuteScalar("sp_executesql",oParams)
        Set oParams = Nothing
    End Function

数据库都不给，你还不如不给示范。