[转帖]【第二课】第一个wap页面的实现
首先，新建立一个文本文件，将文件名修改成index.asp
用记事本打开（当然，你可以使用Frontpage或者Dreamweaver，最好是使用vs2003或者2005来打开编辑）
将文件的编码保存为UTF-8(文件--另存为--编码：选择“UTF-8”--保存)如下图（2-1）:
好了，下面我们就来构建一个页面布置如图2-2那样的页面内容。
将
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
复制到页面的最顶端，这一行主要是将该页面内容的编
码设置UTF-8
插入配置文件
<!--#include 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">
<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中,每一个循环将输出一个新闻类别。)
=*新闻类别*=<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) '//循环列出新闻标题
%>
<a href="NewsShow.asp?ID=<%=rs(0)%>"><%=rs(1)%></a><br/>
<%
rs.moveNext
Wend
Call rsClose()
Call connClose()
%>
输入换行符，版权信息
=*=*=*=*=*=<br/>
(C)WapForum.cn
用opera运行看看，嘿嘿，漂亮的页面是不是出来了！
再传到空间里，再拿手机试一试！
温馨提示：为了你调试的方便，建议你分段进行编码.
【第二课到此结束，要知后事如何，请看下课讲解，o(∩_∩)o...哈哈】
=====================================================================
【本文首发】 http://www.wapforum.cn/html/203/1655.htm （ 站长论坛）
【本文涉及的源码】 http://www.wapforum.cn/download/newsSystem/class/class2.rar
【联系交流】 联系ＱＱ: 13431619,44459416,82890065
ＱＱ交流群: 36508170
要了解更详细请到: http://www.wapforum.cn/html/list/203_1.htm
【注】 其余教程将后续推出，敬请关注！
[此贴子已经被作者于2007-3-15 9:26:11编辑过]