deletesupp.asp

一个购物网站

<%
Scode=Trim(Request.Form("Scode"))
if Scode <> "" then
         set Con=Server.CreateObject("ADODB.Connection")
         Con.Open "Provider=SQLOLEDB;User ID=user37;Initial Catalog=project0104;Data Source=210.34.136.243"
         set RS=Server.CreateObject("ADODB.Recordset")
         myql="Delete from Supplier where cSupplierID='"&Scode&"'"
        
Con.Execute mysql
Con.Close
set RS=Nothing
set Con=Nothing
end if
response.write "the data has been deleted successfully!"
%>