计算机科学论坛--请问如何在asp.net+xml作的电子商务网站上加入超级链接？

贴子主题：请问如何在asp.net+xml作的电子商务网站上加入超级链接？

本主题类别:

各位大侠，请问如何在asp.net+xml作的网站上加入超级链接？
在那个文件中加呢？
以下是个实验的例子：
123.xsl

<?xml version="1.0" encoding="GB2312"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl"
xmlns="http://www.w3.org/TR/REC-html40"
result-ns="">
<xsl:template><xsl:apply-templates/></xsl:template>

<xsl:template match = "/">
    <HTML>
    <HEAD>
        <TITLE>F网上书店书目</TITLE>
    </HEAD>
    <BODY>
        <xsl:apply-templates select="goods"/>
    </BODY>
    </HTML>
</xsl:template>

<xsl:template match = "goods">
    <xsl:for-each select="books">
        <UL>
        <LI><xsl:value-of select="bookname"/></a></LI>
        <UL>
            <LI>书号:<xsl:value-of select="bookno"/></LI>
            <LI>价格: <xsl:value-of select="bookprice"/></LI>
            <LI>点基人数: <xsl:value-of select="click"/></LI>
            <LI>购买人数: <xsl:value-of select="buy"/></LI>
        </UL>
        </UL>
    </xsl:for-each>
</xsl:template>
</xsl:stylesheet>

xml.aspx

<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>

<Script Language="VB"  Debug="true" Runat="Server">
sub page_load(sender as Object,e as EventArgs)
dim myConnection as OleDbConnection
dim MyDataReader as OleDbDataReader
myConnection=new OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=c:\aspxtemp\webtemp.mdb")
myConnection.Open()
Dim myCommand As OleDbCommand
Dim ds as DataSet
myCommand = New OleDbCommand( "select * from [book]", myConnection )
MyDataReader=myCommand.ExecuteReader()
Response.Write ("<?xml version=""1.0"" encoding=""GB2312"" standalone=""yes""?>" )
Response.Write(vbcrlf)
Response.Write ("")
Response.Write(vbcrlf)
Response.Write("<?xml-stylesheet type=""text/xsl"" href=""123.xsl""?>")
Response.Write(vbcrlf)
Response.Write ("<goods>")
Response.Write(vbcrlf)
do while MyDataReader.Read()
  Response.Write ("<books>")
Response.Write(vbcrlf)
  Response.Write ("<bookno>")
  Response.Write (MyDataReader("ID1"))
  Response.Write ("</bookno>")
Response.Write(vbcrlf)
  Response.Write ("<bookname>")
  Response.Write (MyDataReader("book_name"))
  Response.Write ("</bookname>")
Response.Write(vbcrlf)
  Response.Write ("<bookprice>")
  Response.Write (MyDataReader("price"))
  Response.Write ("</bookprice>")
Response.Write(vbcrlf)
  Response.Write ("<click>")
  Response.Write (MyDataReader("click"))
  Response.Write ("</click>")
Response.Write(vbcrlf)
  Response.Write ("<buy>")
  Response.Write (MyDataReader("buy"))
  Response.Write ("</buy>")
Response.Write(vbcrlf)
  Response.Write ("</books>")
Response.Write(vbcrlf)
loop
Response.Write ("</goods>")

end sub

</script>


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	109.375ms