高分请问！数据库查询的结果返回XML,怎样动态转化成HTML?（顶者有分）
高分请教！！数据库查询的结果返回XML,怎样动态转化成HTML??（顶者有分）
数据库的查询结果，返回XML
怎么将结果动态转换成HTML.
如果使用XSLT的话是不是要手写？
如果手写每次查询的条件不同，结果也就不同，手写XSLT就不能适应变化了？
------解决方案--------------------
XSLT。JAVASCRIPT客户端动态修改查询条件可解决。
http://blogger.org.cn/blog/more.asp?name=Qr&id=10629
------解决方案--------------------
楼主的问题 我也一直在想 看过很多资料 都是在写把xml过一下实现写好的xslt就变成html了 但所有的东西不可能死死的放在那里 怎么让xslt也动起来呢 希望得到大侠们的指导
------解决方案--------------------
XSLT是显示和数据分离
如果有多个显示方式可以先判断再转向适当的xslt
xslt可以在服务器生成html数据再发送给客户端
------解决方案--------------------
如果是要做互动的话，XSLT可以用参数。
可以参考一下这篇：http://blog.****.net/cds27/archive/2006/05/08/712546.aspx
------解决方案--------------------
xslt只是格式化转换,查询结果具体要格式化成什么,是需要写xslt与之对应的
------解决方案--------------------
XSLT代码和参数是你定的, 只要写的合理当然是可以.
------解决方案--------------------
asp文件：
<html>
<head>
<title> Happy Sky BookShop </title>
</head>
<%@LANGUAGE= "VBSCRIPT " CODEPAGE= "936 "%>
<%
Dim cn_ebookstore
set cn_ebookstore = CreateObject( "ADODB.Connection ")
cn_ebookstore.Open "driver={SQL Server}; server=HOTDAY; database=ebookstore; UID=sa; PWD=123456; "
if Request( "query_type ")= "title " then
Session( "query ")= "SELECT * FROM Book WHERE Title LIKE '% " & Request.Form( "txtQuery ") & "% ' "
elseif Request( "query_type ")= "author " then
Session( "query ")= "SELECT * FROM Book,AuthorList,BookAuthorList WHERE AuthorList.Name LIKE '% " & Request.Form( "txtQuery ") & "% ' AND Book.BookNo=BookAuthorList.BookNo AND BookAuthorList.AuthorNo=AuthorList.AuthorNo "
end if
Dim rsbooklist
Set rsbooklist=cn_ebookstore.Execute(Session( "query "))
if (rsbooklist.BOF=True AND rsbooklist.EOF=True) then
Response.Write( "Wrong! Do not have the book! ")
else
%>
<% Response.ContentType= "text/xml " %>
<?xml version= "1.0 " encoding= "GB2312 " ?>
<?xml-stylesheet type= "text/xsl " href= "style.xsl " ?>
<booklist>
<% Do Until rsbooklist.EOF %>
<book>
<书名> <%=rsbooklist( "Title ")%> </书名>
<书号> <%=rsbooklist( "BookNo ")%> </书号>
<定价> <%=rsbooklist( "Price ")%> </定价>
<图片> <%=rsbooklist( "BookNo ")%> .jpg </图片>
<详细信息> Details.asp? BookNo= <%=rsbooklist( "BookNo ")%> </详细信息>
<% bookno=rsbooklist( "BookNo ")
Dim rsAuthorlist
Set rsAuthorlist =cn_ebookstore.Execute( "SELECT AuthorList.Name FROM AuthorList,BookAuthorList WHERE (BookAuthorList.BookNo= ' "& bookno & " ' AND BookAuthorList.AuthorNO=AuthorList.AuthorNO) ")
Do Until rsAuthorList.EOF %>
<作者> <%=rsAuthorList( "Name ")%> </作者>
<% rsAuthorList.MoveNext
Loop
rsAuthorList.Close %>
</book>
<% rsbooklist.MoveNext
数据库的查询结果，返回XML
怎么将结果动态转换成HTML.
如果使用XSLT的话是不是要手写？
如果手写每次查询的条件不同，结果也就不同，手写XSLT就不能适应变化了？
------解决方案--------------------
XSLT。JAVASCRIPT客户端动态修改查询条件可解决。
http://blogger.org.cn/blog/more.asp?name=Qr&id=10629
------解决方案--------------------
楼主的问题 我也一直在想 看过很多资料 都是在写把xml过一下实现写好的xslt就变成html了 但所有的东西不可能死死的放在那里 怎么让xslt也动起来呢 希望得到大侠们的指导
------解决方案--------------------
XSLT是显示和数据分离
如果有多个显示方式可以先判断再转向适当的xslt
xslt可以在服务器生成html数据再发送给客户端
------解决方案--------------------
如果是要做互动的话，XSLT可以用参数。
可以参考一下这篇：http://blog.****.net/cds27/archive/2006/05/08/712546.aspx
------解决方案--------------------
xslt只是格式化转换,查询结果具体要格式化成什么,是需要写xslt与之对应的
------解决方案--------------------
XSLT代码和参数是你定的, 只要写的合理当然是可以.
------解决方案--------------------
asp文件：
<html>
<head>
<title> Happy Sky BookShop </title>
</head>
<%@LANGUAGE= "VBSCRIPT " CODEPAGE= "936 "%>
<%
Dim cn_ebookstore
set cn_ebookstore = CreateObject( "ADODB.Connection ")
cn_ebookstore.Open "driver={SQL Server}; server=HOTDAY; database=ebookstore; UID=sa; PWD=123456; "
if Request( "query_type ")= "title " then
Session( "query ")= "SELECT * FROM Book WHERE Title LIKE '% " & Request.Form( "txtQuery ") & "% ' "
elseif Request( "query_type ")= "author " then
Session( "query ")= "SELECT * FROM Book,AuthorList,BookAuthorList WHERE AuthorList.Name LIKE '% " & Request.Form( "txtQuery ") & "% ' AND Book.BookNo=BookAuthorList.BookNo AND BookAuthorList.AuthorNo=AuthorList.AuthorNo "
end if
Dim rsbooklist
Set rsbooklist=cn_ebookstore.Execute(Session( "query "))
if (rsbooklist.BOF=True AND rsbooklist.EOF=True) then
Response.Write( "Wrong! Do not have the book! ")
else
%>
<% Response.ContentType= "text/xml " %>
<?xml version= "1.0 " encoding= "GB2312 " ?>
<?xml-stylesheet type= "text/xsl " href= "style.xsl " ?>
<booklist>
<% Do Until rsbooklist.EOF %>
<book>
<书名> <%=rsbooklist( "Title ")%> </书名>
<书号> <%=rsbooklist( "BookNo ")%> </书号>
<定价> <%=rsbooklist( "Price ")%> </定价>
<图片> <%=rsbooklist( "BookNo ")%> .jpg </图片>
<详细信息> Details.asp? BookNo= <%=rsbooklist( "BookNo ")%> </详细信息>
<% bookno=rsbooklist( "BookNo ")
Dim rsAuthorlist
Set rsAuthorlist =cn_ebookstore.Execute( "SELECT AuthorList.Name FROM AuthorList,BookAuthorList WHERE (BookAuthorList.BookNo= ' "& bookno & " ' AND BookAuthorList.AuthorNO=AuthorList.AuthorNO) ")
Do Until rsAuthorList.EOF %>
<作者> <%=rsAuthorList( "Name ")%> </作者>
<% rsAuthorList.MoveNext
Loop
rsAuthorList.Close %>
</book>
<% rsbooklist.MoveNext