<%@ Language=VBScript %>
<% Response.ContentType="text/vnd.wap.wml"%><?xml version="1.0" encoding="gb2132"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<%
dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("data.mdb")
Set rs_placard=Server.CreateObject("adodb.Recordset")
sql="select * from placard order by id desc"
rs_placard.open sql,conn,3,3
%>
<%
Function uni(Chinese)
For i = 1 to Len (Chinese)
a=Mid(Chinese, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
next
End Function
%>
<wml>
<card id="main" title="ASP Web">
<p>
今天时间是：<br/>
<%=Now()%>
</p>
<p><%=uni(rs_placard("placard_content"))%><br/><br/></p>
<p>Data:<%=uni(rs_placard("placard_time"))%></p>
</card>
</wml>
<%
rs_placard.close()
Set rs_placard = Nothing
conn.close()
Set conn = nothing
%>
