<%@ Language="VBScript" CodePage=65001 %> <% Option Explicit %> <% '------------------------------------------------------------------------------ ' FILE : Index.asp ' CREATE : 2007.10.23 ' UPDATE : @@@@.@@.@@ ' AUTHOR : M.iwamoto ' DISPOSITION : トップページ ' ' COPYRIGHT(C) 2007 VISUAL SOFT LTD, ALL RIGHTS RESERVED. '------------------------------------------------------------------------------ 'On Error Resume Next '### DECLARE PRIVATE VARIABLES ### Dim pbReturn ' 戻り値 '## utf-8としてよきにはからってくれる宣言群 Response.ContentType="text/html" Response.Charset="UTF-8" Session.CodePage=65001 '### BUFFER PROPERTIE ### Response.Buffer = True '### 処理制御 ### Call pfnMainCtrl() 'On Error GoTo 0 '------------------------------------------------------------------------------ ' PURPOSE : 処理制御 ' AUTHOR : T.Ito ' CREATE : 2007.4.5 ' UPDATE : ' ARGUMENT : ' RETURN VALUE : TRUE : 正常終了 ' FALSE : 異常終了 '------------------------------------------------------------------------------ Private Function pfnMainCtrl() 'On Error Resume Next pfnMainCtrl = False '### DB OPEN ### pbReturn = gfnDbOpen() IF pbReturn = False Then '-- ERROR PAGE Session("ERR_CD") = "GCsE9001" Session("ERR_URL") = "../../" Session("ERR_KBN") = GCiErrKbnClose Response.Redirect("../system/common/Result.asp") Exit Function End If '### EDIT HTML ### pbReturn = pfnHtml() If pbReturn = False Then '-- DATABASE CLOSE gobjDB.Close Set gobjDB = Nothing '-- ERROR PAGE Session("ERR_CD") = "GCsE9003" Session("ERR_URL") = "../../" Session("ERR_KBN") = GCiErrKbnUrl Response.Redirect("../system/common/Result.asp") Exit Function End If '### DATABASE CLOSE ### gobjDB.Close Set gobjDB = Nothing pfnMainCtrl = True 'On Error GoTo 0 End Function '------------------------------------------------------------------------------ ' FILE : ' CREATE : 2010.06.23 ' UPDATE : @@@@.@@.@@ ' AUTHOR : Y.Ogura ' DISPOSITION : HTML表示 ' ' COPYRIGHT(C) 2010 VISUAL SOFT LTD, ALL RIGHTS RESERVED. '------------------------------------------------------------------------------ Private Function pfnHtml() pfnHtml = False '//// 変数宣言 //// Dim i Dim sMode Dim sHtml Dim sSql 'SQL文 Dim objRecordset Dim iInfoCd '管理コード Dim sTitle '商品名 Dim iItemCd Dim sBodyJ Dim sBodyE Dim sSiyouJ Dim sSiyouE Dim iIdx Dim iStatus Dim iCateCd Dim sCateName Dim iItemCnt Dim iImgCd Dim sItemCd Dim sItemName Dim iItemStatus Dim sImgContent Dim iCateKbn Dim iItemCateCd Dim pdfPath ReDim iImgCd(GCiMaxPhotoCntItem) Dim sDebug sDebug = gfnNz(Request.QueryString("prev"),"") '//// 初期設定 //// '##=== SQLに代入するクエリ値チェック(数値版) ===### On Error Resume Next iInfoCd = CInt(gfnNz(Request.QueryString("iItemCd"),0)) '>>数値以外の値が入っていたら、おちる If Err.Number <> 0 Then Exit Function End If On Error GoTo 0 '##=== SQLに代入する値チェック(数値版) ここまで ===### '//// 内容表示 //// sSql = "" sSql = sSql & Space(1) & "SELECT" sSql = sSql & Space(1) & "T_ITEM.*," sSql = sSql & Space(1) & "M_ITEM_CATE.*" sSql = sSql & Space(1) & "FROM" sSql = sSql & Space(1) & "T_ITEM" sSql = sSql & Space(1) & "INNER JOIN" sSql = sSql & Space(1) & "M_ITEM_CATE" sSql = sSql & Space(1) & "ON" sSql = sSql & Space(1) & "T_ITEM.ITEM_CATE_CD = M_ITEM_CATE.ITEM_CATE_CD" sSql = sSql & Space(1) & "WHERE" sSql = sSql & Space(1) & "T_ITEM.STATUS <> " & GCiStatusDel sSql = sSql & Space(1) & "AND" If sDebug <> "on" Then sSql = sSql & Space(1) & "T_ITEM.STATUS = " & GCiStatusOn sSql = sSql & Space(1) & "AND" End If sSql = sSql & Space(1) & "T_ITEM.ITEM_CD = " & iInfoCd Set objRecordset = Server.CreateObject("ADODB.Recordset") objRecordset.Open sSql, gobjDB, 3, 1 If objRecordset.EOF = False Then sCateName = objRecordset.Fields("ITEM_CATE_NAME").Value iCateKbn = objRecordset.Fields("ITEM_CATE_KBN").Value iCateCd = objRecordset.Fields("ITEM_CATE_CD").Value iItemCd = objRecordset.Fields("ITEM_CD").Value sTitle = objRecordset.Fields("ITEM_NAME").Value sBodyJ = objRecordset.Fields("ITEM_BODY_J").Value sBodyE = objRecordset.Fields("ITEM_BODY_E").Value sSiyouJ = objRecordset.Fields("ITEM_SPEC_J").Value sSiyouE = objRecordset.Fields("ITEM_SPEC_E").Value sImgContent = objRecordset.Fields("ITEM_FILE_CONTENT").Value '画像情報 For iIdx = 1 To GCiMaxPhotoCntItem iImgCd(iIdx) = objRecordset.Fields("ITEM_FILE_CD" & iIdx).Value Next End If objRecordset.Close Set objRecordset = Nothing %> <% = sTitle %>DETAIL-PRODUCT|OVAL|TAKUMI DESIGN

OVAL

PRODUCTS

<% = sTitle %>
<% If iCateKbn = 1 Then %>

日本・海外共通モデルです。

<% ElseIf iCateKbn = 2 Then %>

海外専用モデルです。

<% End If %>
    <% If iImgCd(1) <> 0 Then%>
  • <% = sTitle %> border=
  • <% End If %> <% If iImgCd(2) <> 0 Then%>
  • <% = sTitle %> border=
  • <% End If %>
<% = sTitle %>

<% = gfnNoEncdHtmlChg(sBodyJ) %>

<% = gfnNoEncdHtmlChg(sBodyE) %>

<% = gfnNoEncdHtmlChg(sSiyouJ) %>

<% = gfnNoEncdHtmlChg(sSiyouE) %>

<% If iImgCd(3) <> 0 Then%> <% = sTitle %> <% End If %>
<% pfnHtml = True End Function %>