asp2wml.asp

开发web_xml

<% 
<!-- get the wml head -- >
Response.ContentType = "text/vnd.wap.wml;charset=GB2312"
Response.write("<?xml version=""1.0""?><!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">") 
Response.write("<wml><card><p>")
Response.write("<em>ASP2WML</em>")

<!--connect to database and execute the query -- >
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open( " MyDatabase " )
sql = "select * from MyTABLE "
set RS = Conn.Execute(sql)

%>
查询的结果如下：<i> <%= sql %></i>
<table columns="4">

<%
i=0
while ( not RS.EOF and i <= 4 ) 
i=i+1 
%><TR>
<TD>
<u><%=RS(1)%></u></TD>
<TD><%=RS(2)%></TD>
<TD><%=RS(3)%></TD>
</TR>
<%RS.MoveNext;
wend 

RS.close
Conn.close

Response.write("</table>")
Response.write( "It’s the end.")

<!-- get the end tag of WML-- >
Response.write("</p></card></wml>")
%>