<%@ Language=VBScript %> <% Option Explicit %> <% Dim rsUpdate Dim nid,id,name,city,career,company,email,subject,msg,etime,ip id = CLng(Request("id")) Set rsUpdate = Server.CreateObject("ADODB.Recordset") sqlstr = "Delete FROM BulletinBoard Where id=" & id rsUpdate.open sqlstr, conn, 3, 3 %> <% 'rsUpdate.close 'conn.close Set rsUpdate = Nothing Set conn = Nothing %>

資料已刪除