<% dim SmallClassID,sql bigclasstable=trim(Request("bigclasstable")) SmallClasstable=trim(Request("SmallClasstable")) infotable=trim(Request("infotable")) SmallClassID=trim(Request("SmallClassID")) if SmallClassID<>"" then sql="delete from "&SmallClasstable&" where SmallClassID="&cint(SmallClassID) conn.Execute sql sql="delete from "&infotable&" where SmallClassName='"&SmallClassID&"'" conn.Execute sql end if call CloseConn() Response.Redirect "allClassManage.asp?bigclasstable="&bigclasstable&"&SmallClasstable="&SmallClasstable %>