ok!

不清楚ASP里能控制系统的输入法吗？即便捕获快捷键，没听说过能控制输入法。

楼主的意思好象是他的文本里夹杂着一些全角符号，想把这些全角符号变成半角符号。
就得用我在2楼的笨方法

我把问题说具体点，我用表单收集诸如电话及qq号之类的数据，而有的网友习惯用全角输入，在提出数据显示时总是影响美观。

用正则表达式吧！

那就用replace(str,"全角","半角")把

先得到全角数字１２３４５６７８９０

再得到半角数字1234567890

代码可以这么写

dim qu(9)

dim bu(9)

qu(0)="１"
qu(1)="２"
qu(3)="３"
qu(3)="４"
qu(4)="５"
qu(5)="６"
qu(6)="７"
qu(7)="８"
qu(8)="９"
qu(9)="０"

bu(0)="1"
bu(1)="2"
……………
这里就省略了
bu(9)="0"
Dim i
For i=0 to 9
    replace(str,qu(i),bu(i))
Next

应该是这种写法。

试试看吧！谢谢！

不行啊，一个qq号出来9个qq号

问题解决了，只是太麻烦了。