📄 dispatch.asp

📁 《SQL Server 2000课程设计案例精编》-李昆-源代码-3436

💻 ASP

字号:


<HTML><HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<%


Const XML_HEADER = "<deliverynote xmlns:sql='urn:schemas-microsoft-com:xml-sql'>"
Const XML_FOOTER = "</deliverynote>"
Const adExecuteStream = 1024
Const adWriteChar = 0
Dim strOrderNo

strOrderNo = Request.Form("txtOrderNo")

Dim strQuery
strQuery = XML_HEADER
strQuery = strQuery & "<sql:query>"
strQuery = strQuery & "SELECT OrderNo reference, DeliveryAddress delivery_address "
strQuery = strQuery & "FROM Orders package WHERE OrderNo = " & strOrderno & " FOR XML AUTO, elements"
strQuery = strQuery & "</sql:query>"
strQuery = strQuery & XML_FOOTER

'Execute query using ADO
Dim cmdPackage
Dim strmResult
Dim strmQuery
Set cmdPackage = CreateObject("ADODB.Command")
cmdPackage.ActiveConnection = "provider=SQLOLEDB;data source=(local);initial catalog=supplier;integrated security=sspi;"

Set strmQuery = CreateObject("ADODB.Stream")
strmQuery.Open
strmQuery.WriteText strQuery, adWriteChar
strmQuery.Position = 0
Set cmdPackage.CommandStream = strmQuery

Set strmResult = CreateObject("ADODB.Stream")
strmResult.Open
cmdPackage.Properties("Output Stream") = strmResult
cmdPackage.Properties("XSL") = Server.MapPath("dispatch.xsl")

cmdPackage.Execute , , adExecuteStream

Dim strXML
strXML = strmResult.ReadText

Response.Write strXML
%>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
</HEAD>
<BODY bgColor=#ffcc99></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -