2006年09月27日

  「改行のない空白文字」

「 」(※←半角文字だと表示されないので全角にしています)
は no-break space の略で、
HTML2.0(RFC1866)にも定義されています。
「改行のない空白文字」を示す記号です。

ただし、日本語の環境では
ブラウザやフォントの設定によって
使用できない場合があるようです。

使用例(※↓半角文字だとソースが表示されないので全角にしています)
<input name=”submit_print” type=”button” value=”印 刷” class=”BtnPrint” onClick=”javascript:print(’print.asp’,’1234’);”><span style=”color:#FF0000;”>   </span><input name=”submit_back” type=”button” value=”戻 る” class=”BtnClose” onClick=”javascript:go_next(’0’);”>
posted by べる at 14:41| 沖縄 ☔| Comment(0) | TrackBack(0) | HTML | このブログの読者になる | 更新情報をチェックする

半角英数字チェック

'**************************************************************************************************
' 説明: 半角英数字チェック
' 引数: Str >検索文字列(String)
' 戻り: Return >True:半角英数字以外が含まれている
'            False:半角英数字のみである
'**************************************************************************************************
Function isAlpNum(str)

 isAlpNum = PatternChk(str,"[^0-9a-zA-Z]")  '検索パターン文字列チェック

End Function
posted by べる at 11:05| 沖縄 ☔| Comment(0) | TrackBack(0) | VBScript | このブログの読者になる | 更新情報をチェックする

検索パターン文字列チェック

'**************************************************************************************************
' 説明: 検索パターン文字列チェック(Aspの正規表現を使用してチェックする)
' 引数: str >検索文字列(String)
'     pat >検索パターン文字列
' 戻り: Return >True :検索パターン文字列以外が含まれている
'            False:検索パターン文字列のみである
'**************************************************************************************************
Function PatternChk(str,pat)

 Dim Obj            'オブジェクト定義
 Set Obj = New RegExp   'オブジェクトの作成
 Obj.Pattern = pat       '検索パターン文字列設定
 PatternChk = Obj.Test(str)  'Aspの正規表現でチェック
 Set Obj = Nothing     'オブジェクトの開放

End Function
posted by べる at 11:02| 沖縄 ☔| Comment(0) | TrackBack(0) | VBScript | このブログの読者になる | 更新情報をチェックする

2006年09月26日

半角英数字チェック

★大文字の半角英数字
if (document.forms[0].moji.value.match(/[^0-9|^A-Z]/g)) {
 alert("「文字」は、大文字の半角英数字で入力して下さい。");
 document.forms[0].moji.select();
 return false;
}
★半角英数字(小文字も可)
if (document.forms[0].moji.value.match(/[^0-9|^A-Z]/gi)) {
 alert("「文字」は、半角英数字で入力して下さい。");
 document.forms[0].moji.select();
 return false;
}
posted by べる at 11:09| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

2006年09月20日

NG記号チェック

// 16 NG記号チェック
function ngstrChk(str){
 var res = !(/[!"#$%&',\/;<=>?\\]/.test(str));
 if(!res){
  alert("! \" # $ % & ' , / ; < = > ? \\ は入力できません。");
 }
 return res;
}
posted by べる at 11:51| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

2006年09月14日

ASCIIコードでのバイト長を返す

'================================================================================
' 説明: ASCIIコードでのバイト長を返す
' 引数: data  >対象となる文字列
' 戻り: AscLenB   >指定文字列のASCIIコードでのバイト数
' 備考: 半角1文字は"1"を返す。
'   全角1文字は"2"を返す。
'================================================================================
Function AscLenB(data)

 Dim i

 AscLenB = Len(data)
 For i = 1 To Len(data)
  If Len(Hex(Asc(Mid(data, i, 1)))) > 2 Then
   AscLenB = AscLenB + 1
  End If
 Next

End Function
posted by べる at 09:44| 沖縄 ☁| Comment(0) | TrackBack(0) | VBScript | このブログの読者になる | 更新情報をチェックする

2006年09月12日

ErrorVBScriptReport

function ErrorVBScriptReport(naiyo)

 ErrorVBScriptReport=true

 if err.number = 0 then
  exit function
 end if
 Response.Write (" NAIYO : " & naiyo & vbcrlf)
 Response.Write ("<BR><B>===== ERROR VB SCRIPT MESSAGES START =====" & vbcrlf)
 Response.Write ("ERROR NUMBER = " & err.number & vbcrlf)
 Response.Write ("ERROR DESC = " & err.description & vbcrlf)
 Response.Write ("HELP CONTEXT = " & err.helpcontext & vbcrlf)
 Response.Write ("HELP FILE PATH = " & err.helpfile & vbcrlf)
 Response.Write ("ERROR SOURCE = " & err.source & vbcrlf)
 Response.Write ("ERROR FILE = " & err.file & vbcrlf)
 Response.Write ("ERROR LINES = " & err.line & vbcrlf)
 Response.Write ("ERROR COLUMN = " & err.column & vbcrlf)
 Response.Write ("ERROR DESC2 = " & err.aspdescription & vbcrlf)
 Response.Write ("<BR><B>===== ERROR VB SCRIPT MESSAGES END =====" & vbcrlf)

end function
posted by べる at 10:21| 沖縄 ☁| Comment(0) | TrackBack(0) | VBScript | このブログの読者になる | 更新情報をチェックする

2006年09月08日

on error resume nextとErrorVBScriptReport のトリビア??

on error resume next を、プログラムの先頭に入れて
ErrorVBScriptReport sql(→エラーになったsql文を表示) で、VBScriptのエラーを拾って
メッセージなどを表示させる処理を行っている場合

想定していない所で、VBScriptのエラーが発生し
エラー箇所の洗い出しに時間がかかる場合がある。

そういう時には
on error resume nextをコメントにして実行すると、
案外、すぐにエラーになっている箇所が見つかります。
posted by べる at 11:40| 沖縄 ☁| Comment(0) | TrackBack(0) | VBScript | このブログの読者になる | 更新情報をチェックする

2006年09月07日

ボタン使用可不可の使用例

function validate(){
 submit_buttun_disabled(0); // ボタン使用不可

 if (trim(document.forms[0].a_text.value).length == 0){
  alert("a_textは必須です。");
  document.forms[0].a_text.focus();
  document.forms[0].a_text.select();
  submit_buttun_disabled(1); // ボタン使用可
  return false;
 }
}
posted by べる at 16:31| 沖縄 ☁| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

submitボタンを使用可または不可にする

//----------------------------------------------------------------------------------
//--[概要] submitボタンを使用可または不可にする
//--[引数] flg    >0:不可、0以外:使用可
//--[戻り]      >なし
//--※submitボタンのvalue値を使用している場合、
//-- 無効化するとvalue値が取れなくなります
//-- その場合、<input name="submit" type="hidden" value="">をHTML内に定義し、
//-- submitボタンのvalue値をコピーするようにします。
//----------------------------------------------------------------------------------
function submit_buttun_disabled(flg){
 var n;
 if (flg==0){
  for(n = 0; n < document.forms[0].elements.length; ++n){  // submitボタンを探す
   if(document.forms[0].elements[n].type == "submit")
    document.forms[0].elements[n].disabled = true;    // ボタン使用不可
  }
 }else{
  for(n = 0; n < document.forms[0].elements.length; ++n){  // submitボタンを探す
   if(document.forms[0].elements[n].type == "submit")
    document.forms[0].elements[n].disabled = false;    // ボタン使用可
  }
 }
}
posted by べる at 14:03| 沖縄 ☁| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

2006年09月05日

JANチェックディジット

// JANチェックディジット
function janChkDigit(str){
 zero13 = "0000000000000"
 janst = ""+str
 jan13 = zero13.substring(0,13-janst.length)+janst
 janm = jan13.substring(0,1)
 janl = jan13.substring(1,2)
 jank = jan13.substring(2,3)
 janj = jan13.substring(3,4)
 jani = jan13.substring(4,5)
 janh = jan13.substring(5,6)
 jang = jan13.substring(6,7)
 janf = jan13.substring(7,8)
 jane = jan13.substring(8,9)
 jand = jan13.substring(9,10)
 janc = jan13.substring(10,11)
 janb = jan13.substring(11,12)
 jana = jan13.substring(12,13)

 janx = (parseInt(janb)+parseInt(jand)+parseInt(janf)+parseInt(janh)+parseInt(janj)+parseInt(janl))*3
 jany = parseInt(janc)+parseInt(jane)+parseInt(jang)+parseInt(jani)+parseInt(jank)+parseInt(janm)
 janz = janx+jany
 janv = Math.floor(janz/10)
 janad = (janv+1)*10-janz;

 janads = ""+janad
 janad4 = zero13.substring(0,4-janads.length)+janads
 jana1 = janad4.substring(3,4);
 if(jana1 == jana){
  resd = true
 }else{
  resd = false
 }
 return resd
}
posted by べる at 15:59| 沖縄 ☁| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

JANコードチェックディジットチェック

// 10 JANコードチェックディジットチェック
function janChk(str){
 res = true
 if(str.length == 13){
  if(str.substring(0,10) == "0000000000"){
   res = true
  }else{if(str.substring(0,2) == "02"){
   res = false
  }else{if(janChkDigit(str)){
   res = true
  }else{
   res = false
  }}}
 }else{if(str.length == 8){
  if(str.substring(0,1) == "1"){
   res = false
  }else{if(str.substring(0,1) == "2"){
   res = false
  }else{if(janChkDigit(str)){
   res = true
  }else{
   res = false
  }}}
 }else{if(str.length == 12){
  if(str.substring(0,1) != "0"){
   res = false
  }else{if(janChkDigit(str)){
   res = true
  }else{
   res = false
  }}
 }else{if(str.length == 7){
  if(str.substring(0,1) != "0"){
   res = false
  }else{
   res = true
  }
 }else{if(str.length == 0){
  res = true
 }else{
  res = false
 }}}}}
 return res
}
posted by べる at 15:58| 沖縄 ☁| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

2006年09月01日

『真・ブログ解体新書』



とうとう、私も買いました。

迷って迷って迷った挙句

ついに、『真・ブログ解体新書』を買いました。

¥29800という値段で、そうとう迷いましたが
最後の決め手は、「返金保証」でした。

まあ、一生懸命やって、だめでも「返金保証」があるから
損はしないかな?

ぐらいの気持ちで、クリックしました。

ダウンロードしたら、これがすごいボリュームでして、
これならいけるかも。。と思いました。

さあ、私も月10万円をめざして頑張るぞー!!

返金保証がついてくるのも、あとちょっとです。
その後は、¥5000の値上げと返金保証なしとなります。

私と同じように迷っているなら
返金保証があるうちに
クリックしてみませんか。

『真・ブログ解体新書』はこちら
『真・ブログ解体新書』〜復活した究極のブログアフィリエイトマニュアル!〜
posted by べる at 22:30| 沖縄 ☔| Comment(0) | TrackBack(0) | CM | このブログの読者になる | 更新情報をチェックする

広告


この広告は60日以上更新がないブログに表示がされております。

以下のいずれかの方法で非表示にすることが可能です。

・記事の投稿、編集をおこなう
・マイブログの【設定】 > 【広告設定】 より、「60日間更新が無い場合」 の 「広告を表示しない」にチェックを入れて保存する。


×

この広告は1年以上新しい記事の投稿がないブログに表示されております。