<% Option Explicit %> <% Response.Buffer = True Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" If IsEmpty(Session("SESSION_ID")) Then Response.Redirect "timeout.htm" End If %> <% Dim cn, rs, i, strSQL Dim RecCount Dim PID Dim pi Dim t Dim strNM PID = Request.ServerVariables("QUERY_STRING") Session("PID") = PID strSQL = Session("SEARCH_SQL") Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Session("MDB_A") & ";" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, cn, 1, 1 RecCount = rs.RecordCount %>

<% Response.Write "" Response.Write "" Response.Write RecCount Response.Write " records found." Response.Write "" Response.Write "" Response.Write " " If rs.PageCount > 0 Then %> <% 'ページリンク pi = Fix(RecCount/50) If RecCount Mod 50 > 0 Then pi = pi + 1 End If For t=1 To pi If t = CInt(PID) Then Response.Write "" Response.Write t Response.Write "" Else If CInt(PID) > 5 Then If t =< CInt(PID)+4 AND t >= CInt(PID)-5 Then Response.Write "" Response.Write t Response.Write "" End If Else If t =< CInt(PID)+(10-CInt(PID)) Then Response.Write "" Response.Write t Response.Write "" End If End If End If Response.Write " " Next %> <% If CInt(PID) > 1 Then '前の５０件 Response.Write "" Response.Write (CInt(PID) * 50)-50-49 Response.Write "-" Response.Write (CInt(PID) * 50)-50 Response.Write "" Else '現在を表示 Response.Write (CInt(PID) * 50)-49 Response.Write "-" Response.Write (CInt(PID) * 50) End If Response.Write " | " If CInt(PID) < pi Then '次の５０件 Response.Write "" Response.Write (CInt(PID) * 50)+50-49 Response.Write "-" Response.Write (CInt(PID) * 50)+50 Response.Write "" Else '現在を表示 Response.Write (CInt(PID) * 50)-49 Response.Write "-" Response.Write (CInt(PID) * 50) End If %> <% Do Until rs.EOF i = i + 1 If (CInt(PID) * 50)-49 =< i AND i =< (CInt(PID) * 50) Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Case "IKHOU" Response.Write "" strNM = rs.Fields("ISEKI_NM_EG") & " : " & rs.Fields("IKHOU_CH_EN") If Len(strNM) > 25 Then strNM = Mid(strNM, 1, 25) & "..." End If Response.Write NullRepWSP(strNM) Response.Write "" Response.Write "" Response.Write "" Case "IBUTSU" Response.Write "" strNM = rs.Fields("ISEKI_NM_EG") & " : " & rs.Fields("IBUTSU_CH_EN") If Len(strNM) > 25 Then strNM = Mid(strNM, 1, 25) & "..." End If Response.Write NullRepWSP(strNM) Response.Write "" Response.Write "" Response.Write "" End Select End If rs.MoveNext Loop %> No Contents " Select Case Session("SEARCH_TYPE") Case "ISEKI" Response.Write "" Response.Write i Response.Write "" Case "IKHOU" Response.Write "" Response.Write i Response.Write "" Case "IBUTSU" Response.Write "" Response.Write i Response.Write "" End Select Response.Write " " Select Case Session("SEARCH_TYPE") Case "ISEKI" Response.Write "" strNM = rs.Fields("ISEKI_NM_EG") If Len(strNM) > 25 Then strNM = Mid(strNM, 1, 25) & "..." End If Response.Write NullRepWSP(strNM) Response.Write "" Response.Write " <% 'ページリンク pi = Fix(RecCount/50) If RecCount Mod 50 > 0 Then pi = pi + 1 End If For t=1 To pi If t = CInt(PID) Then Response.Write "" Response.Write t Response.Write "" Else If CInt(PID) > 5 Then If t =< CInt(PID)+4 AND t >= CInt(PID)-5 Then Response.Write "" Response.Write t Response.Write "" End If Else If t =< CInt(PID)+(10-CInt(PID)) Then Response.Write "" Response.Write t Response.Write "" End If End If End If Response.Write " " Next %> <% If CInt(PID) > 1 Then '前の５０件 Response.Write "" Response.Write (CInt(PID) * 50)-50-49 Response.Write "-" Response.Write (CInt(PID) * 50)-50 Response.Write "" Else '現在を表示 Response.Write (CInt(PID) * 50)-49 Response.Write "-" Response.Write (CInt(PID) * 50) End If Response.Write " | " If CInt(PID) < pi Then '次の５０件 Response.Write "" Response.Write (CInt(PID) * 50)+50-49 Response.Write "-" Response.Write (CInt(PID) * 50)+50 Response.Write "" Else '現在を表示 Response.Write (CInt(PID) * 50)-49 Response.Write "-" Response.Write (CInt(PID) * 50) End If %> <% Else Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " End If '破棄 cn.Close Set rs = Nothing %> ">