張貼日期：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