看看这段程序错在哪?

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("你好")%>,就可以正常显示为:你好。请指教
...全文
61 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
sunzhikai1978 2003-10-20
  • 打赏
  • 举报
回复
更改如下:

<%@LANGUAGE="VBSCRIPT"%>
<%
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
rs.moveFirst
while not rs.eof
response.Write(c2u(rs("USR_NAME")))
response.Write("<br/>")
rs.moveNext
wend
rs.close
conn.close
set conn = nothing
%>
</p>
</card>
</wml>
ahuu 2003-10-19
  • 打赏
  • 举报
回复
数据库为access

790

社区成员

发帖
与我相关
我的任务
社区描述
移动平台 其他移动相关
社区管理员
  • 移动开发其他问题社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧