Insert 插入資料

張貼日期：Mar 09, 2010 7:24:35 AM

Dim SQLString

If NOT IsEmpty(Request.Form("submit")) Then

'插入資料

SQLString = " INSERT INTO tb_photo_class (c_title, c_sort) " & _

" VALUES (" & fixData(Request.Form("c_title"), "S") & ", " & fixData(Request.Form("c_sort"), "N") & ")"

Set mySQLCommand = Server.CreateObject("ADODB.Command")

mySQLCommand.ActiveConnection = myConnString

mySQLCommand.CommandText = SQLString

mySQLCommand.Execute

mySQLCommand.ActiveConnection.Close

Set mySQLCommand =Nothing

End If