 |
 |
コメント |
|

|
 |
 |
|
2007年09月12日 14:07 シマイモ |
|
 |
 |
 |

 |
うちも同じような状況です><
と言っても、うちは調子に乗ってEU害の問題がメインで、この選手はレンタル出して、いつ留学させて…、カードは何を貼ってとか。
選手育成計画シートでも作ってみるかw
|

|
 |
 |
|
2007年09月14日 05:35 KT |
|
 |
 |
 |

 |
秘書:ご指名ありがとうございます。 しかしながら、現在オーナーのケイティは戦術をいじったことをしかられて すねて地元の温泉に(万葉倶楽部)入って心を癒しており、 チームの運営は全て私が取り仕切っております関係上、手が空いておりません。
秘書:少し暇になったら、私好みのイケメン揃いのチームにして差し上げますわ・・・
|

|
 |
 |
|
|
 |
 |
 |

 |
<script type="text/javascript"> <!-- var Data =new Array(); var Idx =new Array(); var CmpType=1; function Init() { var i; var j; var n=30; for(i=0;i<n;i++){ Idx[i]=i; Data[i]=new Array(); Data[i][0]=i; for(j=1;j<=4;j++){ Data[i][j]=Math.floor(Math.random()*100); } } } function OpenX() { var val; val = showModalDialog("test23_b.html", window,"dialogHeight:400px;dialogWidth:400px"); // alert(val); }
|

|
 |
 |
|
|
 |
 |
 |

 |
function cmp(x,y) { var a1=0; var a2=0; var b=0; var z=Math.floor(CmpType/2); var w=CmpType%2; if(x in Data){ if(z in Data[x])a1=Data[x][z]; } if(y in Data){ if(z in Data[y])a2=Data[y][z]; } if(a1==a2){ b=0; }else if(a1<a2){ b=1; }else{ b=-1; } if(w>0){ b*=-1; } return b; } function SortData(x) { CmpType=x; Idx.sort(cmp); } function GetData(x) { var y=new Array(); if(x in Data)return Data[x]; else return y; } function GetIndex(x) { if(x in Idx)return Idx[x]; else return -1; } function GetNum() { return Data.length; } // --> </script>
|

|
 |
 |
|
|
 |
 |
 |

 |
var PW; function Init() { PW = window.dialogArguments; SetX(); } function Close() { window.returnValue = 1; window.close(); } function SortX(x) { PW.SortData(x); SetX(); } function SetX() { var i; var j; var dt; var str; var st1; var n=PW.GetNum(); var cls; document.all.item("S1").options.length=0; for(i=0;i<n;i++){ dt=PW.GetData(PW.GetIndex(i)); str="X"; for(j=0;j<=4;j++){ if(j in dt){ st1=" "; if(dt[j]<10)st1+=" "; st1+=String(dt[j]); }else{ st1=" 0"; } str+=st1; } document.all.item("S1").options[i] = new Option(str,i); } }
|

|
 |
 |
|
|
 |
 |
 |

 |
Option Explicit
Function DecodeIncWord(x As String) Dim i Dim l Dim y Dim z z = 0 l = Len(x) For i = 1 To l y = DecodeIncWordSub(Mid(x, i, 1)) z = z * 62 + y Next i DecodeIncWord = z End Function
Function DecodeIncWordSub(x As String) Dim y Dim z z = 0 y = Asc(x) If y < 48 Then z = 0 ElseIf y < 58 Then z = y - 48 ElseIf y < 65 Then z = 0 ElseIf y < 91 Then z = y - 65 + 10 ElseIf y < 97 Then z = 0 ElseIf y < 123 Then z = y - 97 + 36 Else z = 0 End If DecodeIncWordSub = z End Function
Function DecodeIncStr(x) Dim i Dim l Dim s As String Dim y s = "" l = Len(x) For i = 1 To l Step 3 y = DecodeIncWord(Mid(x, i, 3)) s = s & ChrW(y) Next i DecodeIncStr = s End Function
|

|
 |