<%@ Language=VBScript %> <% Option Explicit Response.AddHeader "Cache-Control", "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = 0 %> <% '- イメージフォルダのパス - Dim sImagesPath sImagesPath = "Image/treeview" '- 親ノードのイメージ - Dim imgParent imgParent = sImagesPath & "Image/treeviewt-folder.gif" '- 子ノードのイメージ - Dim imgItem imgItem = sImagesPath & "/t-doc.gif" '- プラスのイメージ【TOP】- Dim imgPlusTop imgPlusTop = sImagesPath & "/t-plus-top.gif" '- プラスのイメージ【MIDDLE】- Dim imgPlusMid imgPlusMid = sImagesPath & "/t-plus-mid.gif" '- プラスのイメージ【BOTTOM】- Dim imgPlusBot imgPlusBot = sImagesPath & "/t-plus-bot.gif" '- マイナスのイメージ【TOP】- Dim imgMinTop imgMinTop = sImagesPath & "/t-min-top.gif" '- マイナスのイメージ【MIDDLE】- Dim imgMinMid imgMinMid = sImagesPath & "/t-min-mid.gif" '- マイナスのイメージ【BOTTOM】- Dim imgMinBot imgMinBot = sImagesPath & "/t-min-bot.gif" '- ジョイントのイメージ【│】- Dim imgJointBak imgJointBak = sImagesPath & "/t-joint-bak.gif" '- ジョイントのイメージ【┌】- Dim imgJointTop imgJointTop = sImagesPath & "/t-joint-top.gif" '- ジョイントのイメージ【├】- Dim imgJointMid imgJointMid = sImagesPath & "/t-joint-mid.gif" '- ジョイントのイメージ【└】- Dim imgJointBot imgJointBot = sImagesPath & "/t-joint-bot.gif" '- ジョイントのイメージ【 】- Dim imgJointSpc imgJointSpc = sImagesPath & "/t-joint_spc.gif" '- プラスイメージ - Dim imgPlus imgPlus = sImagesPath & "/plus.gif" '- マイナスイメージ - Dim imgMin imgMin = sImagesPath & "/min.gif" '- ポイントイメージ - Dim imgTerminal imgTerminal = sImagesPath & "/terminal.gif" '- スペースイメージ - Dim imgSpace imgSpace = sImagesPath & "/space.gif" '# SQL文 Dim sTreeSQL '# 1階層目のコードに指定するフィールドID Dim sLevel1_CodeField '# 1階層目のテキストに指定するフィールドID Dim sLevel1_TextField '# 2階層目のコードに指定するフィールドID Dim sLevel2_CodeField '# 2階層目のテキストに指定するフィールドID Dim sLevel2_TextField '# 3階層目のコードに指定するフィールドID Dim sLevel3_CodeField '# 3階層目のテキストに指定するフィールドID Dim sLevel3_TextField '# デフォルトコード Dim sDefaultCode %>
〜はくと〜
Since. 1998.11.13
INFORMATION
ツーリング
PHOTO SPACE
PROFILE
BBS
リンク