updatesupp.asp

来自「一个购物网站」· ASP 代码 · 共 20 行

<%
  txtSupplierID = trim(request.form("txtsupplierid"))
  txtSupplierName = trim(request.form("txtsuppliername"))
  txtSupplierAddress = trim(request.form("txtsupplieraddress"))
  txtsuppliercity = trim(request.form("txtsuppliercity"))
  txtsupplierzipcode = trim(request.form("txtsupplierzipcode"))
  txtsupplieremail = trim(request.form("txtsupplieremail"))
  txtsupplierfaxnumber = trim(request.form("txtsupplierfaxnumber"))
 

  set con=Server.CreateObject("ADODB.Connection")
  con.open "PROVIDER=SQLOLEDB;DATA SOURCE=210.34.136.243;UID=user37;PWD=;DATABASE=project0104"
  set mycom = server.createobject("ADODB.Command")
  set mycom.ActiveConnection = con
  mycom.CommandText = "Update Supplier set cSupplierID='"&txtsupplierid&"',vSupplierName='"&txtsuppliername&"',vSupplierAddress='"&txtsupplieraddress&"',vSupplierCity='"&txtsuppliercity&"',vSupplierZipCode='"&txtsupplierzipcode&"',vEmailID='"&txtsupplieremail&"',vFaxNumber='"&txtsupplierfaxnumber&"' where cSupplierID='"&txtSupplierID&"'"
  mycom.Execute
  Response.write "Details is  Modified successfully!"

%>