📄 placeorder.asp
字号:
<%
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -