株式会社メディア・ワン　DVD・ビデオの通信販売

<%@codepage=932%>

<% Function getString(str, strlen) dim rValue dim nLength nLength = 0.00 rValue = "" for f = 1 to len(str) tmpStr = MID(str,f,1) tmpLen = ASC(tmpStr) if (tmpLen < 0) then nLength = nLength + 1.4 rValue = rValue & tmpStr elseif (tmpLen >= 97 and tmpLen <= 122) then nLength = nLength + 0.75 rValue = rValue & tmpStr elseif (tmpLen >= 65 and tmpLen <= 90) then nLength = nLength + 1 rValue = rValue & tmpStr else nLength = nLength + 0.6 rValue = rValue & tmpStr end if If (nLength > strlen) then rValue = rValue & "..." exit for end if next getString = rValue End Function page=request("page") if page = "" then page=1 else page = cint(page) end if s1 = request("s1") s2 = request("s2") if s2 = "" then sql = "select idx,b_title,b_recording,b_price,b_main from video_sale order by b_cdate desc,idx desc" else sql = "select idx,b_title,b_recording,b_price,b_main from video_sale where "&s1&" like '%"&s2&"%' order by b_cdate desc, idx desc" end if rs.open sql,dbconn,1 rs.pagesize = 6 %> 株式会社メディア・ワン　DVD・ビデオの通信販売

<% if rs.recordcount <> 0 then limit=5 pos=(page-1) mod limit spage=page-pos %> <%end if%>

Home > 通信販売

<%if session("media_admin")="" then%>

<%else%> ">

<%end if%>

<% if not rs.eof then rs.absolutepage=page i=0 do until rs.eof or i >= rs.pagesize if (i mod 3) = 0 then %> <% end if %> <% rs.movenext i=i+1 if (i mod 3 ) = 0 then %> <% end if loop else %> <% end if %>

&page=<%=page%>">

<%if trim(rs("b_main"))="" or isnull(rs("b_main")) then%>

<%else%>

" width="156" height="130" border=0> <%end if%>

<%=getString(rs("b_title"),15)%>

<%=rs("b_recording")%>

<%=rs("b_price")%>

登録された内容がありません

<% if spage <> 1 then %>

&s2=<%=request("s2")%>'" style="cursor:hand"> <% else response.write " " end if for j=spage to spage + limit - 1 if j=page then %> <%=j%> <% else %> &s2=<%=request("s2")%>" style="cursor:hand"> <%=j%> <%end if if j = rs.pagecount then exit for end if next if spage+limit <= rs.pagecount then %>

&s2=<%=request("s2")%>'" style="cursor:hand"> <% else response.write " " end if %>