データを書き込む際、全角数値を半角で登録するには

ＡＳＰにおいてSQL-SERVERにデータを書き込む際に全角数値だったら半角数値になおして書き込むことは可能でしょうか？？

例：１２３４→1234

もし可能ならばご教授お願いします！！！よろしくお願いします！！！

ちなみに理由はＨＴＭＬフォーム上で電話番号等数値入力のコントロールで全角で入力してしまうことがある為、対応として全角を半角で登録ってことになりました・・・。現在はバイト数で半角全角チェックを行っていますが、このチェックはなくすことになります。。。だれか助けてください。。。IMEの制御は行っていません。サーバはWINDOWS２０００、処理ブラウザはＩＥ、ＤＢはSQL-SERVER２０００を使用しています。

No.3 ベストアンサー 回答者： cookei 回答日時： 2005/07/06 15:28

ＶＢだと、ＳｔｒＣｏｎｖという変換関数が存在するのですが、ＡＳＰにはそれがないので、関数を作るしかないと思います。

こんなサンプルソース＆解説のページを見つけましたので、ご参考にしてください。

参考URL：http://www.dolphinnetservice.ne.jp/AcrobatASP/1. …

No.2 回答者： mangetsu_k 回答日時： 2005/07/06 11:05

hequilさんが書かれたようにBASP21を使う方法がありますが、

BASP21をインストール出来ない場合もありますよね。


数字は10個しかないので

str = "１２３４"
str = Replace(str,"０","0")
str = Replace(str,"１","1")
　　　　　・
　　　　　・
str = Replace(str,"９","9")

と１つずつ変換をかけてあげるのも手です。

また、「数字だけの文字列」ならばこれでも出来ます。

str = Cint(str)

多分正式な使い方じゃないので動作保障は出来ませんが…

No.1 回答者： hequil 回答日時： 2005/07/05 11:27

BASP21が使えるのなら、strConvで変換できます。

DIm objBasp
Dim strZen
Dim strHan
strZen = Request.Form("tel")

Set objBasp = Server.CreateObject("basp21")
strHan = objBasp.StrConv(strZen, 8)
Set objBasp = Nothing

参考URL：http://www.hi-ho.ne.jp/babaq/basp21.html#0022