WAP之家:为您提供最全最新的WAP技术,CP.SP.3G等行业资讯。 WAP之家交流论坛全新开放 点击进入>>
WAP资讯 | 3G动态 | SP动态 | 运营商动态 | 内容商动态 | 制造商动态 | 论坛讨论>> 每次自动访问
WAP技术 | WAP源码 | 手机编程 | 手机源码 | 无线技术 | J2ME技术 | 手机软件 添加到收藏夹
IVR技术 | SP资料 | SMS MMS技术 | 商业方案 | IVR下载 | 书籍教程 | 工具软件 语言:繁體中文

WAP之家技术文章WAP教程网站教程xml+asp+xsl实现wap1.2和html页面输出

xml+asp+xsl实现wap1.2和html页面输出
作者:bicyle  来源:转载  发布时间:2005-9-12 17:38:21
xml的资源文件
catalog.xml

<?xml version="1.0" encoding="gb2312"?>
<CATALOG>
<CD>
<TITLE>bicyle</TITLE>
<ARTIST>loveChina,我爱你中国。</ARTIST>
<COUNTRY>中国</COUNTRY>
<COMPANY>Columbia</COMPANY>
<PRICE>10.90</PRICE>
<YEAR>1982</YEAR>
</CD>
<CD>
<TITLE>bicyle</TITLE>
<ARTIST>loveChina,我爱你中国。</ARTIST>
<COUNTRY>中国</COUNTRY>
<COMPANY>Columbia</COMPANY>
<PRICE>10.90</PRICE>
<YEAR>1982</YEAR>
</CD>
</CATALOG>


catalog_html.xsl

<?xml version='1.0'?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl">
<xsl:template match="/">
<html>
<body>
<table border="1">
<tr>
<th>Title</th>
<th>Artist</th>
</tr>
<tr>
<td><xsl:value-of select="CATALOG/CD/TITLE"/></td>
<td><xsl:value-of select="CATALOG/CD/ARTIST"/></td>
</tr>
</table>
</body>
</html>
</xsl:template>
</xsl:stylesheet>


catalog_wap.xsl


<?xml version="1.0" encoding="gb2312"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl">
<xsl:template match="/">
<wml>
<card id="one" title="This is a first card">
<p align="center">
<xsl:value-of select="CATALOG/CD/TITLE"/><br/>
<xsl:value-of select="CATALOG/CD/ARTIST"/><br/>
中国,我爱你<br/>
bicyle.126.com<br/>
</p>
</card>
</wml>
</xsl:template>
</xsl:stylesheet>

index.asp

<%
liulanqi=request.ServerVariables("HTTP_User-Agent")
if Instr(liulanqi,"Mozilla")<>0 then
xls_use="catalog_html.xsl"
else
xls_use="catalog_wap.xsl"
Response.ContentType = "text/vnd.wap.wml"
response.Write("<?xml version='1.0' encoding='gb2312'?>")
response.Write("<!DOCTYPE wml PUBLIC '-//WAPFORUM//DTD WML 1.1//EN' 'http://www.wapforum.org/DTD/wml_1.1.xml'>")
end if

'Load the XML
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.load(Server.MapPath("catalog.xml"))
'Load the XSL
set xsl = Server.CreateObject("Microsoft.XMLDOM")
xsl.async = false
xsl.load(Server.MapPath(xls_use))
'Transform the file
Response.Write(xml.transformNode(xsl))
%>

以上文件为以前学习xml后,学着编写的适合ie浏览器和手机、wap模拟器访问演示的程序代码,根据不同的设备生成两种代码。
希望大家提意见:以更好开发xml的多平台应用。
[] [返回上一页] [打 印]
文章评论

用户名: 查看更多评论

分 值:100分 85分 70分 55分 40分 25分 10分 0分

内 容:

         (注“”为必填内容。) 验证码: 验证码,看不清楚?请点击刷新验证码