首先，新建立一个文本文件，将文件名修改成index.asp
用记事本打开（当然，你可以使用Frontpage或者Dreamweaver，最好是使用vs2003或者2005来打开编辑）将文件的编码保存为UTF-8(文件--另存为--编码：选择“UTF-8”--保存)如下图（2-1）:
/attachments/2007/03/1_2007031900415017.gif


好了，下面我们就来构建一个页面布置如图2-2那样的页面内容。
/attachments/2007/03/1_2007031900415018.gif


将<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>复制到页面的最顶端，这一行主要是将该页面内容的编码设置UTF-8
插入配置文件

Response.ContentType="text/vnd.wap.wml;charset=UTF-8" ' 将文件的格式转换成wml，编码为UTF-8

下面这一段是WML文件的开头声明，必不可缺



插入换行符号（同样要记住最后要加“/”）



接下来就是输出新闻类别了。

执行数据库操作的时候，跟WEB上的操作是完全一样的！
(将下列代码复制到index.asp中,每一个循环将输出一个新闻类别。)

=*新闻类别*=

<%
Dim rs,i ' 定义变量
Call openConn() ' 打开数据库
Set rs=conn.execute("Select ID,Name from [NewsType]") ' 读取类别表数据
i=0
While(Not rs.eof) ' //循环列出类别名称及链接
i=i+1
%>
<%=rs(1)%>
<%
If i=3 or i=6 Then Response.Write("
") ' 输出第三个及第六个后换行
rs.moveNext ' 切记要加上“rs.moveNext”否则会出现死循环！
Wend
Call rsClose()
%>

跟着就是最新新闻的列表，我们读取前十条记录
(将下列代码复制到index.asp中,每一个循环将输出一条新闻。)

=*最新新闻*=

<%
Set rs=conn.execute("Select Top 10 ID,title From [NewsContent] order by ID desc") ' 读取新闻内容表前十条记录
While(Not rs.eof) ' //循环列出新闻标题
%>
<%=rs(1)%>

<%
rs.moveNext
Wend
Call rsClose()
Call connClose()
%>

输入换行符，版权信息

=*=*=*=*=*=

(C)WapForum.cn

用opera运行看看，嘿嘿，漂亮的页面是不是出来了！
再传到空间里，再拿手机试一试！

温馨提示：为了你调试的方便，建议你分段进行编码.