第一个汉字取出来了，为何下一个取不出来！！

[hsrcm7612]

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

[lovedogdog]

一个汉字占两个字节长度

[hsrcm7612]

我知道，，但是我把1改成2，一个多取不道，，是别人教我改成1才取到一个汉字的！