asp将全角转化成半角的函数

最简单的方法就是替换……

<%
function ciker(content)
content=replace(content,"１","1")
content=replace(content,"２","2")
content=replace(content,"３","3")
content=replace(content,"４","4")
content=replace(content,"５","5")
content=replace(content,"６","6")
content=replace(content,"７","7")
content=replace(content,"８","8")
content=replace(content,"９","9")
ciker=content
end function

response.write ciker("１２３４５６７８９")
%>