请帮忙看看asp源码的问题在哪?
发布网友
发布时间：2022-10-20 08:25
共1个回答
热心网友
时间：2024-10-15 17:59
这样改
function getpy(str)
getpy=uCase(str)
end function
+-------------
这样来
function getpy(str)
dim s
s=""
for i=1 to len(str)
o=mid(str,i,1)
if isnumeric(o) then
s=s & o
else
s=s & getpychar(o)
End if
next
getpy=s
end function
-----------------------------------
getpychar(char) 方法内容不全，导致运算有空值 少 i u v 的判断
