28,407
社区成员
发帖
与我相关
我的任务
分享第一个汉字取出来了，为何下一个取不出来！！
ryxm=Trim(Request("ryxm"))
Dim SHZ
Dim j
j=1
Dim LName
LName=Len(ryxm)
While j < LName
SHZ =Mid(ryxm, j, 1)
Sql="select * from DTYZ where HZ='" & SHZ & " ' "
rs2.open sql,adocon,3
if not rs2.eof then
SBY=rs2.Fields("BYCode")
else
SBY=""
end if
j=j+1
BY=BY+SBY
Wend
Dim SHZ
Dim j
j=1
Dim LName
LName=Len(ryxm)
While j < LName
SHZ =Mid(ryxm, j, 1)
Sql="select * from DTYZ where HZ='" & SHZ & " ' "
rs2.open sql,adocon,3
if not rs2.eof then
SBY=rs2.Fields("BYCode")
else
SBY=""
end if
j=j+1
BY=BY+SBY
Wend
...全文
请发表友善的回复…
发表回复
hsrcm7612 2003-12-04
- 打赏
- 举报
我知道，，但是我把1改成2，一个多取不道，，是别人教我改成1才取到一个汉字的！
lovedogdog 2003-12-04
- 打赏
- 举报
一个汉字占两个字节长度
