★WSHでCGI★JScriptVBScript

1 名前：nobodyさん mailto:sage [03/08/01 22:37 ID:???] 【このスレの概要】 ・Windows Script Host (=WSH)をCGI利用する ・JScript、又はVBScriptをCGIスクリプトとする ・自PCをサーバー稼動させる事を前提とする ・原則、Windows以外はフリーで入手できるアプリ、ツールの利用 【対象環境】 ・Windows95以上及び、WSH5.6以上のインストール済み ・Webサーバーソフトにはフリー配布のAN HTTPDを前提とする ※作者：中田 昭雄氏　配布元：ttp://www.st.rim.or.jp/~nakata/ なお、このスレでの内容を直接、中田氏サイトへ質問するのはやめて頂きたい。 【お約束】 ・試行は自PCで自己責任で行う ・商用実利用は前提としていない、本スレは、プログラム技術的知識、お遊び、趣味の範囲であることを理解する 55 名前：1 mailto:sage [2005/04/12(火) 17:41:14 ID:???] Option Explicit '●エンコード文字列分解の正規表現 Private ObjRgExDecode Set ObjRgExDecode=New RegExp With ObjRgExDecode .Global=true .Pattern="%[0-9A-F][0-9A-F]|." .IgnoreCase=true End With 56 名前：1 mailto:sage [2005/04/12(火) 17:43:48 ID:???] '●シフトJISデコード sc;エンコード文字列 Public Function PF_Decode(ByVal sc) Dim ms,d0,d1,d2,d3,d,s On Error Resume Next sc=replace(sc,"+"," ",1,-1,1) Set ms=ObjRgExDecode.Execute(sc) d0="" 57 名前：1 mailto:sage [2005/04/12(火) 17:45:51 ID:???] For Each d1 in ms d2=split(d1,"%") if d0="" then '1バイト目か？ if d2(0)="" then 'エンコード文字だったら d3=clng("&H" & d2(1)) if (d3>=&H81 and d3<=&H9f) or (d3>=&He0 and d3<=&Hef) then '2バイト文字の１バイト目なら d0=d2(1) d="" else d0="" d=chr("&H" & d2(1)) End if Else d0="" d=d2(0) End if 58 名前：1 mailto:sage [2005/04/12(火) 17:46:42 ID:???] Else '日本語2バイト目だったら if d2(0)="" then 'エンコード文字だったら d=chr("&H" & d0 & d2(1)) d0="" else '通常文字だったら d=chr("&H" & d0 & hex( asc(d2(0)) ) ) d0="" end if End if s=s & d next if err.number>0 then PF_Decode="" Else PF_Decode=CStr(s) End if End Function

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef