| |
|
|
|
 |
<%
set rs=server.createobject("adodb.recordset")
'sql="select top 10 * from answerclass where ispass=1 order by classsort asc,classid desc"
sql="select top 10 * from answerclass where ispass=1 order by classid asc"
rs.open sql,oConn,1,1
n=0
do while not rs.eof
n=n+1
%>
| "><%=n%>、<%=rs("classtitle")%> |
<%if n mod 2=0 and n<10 then%>
<%
end if
rs.movenext
loop
%>
|
 |
|
 |
クエスチョンリスト |
 |
|
|
<%
set rs=server.createobject("adodb.recordset")
sql="select * from answer where IsPass=1"
if Request("KeyWord")&""<>"" then
sql = sql & " and (answertitle like'%"&Request("KeyWord")&"%' or content like'%"&Request("KeyWord")&"%')"
end if
if Request("classid")&""<>"" then
sql = sql & " and answerclass = "&int(Request("classid"))
End if
sql = sql & " order by answersort asc,id desc"
'response.write sql
rs.open sql,oConn,1,1
if rs.eof or rs.bof then
response.write " 申し訳ございませんが、検索結果が見つかりませんでした
| "
else
%>
| 種類 |
|
タイトル |
|
閲覧回数 |
<%
listnum=30
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
j=rs.recordcount
j=j-(page-1)*listnum
i=1
n=0
tr=0
p=request("page")
if p="" then
nn=0
else
p=p-1
nn=listnum*p
end if
do while not rs.eof and i<=listnum
answertitle=trim(rs("answertitle"))
n=n+1
nn=nn+1
%>
| <%=getanswerclass(rs("answerclass"))%> |
|
" target="_blank" ><%=answertitle%> |
|
<%=rs("clicknum")%> |
<%
rs.movenext
i=i+1
j=j-1
loop
%>
|
|
<%
filename=thisurl
%>
<%
if page=1 then
fontpage="前のページ"
Response.Write fontpage
%>
<%
else
%>
&page=<%=page-1%> class="Ad">前のページ
<%
end if
%>
<%
pagetotal=Rs.pagecount
i=0
do while i < pagetotal
i=i+1
pagenum =""&i&" "
Response.Write pagenum
loop
%>
<%
if Rs.pagecount-page <> 0 then
%>
&page=<%=page+1%> class="Ad">次のページ
<%
else
nextpage ="次のページ"
Response.Write nextpage
%>
<%
end if
%>
|
|
|
<%
end if
rs.close
%>
|
|
|
|
 |
|
|
|