📄 menu.asp
字号:
<!--#include file="Include/ADOdata.asp" -->
<%
'产生menu资料
Dim strQry
Dim conDB
Dim cmdCategories
Dim strmQuery
Dim strmResult
'范本中的根元素以及namespace
Const XML_HEADER = "<categorylist xmlns:sql='urn:schemas-microsoft-com:xml-sql'>"
Const XML_FOOTER = "</categorylist>"
'范本中的查询内容
strQry = XML_HEADER
strQry = strQry & "<sql:query>"
strQry = strQry & "SELECT CategoryID, CategoryName FROM Categories"
strQry = strQry & " FOR XML AUTO, elements"
strQry = strQry & "</sql:query>"
strQry = strQry & XML_FOOTER
'数据库连接与command对象设置
Set conDB = CreateObject("ADODB.Connection")
conDB.ConnectionString = strCon
conDB.Open
Set cmdCategories = CreateObject("ADODB.Command")
Set cmdCategories.ActiveConnection = conDB
'产生Query stream
Set strmQuery = CreateObject("ADODB.Stream")
strmQuery.Open
strmQuery.WriteText strQry, adWriteChar
strmQuery.Position = 0
Set cmdCategories.CommandStream = strmQuery
'指定style sheet
cmdCategories.Properties("XSL") = Server.MapPath("AppFiles\menu.xsl")
'产生result stream
Set strmResult = CreateObject("ADODB.Stream")
'strmResult.Charset="big5"
strmResult.Open
cmdCategories.Properties("Output Stream") = strmResult
'执行query
cmdCategories.Execute , , adExecuteStream
Response.Write strmResult.ReadText
Set strmResult = Nothing
Set strmQuery = Nothing
Set cmdCategories = Nothing
Set conDB = Nothing
%>
<head>
<base target="Products">
</head>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -