張貼日期：Mar 09, 2010 7:27:58 AM
Dim SQLString
ClassID=Request("c_id")
If ClassID="" Then MywinBack()
SQLString = "DELETE FROM tb_photo_class WHERE c_id = " & ClassID
Set mySQLCommand = Server.CreateObject("ADODB.Command")
mySQLCommand.ActiveConnection = myConnString
mySQLCommand.CommandText = SQLString
mySQLCommand.Execute
mySQLCommand.ActiveConnection.Close
Set mySQLCommand = Nothing