📄 list_little.asp
字号:
<!--#include file=conn.asp-->
<!--#include file="Function_QT.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="md5.asp"-->
<%
if not IsNumeric(request("id")) then
Response.Write ("<script>alert('友情提示!\n\参数错误!');history.back();</script>")
Response.end
end if
%>
<%
if IsNumeric(request("jie"))=False then
jie=""
else
jie=request("jie")
end if
if request("id")="" then
response.write"<script>alert('参数错误!');history.back();</script>"
response.End()
end if
if request("topic")<>"" or request("id")<>"" then
id=CLNG(request("id"))
if request("topic")="" then
rs2.open"select * from assort where id="&id,conn,1,1
if rs2.eof then
response.write"<script>alert('参数错误!');history.back();</script>"
response.End()
end if
topic=rs2("topic")
rs2.close
else
topic=request("topic")
end if
rs2.open"select * from assort where topic='"&topic&"'",conn,1,1
topic1=rs2("shuxing")
rs2.close
rs2.open"select * from class where id="&topic1,conn,1,1
topic2=rs2("topic")
rs2.close
%>
<title><%=webname%>_<%=topic2%>_<%=topic%>_全部问题</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file=top.asp-->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr><td height="24" nowrap><a href="<%=weburl%>"><%=webname%></a> > <a href="List_Big.asp?id=<%=topic1%>&topic=<%=topic2%>"><%=topic2%></a> > <%=topic%> </td></tr></table>
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
<tr>
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td height="36" align="center" onmouseover="this.className='tbb'" onmouseout="this.className='taa'" class="taa"><strong><%=topic2%></strong></td>
</tr>
<tr>
<td align=center><br>
<table border="0" width="98%" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
rs.open"select * from assort where shuxing="&topic1&" order by paixu",conn,1,1
if rs.eof then%>
<tr>
暂时没有分类!
<%else
while not rs.eof
i=i+1
rs2.open"select * from question where fenleiid="&rs("id")&"",conn,1,1
totalquestion=rs2.recordcount
rs2.close
%>
<td> ·<a href=List_Little.asp?id=<%=rs("id")%>&topic=<%=rs("topic")%>><%=rs("topic")%></a> (<%=totalquestion%>)</td>
<%rs.movenext
if i>=3 then
i=0%>
</tr>
<%end if
wend
end if
rs.close
%>
</table></td>
</tr>
</table>
<br></td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
<tr>
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td align=center><br>
<table border="0" width="98%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="184" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="24" valign="bottom" class="<%if jie="" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="" then%>全部的问题<%else%><a href="List_Little.asp?id=<%=id%>&topic=<%=topic%>" class="f14">全部的问题</a><%end if%></div></td>
<td width="10"></td>
<td valign="bottom" class="<%if jie="1" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="1" then%>已解决问题<%else%><a href="List_Little.asp?id=<%=id%>&topic=<%=topic%>&jie=1" class="f14">已解决问题</a><%end if%></div></td>
<td width="10"></td>
<td valign="bottom" class="<%if jie="0" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="0" then%>待解决问题<%else%><a href="List_Little.asp?id=<%=id%>&topic=<%=topic%>&jie=0" class="f14">待解决问题</a><%end if%></div></td>
<td width="10"></td>
<td valign="bottom" class="<%if jie="4" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="4" then%>投票中问题<%else%><a href="List_Little.asp?id=<%=id%>&topic=<%=topic%>&jie=4" class="f14" >投票中问题</a><%end if%></div></td>
<td width="10"></td>
<td valign="bottom" class="<%if jie="3" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="3" then%>高分的问题<%else%><a href="List_Little.asp?id=<%=id%>&topic=<%=topic%>&jie=3" class="f14" >高分的问题</a><%end if%></div></td>
<td width="10"></td>
<td valign="bottom" class="<%if jie="2" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="2" then%>零回答问题<%else%><a href="List_Little.asp?id=<%=id%>&topic=<%=topic%>&jie=2" class="f14" >零回答问题</a><%end if%></div></td>
<td valign="bottom"></td>
</tr>
</table>
<%
rs2.open"select * from assort where id="&id,conn,1,1
shu=rs2("id")
if jie="0" then
rs.open"select * from question where topic='"&topic&"' and jie=0 order by sendtime desc",conn,1,1
elseif jie="1" then
rs.open"select * from question where topic='"&topic&"' and jie=1 order by views desc",conn,1,1
elseif jie="2" then
rs.open"select * from question where topic='"&topic&"' and replys=0 order by sendtime desc",conn,1,1
elseif jie="3" then
rs.open"select * from question where topic='"&topic&"' and shang>0 order by shang desc",conn,1,1
elseif jie="4" then
rs.open"select * from question where topic='"&topic&"' and jie=4 order by sendtime desc",conn,1,1
elseif jie<>"0" or jie <>"1" or jie<>"2" or jie<>"3" or jie<>"4" or jie="" then
rs.open"select * from question where topic='"&topic&"' order by sendtime desc",conn,1,1
end if
totalquestion1=rs.recordcount
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td height="24" class="bglne"><div align="right" class="f12we">共有相关问题 <%=totalquestion1%>
项</div></td>
</tr> <tr><td height="10"></td></tr></table>
<table width="100%" border="0" cellspacing="0" class=zhtable>
<tr>
<td> <b> 标题</b></td>
<td width="100" align=center><b>回答数</b></td><td width="80" align="center"><b>状态</b></td>
<td width="120" align="center"><b>提问时间</b></td>
</tr><tr>
<%if rs.eof then%>
<tr>
<td height="34" colspan=6>暂时没有问题!</td>
</tr><tr><%else
rs.pagesize=MaxPerPage
maxnum=rs.recordcount
maxpage=rs.pagecount
if request("p")="" then
p=1
else
p=cint(request("p"))
end if
if p>maxpage then
p=maxpage
end if
if p=0 then
p=1
end if
if p<>1 then
rs.move (p-1)*rs.pagesize
end if
for i=1 to rs.pagesize
yue=Month(rs("sendtime"))
ri=day(rs("sendtime"))
%>
<td class="ln28" width="81%"><span class="f14ln20"><%if rs("shang")>"0" then %><img src="img/icn_ps.gif" alt="悬赏<%=rs("shang")%>分" width="12" height="11" align="absmiddle"><span class="f10rd" title="悬赏<%=rs("shang")%>分"><%=rs("shang")%></span> <%end if%><a href=Show_Question.asp?id=<%=rs("id")%> target=_blank><%if len(rs("title"))>30 then%><%=left(rs("title"),30)&"..."%><%else%><%=rs("title")%><%end if%></a></span></td>
<td align="center" valign="middle" class="ln28"><%=rs("replys")%></td>
<td align="center" valign="middle" class="ln28"><%if rs("jie")=0 then %><img src=img/icn_time.gif alt=待解决问题><%elseif rs("jie")=1 or rs("jie")=3 then%><img src=img/icn_ok.gif alt =已解决问题><%elseif rs("jie")=2 then%><img src=img/icn_cancel.gif alt =问题已关闭><%elseif rs("jie")=4 then%><img src=img/icn_vote.gif alt =投票中问题><%end if%></td>
<td align="center" valign="middle" class="ln28"><%=yue%>-<%=ri%></td></tr>
<%rs.movenext
if rs.eof then exit for
next%>
</table>
<br>
<table width="100%" height="24" border="0" cellpadding="0" cellspacing="0" class="t11">
<tr>
<td align="center">问题数:<font color=red><%=maxnum%></font> | 每页数:<font color=green><%=rs.pagesize%></font> | 总页数:<font color=green><%=maxpage%></font> | 当前页:<font color=red><%=p%></font>
<a href=List_Little.asp?id=<%=rs2("id")%>&p=1&topic=<%=topic%>&jie=<%=jie%>>首页</a>
<a href=List_Little.asp?id=<%=rs2("id")%>&p=<%=p-1%>&topic=<%=topic%>&jie=<%=jie%>>上页</a>
<a href=List_Little.asp?id=<%=rs2("id")%>&p=<%=p+1%>&topic=<%=topic%>&jie=<%=jie%>>下页</a>
<a href=List_Little.asp?id=<%=rs2("id")%>&p=<%=maxpage%>&topic=<%=topic%>&jie=<%=jie%>>尾页</a></td>
</tr>
</table>
<%end if
rs.close
rs2.close
%>
</td> </tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td valign="top" width="8"></td>
<td valign="top" width="200">
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
<tr>
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td height="36" align="center" onmouseover="this.className='tbb'" onmouseout="this.className='taa'" class="taa"><strong><%if session("person")<>"" then%>用户信息<%else%>用户登录<%end if%></strong></td>
</tr>
<tr>
<td align=center><br>
<table border="0" width="98%" cellspacing="0" cellpadding="0">
<tr>
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top">
<div align="right">
<table border="0" width="98%" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0"><%if session("person")<>"" then%>
<tr>
<td class="f14">您好：<%=session("person")%> </td>
</tr>
<tr>
<td><%rs.open"select * from person where name='"&session("person")&"'",conn,1,1%>
<a href="Help.asp#n5" target=_blank><%=rs("touxian")%></a> ( <%=rs("jifen")%> )</td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -