构建动态 WAP 站点

写了一个c2u的函数，进行汉字和字符实体之间的转换，程序如下： 

<% 
Function c2u(text) 
　 For i=1 to Len(text) 
　 c=Mid(text,i,1) 
　 c2u=c2u&"&#x" & Hex(AscW(c)) & ";" 
　 Next 
　End Function 
%> 

　　要在WML中输出汉字的时候，只需 <%=c2u("中文字符")%> 即可。 

　　在WML中，采用不同card间的跳转来实现功能选择的步骤。采用<postfield/>标记给ASP页面传递客户端的选择信息。在ASP程序中，使用 Request.QueryString("")来获得客户端传递来的信息。

下面就是完整的一个显示页面的例子： 

<%@ LANGUAGE="VBScript" %> 
<% 
dim j 
j=0 
%> 
<% 
Function c2u(text) 
　 For i=1 to Len(text) 
　 c=Mid(text,i,1) 
　 c2u=c2u&"&#x" & Hex(AscW(c)) & ";" 
　 next 
　End Function 
%> 
<% 
　set conn=server.createobject("adodb.connection") 
　conn.open"dsn=money;uid=;pwd=;database=money.mdb" 
　sql0="update stock set temp=(price5-price4)/price4*100" 
　set rs0=server.createobject("adodb.recordset")　 
　rs0.open sql0,conn 
　sql="select num,name,temp from stock where temp<0 order by temp ASC" 
　set rs=server.createobject("adodb.recordset")　 
　rs.open sql,conn　 
%> 
<% Response.ContentType="text/vnd.wap.wml" %><?xml version="1.0"?> 
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"><wml> 

<card id="ShowCurrent"> 
<p> 
　 <%=c2u("跌幅前五名:")%><br/> 
<% 
while j<5 and not rs.eof 
%> 
　 <%=rs(0).Value%>-<%=c2u(rs(1).Value)%> <%=rs(2).Value%>% 
<br/> 
<% 
rs.movenext 
j=j+1 
wend 
%> 
</p> 
<do type="accept" label="<%=c2u("返回")%>"> 
　<go href="index.asp#Welcome"/> 
</do> 
<p align="center"> 
(c) 501 Studio, 2001<br/> 
All rights reserved ! 
</p> 
</card> 
</wml>　 
<% 
rs.close 
%>