现在行了,刚才又写错了,改时后的代码如下:
<%
aa=request.form("aa")
a=len(aa)
for i=1 to a
b=mid(aa,i,1)
if i mod 1=0 then
response.Write(""&b&""&"&nbsp;"""&asc(""&b&"")&"""<br>")
end if
next
%>
<%
aa=request.form("aa")
a=len(aa)
for i=1 to a
b=mid(aa,i,1)
if i mod 1=0 then
response.Write(""&b&""&" """&asc(""&b&"")&"""<br>")
exit for'如果不是字母则退出!
end if
next
%>