イチカワ中古車販売は、愛知県豊田市で中古車総合卸業をしています。
<%
'##############################################################################
'#
'# 変数宣言
'#
'##############################################################################
'■検索条件設定
Dim errFlg
Dim objFSO 'ファイルシステムオブジェクト
Dim strPath 'ファイル保存先パス
Dim strFileName 'ファイルの名前
Dim objFile 'ファイルのオブジェクト
Dim objDB 'DB
Dim strDBFile '接続先mdb
Dim sqlWebData, recWebData '
Dim strErrMsg 'エラーメッセージ
'■検索結果
Dim strMaker 'メーカー
Dim strShashu '車種
Dim strShamei '車名
Dim strKakaku '価格
Dim strKakakuJouken '価格条件作成用
Dim strForKakaku '価格条件作成用（For文内）
Dim strSQLJouken '検索条件作成
Dim intCntY
Dim intKensuu '検索結果数
'##############################################################################
'#
'# 代入
'#
'##############################################################################
'■検索条件設定
errFlg = 0
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
strPath = Application("WebshareRDataPath")
strFileName = "Webdata.mdb"
Set objDB = Server.CreateObject("ADODB.Connection")
Set recWebData = CreateObject("ADODB.Recordset") 'レコードセット
strDBFile = "DBQ=" & strPath & "\" & strFileName '接続先mdb
strErrMsg = ""
'■検索結果
strMaker = Request.Form("chkMaker") '値をシングルクォーテーションで囲っているため
strShashu = Request.Form("chkShashu") '値をシングルクォーテーションで囲っているため
strShamei = F_ReplaceSQL(Request.Form("selShamei"))
strKakaku = F_ReplaceSQL(Request.Form("chkKakaku"))
strKakakuJouken = ""
strForKakaku = ""
strSQLJouken = ""
intCntY = 0
intKensuu = 0
'##############################################################################
'#
'# 関数
'#
'##############################################################################
'================================================================
'SQL条件文作成
'引 数：strJouken,strKoumoku,strType
'戻り値：strType（必要な場合）で結合した条件文
'---------------------------------------------------------------
Function F_Jouken(ByVal strJouken,ByVal strKoumoku,ByVal strType)
If strJouken <> "" And strKoumoku <> "" And strType <> "" Then
strJouken = strJouken & " " & strType & " "
End If
F_Jouken = strJouken & strKoumoku
End Function
'================================================================
'入力文字置き換え（対SQLインジェクション）
'引 数：strInp
'戻り値：文字列置き換え済みテキスト
'---------------------------------------------------------------
Function F_ReplaceSQL(ByVal strInp)
If Not IsNull(strInp) Then
strInp = Trim(strInp)
strInp = Replace(strInp, "'", "''")
strInp = Replace(strInp, """", "''")
strInp = Replace(strInp, "|", "｜")
strInp = Replace(strInp, ";", "；")
End If
F_ReplaceSQL = strInp
End Function
'================================================================
'selectedを表示する
'引 数：strInp1,strInp2
'戻り値：[selected = "selected"]か空
'---------------------------------------------------------------
Function F_Selected(ByVal strInp1,ByVal strInp2)
If IsNull(strInp1) = False And IsNull(strInp2) = False Then
If strInp1 = strInp2 Then
F_Selected = " selected='selected'"
Else
F_Selected = ""
End If
Else
F_Selected = ""
End If
End Function
'================================================================
'chekedを表示する
'引 数：strInp1,strInp2
'戻り値：[cheked = "cheked"]か空
'---------------------------------------------------------------
Function F_Checked(ByVal strInp1,ByVal strInp2)
If IsNull(strInp1) = False And IsNull(strInp2) = False Then
If InStr(strInp1,strInp2) > 0 Then
F_Checked= " checked='checked'"
Else
F_Checked= ""
End If
Else
F_Checked= ""
End If
End Function
'================================================================
'写真が無い時、ダミー写真を表示
'引 数：strInp
'戻り値：
'---------------------------------------------------------------
Function F_PhotoChk(ByVal strInp)
If Not IsNull(strInp) Then
'ファイルの有無
If objFSO.FileExists(Application("RDataPath") & "\" & strInp) = False Then
strInp = "../img/details/noimage.gif"
Else
strInp = "../rdata/"& strInp
End If
Else
strInp = "../img/details/noimage.gif"
End If
F_PhotoChk = strInp
End Function
'================================================================
'##############################################################################
'#
'# チェック（エラーの場合は表示）
'#
'##############################################################################
'フォルダの確認
If errFlg = 0 Then
'フォルダの有無
If objFSO.FolderExists(strPath) = False Then
'フォルダがありません。
strErrMsg = "申し訳ありませんが、只今準備中です。
今しばらくお待ちください。" errFlg = 1 End If End If 'ファイルの有無 If errFlg = 0 Then If objFSO.FileExists(strPath & "\" & strFileName) = False Then 'ファイルがありません。 strErrMsg = "申し訳ありませんが、只今準備中です。
今しばらくお待ちください。" errFlg = 1 End If End If '############################################################################## '# '# 処理 （在庫検索欄を表示）（エラー：[mdbが無い場合]の場合は非表示） '# '############################################################################## If errFlg = 1 Then %>
<%
Else
objDB.Open Application("ConnectionString") & strDBFile 'DB接続
%>
<%
End If
'##############################################################################
%>
<%
If errFlg = 0 Then
'##############################################################################
'#
'# 処理（代入）
'#
'##############################################################################
'■メーカー
If strMaker <> "" Then
strSQLJouken = F_Jouken(strSQLJouken,"[Maker] in (" & strMaker & ")","AND")
End If
'■車種
If strShashu <> "" Then
strSQLJouken = F_Jouken(strSQLJouken,"[CarType] in (" & strShashu & ")","AND")
End If
'■車名
If strShamei <> "" Then
strSQLJouken = F_Jouken(strSQLJouken,"[Shamei] = '" & strShamei & "'","AND")
End If
'■価格
If strKakaku <> "" Then
For Each strForKakaku In Split(strKakaku,",")
strKakakuJouken = F_Jouken(strKakakuJouken,"[Kakaku] " & Trim(strForKakaku) & " ","OR")
Next
strSQLJouken = F_Jouken(strSQLJouken,"(" & strKakakuJouken & ") ","AND")
End If
'■表示
strSQLJouken = F_Jouken(strSQLJouken,"[Hyoji]=False ORDER BY Maker DESC, Shiirebi","AND")
'##############################################################################
'#
'# 処理（検索と結果）
'#
'##############################################################################
'■検索
'-----------------------------------------------------------------------------
sqlWebData = "SELECT "
sqlWebData = sqlWebData & "[No], "
sqlWebData = sqlWebData & "[Maker], "
sqlWebData = sqlWebData & "[Shamei], "
sqlWebData = sqlWebData & "[Grade], "
sqlWebData = sqlWebData & "[Nenshiki], "
sqlWebData = sqlWebData & "[Katashiki], "
sqlWebData = sqlWebData & "[Color], "
sqlWebData = sqlWebData & "[Kyori], "
sqlWebData = sqlWebData & "[Kakaku], "
sqlWebData = sqlWebData & "[Pict1_name] "
sqlWebData = sqlWebData & "FROM Webdata "
sqlWebData = sqlWebData & "WHERE "
sqlWebData = sqlWebData & strSQLJouken & ";"
recWebData.Open sqlWebData,objDB,1,1
'-----------------------------------------------------------------------------
intKensuu = recWebData.RecordCount '件数
'■検索したときだけ、件数を表示（＝初期表示の全件表示時には表示しない）
If Request.Form("ok") <> "" Then
%>
今しばらくお待ちください。" errFlg = 1 End If End If 'ファイルの有無 If errFlg = 0 Then If objFSO.FileExists(strPath & "\" & strFileName) = False Then 'ファイルがありません。 strErrMsg = "申し訳ありませんが、只今準備中です。
今しばらくお待ちください。" errFlg = 1 End If End If '############################################################################## '# '# 処理 （在庫検索欄を表示）（エラー：[mdbが無い場合]の場合は非表示） '# '############################################################################## If errFlg = 1 Then %>
<%=strErrMsg %>
検索条件を選択して、検索ボタンを押してください。
*複数選択可能です。*価格は税込となります。
検索結果は<%=intKensuu%>件です
〒470-1219
愛知県豊田市畝部西町昆布池40-1
【営業時間】AM 8:30〜PM 7:00
【休業日】日曜・祭日
