<% 'ASP MAIN PROGRAM ------------------------------------------------------------------- ' CounterDisp 'アクセスカウンター表示 RndImg 'ランダムなグラフィックを表示します RevisionComents '更新履歴表示 '------------------------------------------------------------------------------------- %> <% 'ASP SUB PROCEDURE ------------------------------------------------------------------- sub RndImg 'ASP RANDOM FILE NAME　PROGRAMED BY ABESOFT MAD PROGRAM LABO　2008(c) ALL RIGHT RESERVED Randomize '乱数テーブルの初期化 dim fl_buff(1000) 'ファイルリストを格納領域を生成します dim fl_count 'ファイルリスト用インデックス DirPath = "/rndimg/" 'ファイルリストを生成する論理パスを指定します Set fs = Server.CreateObject("Scripting.FileSystemObject") ' ファイルへのアクセスのためのオブジェクトを生成 Set fd = fs.GetFolder(Server.MapPath(DirPath)) ' 仮想ディレクトリとなっているフォルダの取得 Set fc = fd.Files ' フォルダ内のファイルをコレクションとして取得 For Each fl In fc fl_buff(fl_count)=DirPath+fl.Name fl_count=fl_count+1 Next fl_count=fl_count-1 random_index=Int((fl_count - 0 + 1) * Rnd + 0) 'ランダムなインデックスを生成 response.Write ""+vbcrlf response.Write ""+vbcrlf response.Write ""+vbcrlf end sub sub RevisionComents 'Revision Comments ---------------------------------------------------------------------------- '改版履歴リストをMDBからソートして最新の５件をリストアップします。 '改版履歴は直接MDBを編集しなければなりません。 '** SET DATABASE DIVISION ** i=0 SQL = "SELECT Format(DateTime, 'YYYY/MM/DD') AS YYYYMMDD,* FROM notes WHERE DateTime ORDER BY DateTime DESC" set db = server.CreateObject("ADODB.Connection") db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("./notes.mdb") Set rs = db.Execute (SQL) response.Write ""+vbcrlf response.write ""+vbcrlf Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Do While rs.eof=False i=i+1 ' if i=6 then exit do Response.Write ""+vbcrlf Response.Write ""+vbcrlf Response.Write ""+vbcrlf Response.Write ""+vbcrlf rs.MoveNext loop Response.Write "

更新日付	更新履歴
"+vbcrlf Response.Write "" Response.Write rs("YYYYMMDD") Response.Write ""+vbcrlf Response.Write "	"+vbcrlf Response.Write "" Response.Write rs("Notes") Response.Write ""+vbcrlf Response.Write "

"+vbcrlf response.write ""+vbcrlf response.Write ""+vbcrlf end sub sub CounterDisp 'Access Counter --------------------------------------------------------------------------------- 'Counter.numの値を読み出し、HTMLに出力して加算 '** SET DATABASE DIVISION ** DIM num set Cnt_Db = server.CreateObject("ADODB.Connection") Cnt_Db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("./notes.mdb") set Cnt_rs=server.CreateObject ("ADODB.Recordset") Cnt_rs.open "Counter",Cnt_db,3,3 num = Cnt_rs("num") Response.Write "You are the " Response.Write num Response.Write "th visitors." '** Counter Inclemen t** num=num+1 Cnt_rs("num")=num Cnt_rs.update end sub %>