<%@Language="VBScript" %> <% 'shikaku-book4.asp'資格BOOK4データ表示ASP dbName="db/shikaku_master.mdb" %> <% oldkey = "" ' dbName="db/shikaku_master.mdb" find=Request("find")'ジャンル If find <> "" Then ' sql="SELECT * FROM shikakumaster where moku like '%" & find & "%' order by cate,shikakuCD" sql="SELECT * FROM shikakumaster where moku like '%" & find & "%' order by cate,ID" Else ' sql="SELECT * FROM shikakumaster order by cate,shikakuCD" sql="SELECT * FROM shikakumaster order by cate,ID" End If first_sw = "0" Set db=Server.CreateObject("ADODB.Connection") db.Provider="Microsoft.Jet.OLEDB.4.0" db.Mode=1'読み込み専用 db.ConnectionString=Server.MapPath(dbName) db.Open Set rs=db.Execute(sql) Do While Not rs.EOF cate = rs("cate") shikakuCD = rs("shikakuCD") shikaku = rs("shikaku") sbcode = shikakuCD If oldkey <> cate Then Select case cate case "A" catedisp = "アート&デザイン" categif = "" case "B" catedisp = "ビジネス" categif = "" case "C" catedisp = "コンピュータ" categif = "" case "I" catedisp = "インターネット" categif = "" case "W" catedisp = "医療・福祉" categif = "" case "L" catedisp = "語学・留学" categif = "" case "S" catedisp = "スポーツ" categif = "" case Else catedisp = "アート&デザイン" categif = "" End Select If first_sw = "0" Then first_sw = "1" ElseIf first_sw = "1" Then all_tbldata = all_tbldata & tbldata & "" & chr(13) tbldata = "" End If tbldata = tbldata & "
" & chr(13) tbldata = tbldata & categif & chr(13) tbldata = tbldata & "
" & chr(13) oldkey = cate End If If rs("omitflg") = "0" Then tbldata = tbldata & " " & shikaku & "
" & chr(13) ' Else ' tbldata = tbldata & "" & chr(13) End If rs.MoveNext Loop rs.Close db.Close Set db=Nothing '最後のテーブルデータを足し込む all_tbldata = all_tbldata & tbldata & "
" & chr(13) %> <% 'トップのテンプレート datafile3 = "templa0.html" datafile4 = "gen/tpl/" & datafile3 Dim ForReading3 Dim objFS3,objTS3 Dim stat3,stat33 ForReading3 = 1 Set objFS3 = Server.CreateObject("Scripting.FileSystemObject") Set objTS3 = objFS3.OpenTextFile(Server.MapPath(datafile4), ForReading3, False) '一発で中身を入れる templadata = objTS3.ReadAll objTS3.close tikan_moji1 = "" tikan_moji2 = all_tbldata If tikan_moji2 <> "" Then templadata = replace(templadata,tikan_moji1,tikan_moji2)'行の中の変換用文字列をデータに置換する End If If tikan_moji2 <> "" Then If find = "起業・独立" Then janruimg = "http://www.athuman.com/shikaku/gen/skin4/img/kigyo.gif" ElseIf find = "キャリアアップ" Then janruimg = "http://www.athuman.com/shikaku/gen/skin4/img/career.gif" ElseIf find = "スキルアップ" Then janruimg = "http://www.athuman.com/shikaku/gen/skin4/img/skill.gif" ElseIf find = "プロフェッショナルライセンス" Then janruimg = "http://www.athuman.com/shikaku/gen/skin4/img/pro.gif" Else janruimg = "http://www.athuman.com/shikaku/gen/skin4/img/ichiran.gif" End If templadata = replace(templadata,tikan_moji1,tikan_moji2)'行の中の変換用文字列をデータに置換する End If tikan_moji1 = "" tikan_moji2 = "" templadata = replace(templadata,tikan_moji1,tikan_moji2)'行の中の変換用文字列をデータに置換する 'tikan_moji1 = "" 'tikan_moji2 = "" 'tikan_moji2 = tikan_moji2 & "sbcode=0" & chr(13) 'tikan_moji2 = tikan_moji2 & "skin=4" 'tbldata = replace(tbldata,tikan_moji1,tikan_moji2)'行の中の変換用文字列をデータに置換する %> <%=templadata%> <% ' sbcode=0 skin=4 %> <% '資格BOOK4(テンプレート4のみでダイレクトリンク表示)
'1:ダイジェスト表示 ' 2:リンクテスト(全テンプレート) ' 3:実ファイル書き出し ' 4:資格ブック表紙 '
テンプレートや画像、追加、修正後は1で表示を確認してから3で実ファイルを生成してください。その後、4で実ファイルの表示を確認してください。 %>