⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 assort1.asp

📁 完整的九洲问吧。优秀的问答网站。由ASP+Access开发。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file=conn.asp-->
<!--#include file="function.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
%>
<html>
<head>
<title><%=webname%>_<%=topic2%>_<%=topic%>_全部问题</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="iknow.css" rel="stylesheet" type="text/css">
</head>
<body class="bgbdy" topmargin="0">
<center>
<!--#include file=top.asp-->
<table width="770" border="0"  cellpadding="0" cellspacing="0">
<tr><td height="25" nowrap><a href="<%=weburl%>"><%=webname%></a> &gt; <a href="assort.asp?id=<%=topic1%>&topic=<%=topic2%>"><%=topic2%></a> &gt; <%=topic%> </td>  </tr></table>                                                                                                                                                                  
</center>
<div align="center">
  <center>
  <table border="0" width="770" height="374" cellspacing="0" cellpadding="0">
    <tr>
      <td height="368" valign="top">
        <table border="0" width="100%" cellspacing="0" cellpadding="0" height="259">
          <tr>
            <td class="bgtle" nowrap height="24" ><%=topic2%></td>
          </tr>
          <tr>
            <td class="bgcntLn" height="34" valign="top"><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 height="20" bgcolor="#FFFFFF" class="f14ln20"> ·<a href=assort1.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>
          </tr>
          <tr>
            <td width="100%" height="17" valign="top"></td>
          </tr>
          <tr>
            <td width="100%" height="184" valign="top">
<table width="588" border="0"  cellpadding="0" cellspacing="0">
  <tr> 
    <td width="81" height="24" valign="bottom" class="<%if jie="" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="" then%>全部问题<%else%><a href="assort1.asp?id=<%=id%>&topic=<%=topic%>" class="f14">全部问题</a><%end if%></div></td>
    <td width="10"></td>
    <td width="81" valign="bottom" class="<%if jie="1" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="1" then%>已解决问题<%else%><a href="assort1.asp?id=<%=id%>&topic=<%=topic%>&jie=1" class="f14">已解决问题</a><%end if%></div></td>
    <td width="10"></td>
    <td width="81" valign="bottom" class="<%if jie="0" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="0" then%>待解决问题<%else%><a href="assort1.asp?id=<%=id%>&topic=<%=topic%>&jie=0" class="f14">待解决问题</a><%end if%></div></td>
    <td width="10"></td>
    <td width="81" valign="bottom" class="<%if jie="4" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="4" then%>投票中问题<%else%><a href="assort1.asp?id=<%=id%>&topic=<%=topic%>&jie=4" class="f14" >投票中问题</a><%end if%></div></td>
    <td width="10"></td>
    <td width="81" valign="bottom" class="<%if jie="3" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="3" then%>高分问题<%else%><a href="assort1.asp?id=<%=id%>&topic=<%=topic%>&jie=3" class="f14" >高分问题</a><%end if%></div></td>
    <td width="10"></td>
    <td width="81" valign="bottom" class="<%if jie="2" then%>bgtabCr<%else%>bgtab<%end if%>" nowrap><div align="center"><%if jie="2" then%>零回答问题<%else%><a href="assort1.asp?id=<%=id%>&topic=<%=topic%>&jie=2" class="f14" >零回答问题</a><%end if%></div></td>
	<td valign="bottom">&nbsp;</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="588" 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="588" border="0" cellspacing="0" class=zhtable>
<tr class="f12b">
<td height="30" nowrap>  标题</td>
<td width=40 nowrap align=center>回答数</td><td width="32" nowrap align="center">状态</td><td width="52" nowrap align="center">提问时间</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"><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=showquestion.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" nowrap><%=yue%>-<%=ri%></td></tr>
<%rs.movenext
		if rs.eof then exit for
		next%>
</table>

<br>
<div style="width:588px;" align="center"> 
<table width="90%" height="30" border="0"  cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" class="bgpagLn">问题数:<font color=red><%=maxnum%></font> | 每页数:<font color=green><%=rs.pagesize%></font> | 总页数:<font color=green><%=maxpage%></font> | 当前页:<font color=red><%=p%></font>                                                                                                                                                                            
		  <a href=assort1.asp?id=<%=rs2("id")%>&p=1&topic=<%=topic%>&jie=<%=jie%>>首页</a>                                                                                                                                                                             
		  <a href=assort1.asp?id=<%=rs2("id")%>&p=<%=p-1%>&topic=<%=topic%>&jie=<%=jie%>>上页</a>                                                                                                                                                                             
		  <a href=assort1.asp?id=<%=rs2("id")%>&p=<%=p+1%>&topic=<%=topic%>&jie=<%=jie%>>下页</a>                                                                                                                                                                             
		  <a href=assort1.asp?id=<%=rs2("id")%>&p=<%=maxpage%>&topic=<%=topic%>&jie=<%=jie%>>尾页</a></td>                                                                                                                                                                               
  </tr>
</table>
<%end if
		rs.close
		rs2.close
%>

</div>

              <p> </td>
          </tr>
        </table>
      </td>
      <td width="181" height="368" valign="top" align="right">
        <table border="0" width="100%" cellspacing="0" cellpadding="0">
          <tr>
            <td width="100%" valign="top">
              <div align="right">
                <table border="0" width="95%" cellspacing="0" cellpadding="0" height="1">
                  <tr>
<td class="bgtle" nowrap height="1"><%if session("person")<>"" then%>用户信息<%else%>用户登录<%end if%></td>
                  </tr>
                  <tr>
 <td class="bgcntBor3" height="1">
    <%if request("login")="登录" then
jiance=request("name")
if InStr(jiance,"or")<>0 or InStr(jiance,"'")<>0 or InStr(jiance,"`")<>0 or InStr(jiance,"=")<>0 or InStr(jiance,"-")<>0 or InStr(jiance,",")<>0 or InStr(jiance,"and")<>0 then 
Response.Write "<script language=JavaScript>{alert('用户名非法!');history.back();}</script>"
Response.End 
end if
		if not IsNumeric(request("verifycode")) then
		Response.Write ("<script>alert('友情提示!\n\n验证编码必须是数字!');history.back();</script>")
		Response.end
	end if
	if (int(session("SafeCode"))<>int(request("verifycode"))) then
		Response.Write ("<script>alert('友情提示!\n\n验证编码输入错误!');history.back();</script>")
		Response.end
	end if
	  if request("name")="" then
	  response.write"<script>alert('用户名不能为空!');history.back();</script>"
	  elseif request("pwd")="" then

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -