看看这段程序错在哪?
ahuu 2003-10-19 10:59:13 <%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<%
Function c2u(myText)
Dim i
c2u = ""
For i = 1 to Len(myText)
c2u = c2u & "&#x" & Hex(AscW(Mid(myText,i,1))) & ";"
next
End Function
%><?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//OPENWAVE.COM//DTD WML 1.3//EN" "http://www.openwave.com/dtd/wml13.dtd">
<!-- WML file created by the Openwave SDK -->
<wml>
<card id="index" title="<%= c2u("扬子晚报欢迎您!") %>">
<p align="center">
<%
Dim conn,rs
sql = "select * from [T_YZUSR]"
set conn = server.CreateObject("ADODB.connection")
set rs = server.CreateObject("ADODB.recordset")
conn.open"DSN=yangtse;uid=sun;pwd=25528055"
rs.open sql,conn,1,2
while not rs.eof
response.Write(c2u(rs("USR_NAME")))
wend
rs.close
conn.close
set conn = nothing
%>
</p>
</card>
</wml>
不能显示库中的数据,但把<% %>之间的内容全部替换为<%=c2u("你好")%>,就可以正常显示为:你好。请指教