★WSHでCGI★JScriptVBScriptat PHP★WSHでCGI★JScriptVBScript - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト58:1 05/04/12 17:46:42 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 59:1 05/04/12 18:02:26 >>55-58 これらは連続しています。 １つのVBSファイルにコピーしてください。 ファイル名はなんでもいいです。support01.vbsとでもしておきます。 wsfファイルでライブラリインクルードするとJScriptでも使えます。 VBSのPF_Decode関数はエラーなら空文字列を返します。 以下、CGI実行.wsfファイルソースの例。 なお、</SCRIPT> は省略して <SCRIPT ～ />という書き方はしゃれてますｗ <job> <SCRIPT language="vbs" src="./support01.vbs" /> <SCRIPT language="JScript"> //例 var sText=PF_Decode(デコードしたい文字列); </SCRIPT> </job> 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch