placeorder.asp

来自「《SQL Server 2000课程设计案例精编》-李昆-源代码-3436」· ASP 代码 · 共 27 行

<%


Dim strXML
Dim cmd
Dim con
Const adCmdStoredProc = 4

strXML = Request.QueryString("txtOrder")
Set con = CreateObject("ADODB.Connection")
con.Open "PROVIDER=SQLOLEDB; INTEGRATED SECURITY=SSPI; DATA SOURCE=(local);INITIAL CATALOG=Supplier;"

Set cmd = CreateObject("ADODB.Command")
strXML = Replace(strXML, "encoding=""utf-8""", "")
With cmd
  Set .ActiveConnection = con
  .CommandText = "ImportOrder"
  .CommandType = adCmdStoredProc
  .Parameters(1).Value = strXML
  .Execute
End With

Set cmd = Nothing
Set con = Nothing

%>