今回オファーのあった仕組みの開発はウチでは8年前に
実現していた技術。その時には最新の技術でノウハウの
組み込みにエライ苦労した思い出があります。
その時の最新技術のソースの一部は
<%
On Error Resume Next
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "接続を作成できません"
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "レコードセットを作成できません"
fp_conn.Open Application("jjmp_ConnectionString")
FP_DumpError strErrorUrl, "データベースを開けません"
Dim arFormFields0(61)
Dim arFormDBFields0(61)
arFormFields0(0) = "mm"
arFormDBFields0(0) = "mm"
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
FP_SaveFieldToDB fp_rs, Now, "ymd"
fp_rs.Close
fp_conn.Close
Response.Redirect "ok.htm"
End If
End If
%>
こんな感じ。これが延々1万行にも及びます。その内の1文字
でも間違えていたらエラー。
書いた後からそれを探すのが大変(・_・;
あれから８年。
技術的に進歩したところはたくさんありますが、調べてみる
とベースは変わっていないのです。
日進月歩といわれるITの世界に私が関わったのは16才の頃。
私の進んだ高校は新設校で当時私が入学してやっと3学年揃
った高校。まだ、設立された部の数も少なく、早速創ったのが、
何でもできる｢理科部」♪
やりたかったことは、人間の探求、なぜ私がここにいるのか
の答え探し、生物の実験と、金属のメッキと、天体観測と
コンピューター。
私が部長として、設立当初は10人ほどでしたが、予算は生
徒会長を口説いて、取れるだけ取ってしまいました(^_^;
あの頃から大義名分があると論理は強かったのです(^^)v
その時の予算で買ったのがNECのPC-6001。シャープのxも買っ
たかな？ まだ、パソコンという言葉もなく、マイコン、ミニコン、
PCと、好き放題言ってました。インターネットなどもちろんありま
せん。
まだ、マイクロソフトがDOSをIBMに採用されたばかりで、ビルゲ
イツもプログラムの現場で寝ずに開発やってた話が普通の頃。
コンピューターで何ができるのかがわからないので、結果として
は我々もBASICを勉強するために買ったようなものですが(・_・;
実は開発の流れはそれから30年近くたっても変わっていないの
です。基本のロジックさえわかってしまえばあとは応用。
その作業の時間が我々の仕事になっているのです。
今回のオファーで参考になるのは、コレだけ読んでも1ページ分
位にしかならないでしょう。1冊のうち使えるのはほんの数行。
でも、その一言一言を見つけることで、飛躍的ひらめきをもたら
し、新たな開発に繋がっていくのです。
その言葉を見つけたときの喜びと、動いた時の感激が、私が
この世界にいる快感なんです＼(^o^)／