【第二课】手把手交你用ASP开发WAP网站
时间：[2007-11-2 17:28:21] 作者：作者不详
首先，新建立一个文本文件，将文件名修改成index.asp
用记事本打开（当然，你可以使用Frontpage或者Dreamweaver，最好是使用vs2003或者2005来打开编辑）将文件的编码保存为UTF-8(文件--另存为--编码：选择“UTF-8”--保存)如下图（2-1）:
/lining/adminis/WebEditor/UploadFile/2007112172819118.gif
好了，下面我们就来构建一个页面布置如图2-2那样的页面内容。
/lining/adminis/WebEditor/UploadFile/2007112172820552.gif
将<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>复制到页面的最顶端，这一行主要是将该页面内容的编码设置UTF-8
插入配置文件<!--＃i nclude file="inc/config.asp"-->
Response.ContentType="text/vnd.wap.wml;charset=UTF-8" '将文件的格式转换成wml，编码为UTF-8
下面这一段是WML文件的开头声明，必不可缺
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 文章来源:www.7wap.cn,WAP资讯网
<wml>
头部部分
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/><!-- 每次都需通过连接服务器调用本页内容 -->
<meta http-equiv="Cache-Control" content="no-cache"/><!-- 禁止浏览器从缓存中访问页面内容 -->
</head>
定义一个卡片
<card id="index" title="WAP新闻系统">
页面居左对齐
<p align="left">
输入各个结束标志（注意，结束标志绝对不能缺少，并且要一一对应，不然将会出错！）
</p>
</card>
</wml>
用opera（模拟器），先看一下，一个空白的WML页面就出来了！现在，我们就在这个页面上填上内容。
插入Logo图片（记住最后要加“/”）
<img src="/images/logo.gif" alt="logo"/>
插入换行符号（同样要记住最后要加“/”）
<br/>
接下来就是输出新闻类别了。
执行数据库操作的时候，跟WEB上的操作是完全一样的！
(将下列代码复制到index.asp中,每一个循环将输出一个新闻类别。) www.7wap.cn提供WAP资讯服务
=*新闻类别*=<br/>
<%
Dim rs,i '定义变量
Call openConn() '打开数据库
Set rs=conn.execute("Select ID,Name from [NewsType]") '读取类别表数据
i=0
While(Not rs.eof) '//循环列出类别名称及链接
i=i+1
%>
<a href="NewsList.asp?ID=<%=rs(0)%>"><%=rs(1)%></a>
<%
If i=3 or i=6 Then Response.Write("<br/>") '输出第三个及第六个后换行
rs.moveNext '切记要加上“rs.moveNext”否则会出现死循环！
Wend
Call rsClose()
%>
跟着就是最新新闻的列表，我们读取前十条记录
(将下列代码复制到index.asp中,每一个循环将输出一条新闻。)
=*最新新闻*=<br/>
<%
Set rs=conn.execute("Select Top 10 ID,title From [NewsContent] order by ID desc") '读取新闻内容表前十条记录
While(Not rs.eof) '//循环列出新闻标题
%> www.7wap.cn提供WAP资讯服务
<a href="NewsShow.asp?ID=<%=rs(0)%>"><%=rs(1)%></a><br/>
<%
rs.moveNext
Wend
Call rsClose()
Call connClose()
%>
输入换行符，版权信息
=*=*=*=*=*=<br/>
(C)WapForum.cn
用opera运行看看，嘿嘿，漂亮的页面是不是出来了！
再传到空间里，再拿手机试一试！
温馨提示：为了你调试的方便，建议你分段进行编码.
用记事本打开（当然，你可以使用Frontpage或者Dreamweaver，最好是使用vs2003或者2005来打开编辑）将文件的编码保存为UTF-8(文件--另存为--编码：选择“UTF-8”--保存)如下图（2-1）:
/lining/adminis/WebEditor/UploadFile/2007112172819118.gif
好了，下面我们就来构建一个页面布置如图2-2那样的页面内容。
/lining/adminis/WebEditor/UploadFile/2007112172820552.gif
将<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>复制到页面的最顶端，这一行主要是将该页面内容的编码设置UTF-8
插入配置文件<!--＃i nclude file="inc/config.asp"-->
Response.ContentType="text/vnd.wap.wml;charset=UTF-8" '将文件的格式转换成wml，编码为UTF-8
下面这一段是WML文件的开头声明，必不可缺
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 文章来源:www.7wap.cn,WAP资讯网
<wml>
头部部分
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/><!-- 每次都需通过连接服务器调用本页内容 -->
<meta http-equiv="Cache-Control" content="no-cache"/><!-- 禁止浏览器从缓存中访问页面内容 -->
</head>
定义一个卡片
<card id="index" title="WAP新闻系统">
页面居左对齐
<p align="left">
输入各个结束标志（注意，结束标志绝对不能缺少，并且要一一对应，不然将会出错！）
</p>
</card>
</wml>
用opera（模拟器），先看一下，一个空白的WML页面就出来了！现在，我们就在这个页面上填上内容。
插入Logo图片（记住最后要加“/”）
<img src="/images/logo.gif" alt="logo"/>
插入换行符号（同样要记住最后要加“/”）
<br/>
接下来就是输出新闻类别了。
执行数据库操作的时候，跟WEB上的操作是完全一样的！
(将下列代码复制到index.asp中,每一个循环将输出一个新闻类别。) www.7wap.cn提供WAP资讯服务
=*新闻类别*=<br/>
<%
Dim rs,i '定义变量
Call openConn() '打开数据库
Set rs=conn.execute("Select ID,Name from [NewsType]") '读取类别表数据
i=0
While(Not rs.eof) '//循环列出类别名称及链接
i=i+1
%>
<a href="NewsList.asp?ID=<%=rs(0)%>"><%=rs(1)%></a>
<%
If i=3 or i=6 Then Response.Write("<br/>") '输出第三个及第六个后换行
rs.moveNext '切记要加上“rs.moveNext”否则会出现死循环！
Wend
Call rsClose()
%>
跟着就是最新新闻的列表，我们读取前十条记录
(将下列代码复制到index.asp中,每一个循环将输出一条新闻。)
=*最新新闻*=<br/>
<%
Set rs=conn.execute("Select Top 10 ID,title From [NewsContent] order by ID desc") '读取新闻内容表前十条记录
While(Not rs.eof) '//循环列出新闻标题
%> www.7wap.cn提供WAP资讯服务
<a href="NewsShow.asp?ID=<%=rs(0)%>"><%=rs(1)%></a><br/>
<%
rs.moveNext
Wend
Call rsClose()
Call connClose()
%>
输入换行符，版权信息
=*=*=*=*=*=<br/>
(C)WapForum.cn
用opera运行看看，嘿嘿，漂亮的页面是不是出来了！
再传到空间里，再拿手机试一试！
温馨提示：为了你调试的方便，建议你分段进行编码.
【声明】本站刊载的《【第二课】手把手交你用ASP开发WAP网站 》一文如果有侵害你权益的情况，请联系我们。我们将及时采取措施。
QQ：44637339 Email:just6@163.com Tel:13355163107 Lining studios
