まないたれぼりゅーしょん

サムネイル表示
<% mgenre = "" cgenre = "" mpagecount = int(Request("cpage")) cgenre = Request("cgenre") mgenre = Request.Form("agenre") mpage = 18 '一度に表示できる件数 mpagestep = mpage * mpagecount if mgenre ="" then mgenre = "0" end if Set cn=server.CreateObject("ADODB.Connection") cn.Open "manaitasrc" 'ジャンルを呼び出して格納するのぅ setgenre ="" Set gnr = Server.CreateObject("ADODB.Recordset") SQLg = "SELECT * FROM genre ORDER BY mmid;" 'gnr.Open SQLg ,cn,2,3 gnr.Open SQLg ,cn,3,1 ggenre = gnr.GetRows() '配列に読み込む for i=0 to UBound(ggenre,2) if int(mgenre) - 1 = i then setgenre = setgenre & "" & ggenre(1,i) & "" else setgenre = setgenre & "" & ggenre(1,i) & "" end if next gnr.close %>

▽ジャンル選択 <%=setgenre%>

<% 'response.write mgenre Set rst = server.CreateObject("ADODB.Recordset") if mgenre = 0 then sql = "select * from data1 order by fid DESC;" else mgenre = int(mgenre) sql = "select * from data1 where fgenre = '" & mgenre & "' order by fid DESC;" end if rst.open sql,cn,1,1 if not rst.EOF then rst.move mpagestep %>

<% for j=0 to 5 %> <% for i=0 to 2 if not rst.EOF then aid = rst.Fields("fid") afname = rst.Fields("ffname") afcomment = rst.Fields("fcomment") afcomment = left(afcomment,5) afnames = "imgs/s" & afname aafname = "img/" & afname afoid = rst.Fields("foid") if afoid = o then afoid =aid %> <% rst.movenext else %> <% End if next %> <% next %>

<% if afname<>"" then%> target="_blank"> <% else response.write afcomment end if %> <%=afname%>,記事を表示

☆

<%if mpagecount >= 1 then%> ←Prev■ <% end if%>

↑Top　通常index

<%if not rst.EOF then%> ■Next→ <% end if%>

<% else response.write"データがありません" end if %>

- script written by punipeta.com - Ver.050618