showsoft_body.asp

ASP源码

set rs5=server.createobject("adodb.recordset")
rs5.open sql5,conn,1,1
%>
        <tr bgcolor="#EFEBEF"> 
          <td colspan="4" bgcolor="#F5F5F5" background="images/pic000/c006.jpg"><b>网友评论</b> [<%=rs5.recordcount%>条评论]</td>
        </tr>
        <%
if not rs5.eof then
rs5.movefirst
rs5.pagesize=remarkperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs5.pagecount then
      currentpage=rs5.pagecount
   end if
else
   currentpage=1
end if
   totalremark=rs5.recordcount
   if currentpage<>1 then
       if (currentpage-1)*remarkperpage<totalremark then
	       rs5.move(currentpage-1)*remarkperpage
		   dim bookmark
		   bookmark=rs5.bookmark
	   end if
   end if
   if (totalremark mod remarkperpage)=0 then
      totalpages=totalremark\remarkperpage
   else
      totalpages=totalremark\remarkperpage+1
   end if
   i=0
do while not rs5.eof and i<remarkperpage%>
        <tr> 
          <td colspan="4" bgcolor="#FFFFFF"><span >&gt;&gt;</span> 
            <%=rs5("remarker")%> 发表于<span ><%=rs5("remark_date")%><br>
            ---------------------------------------------------------------<br>
            </span> <font color="#9F9F9F"><%=ubb2html(formatStr(autourl(rs5("remark"))), true, true)%></font> </td>
        </tr>
        <%
i=i+1
rs5.movenext
loop
else
if rs5.eof and rs5.bof then
%>
        <tr bgcolor="#ffffff"> 
          <td colspan="4">暂时还没有网友发表评论。</td>
        </tr>
        <%end if
end if%>
        <tr bgcolor="#ffffff" align="right"> 
          <td colspan="4" >Page <%=currentpage%> of <%=totalpages%>,<%=totalremark%> records, 
            <%
i=1
for i=1 to totalpages
if i=currentpage then
%>
            <%=i%> 
            <%else%>
            <a href="showsoft.asp?soft_id=<%=request.querystring("soft_id")%>&page=<%=i%>"><%=i%></a> 
            <%end if
next%>
          </td>
        </tr>
      </table>
        </center>
      </div>
      <table cellspacing=1 cellpadding=0 width="100%" align=center border=0>
        <tr> 
          <td width="100%" height="5"></td>
        </tr>
      </table>
      <table width="92%" cellspacing="1" align="center" bgcolor="#B2B2B2" cellpadding="6" class="chinese">
        <form name="addremark" method="POST" action="<%=MM_editAction%>">
          <tr bgcolor="#F7FFFF"> 
            <td bgcolor="#FFFFFF" colspan="2">发表评论：</td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" height="13" width="17%">您的称呼-</td>
            <td bgcolor="#FFFFFF" height="13" width="83%"> <input type="text" name="remarker" class="textarea" size="30" maxlength="30">
              最多30个字符</td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" width="17%" valign="top">您的意见-<br> 
              <br> </td>
            <td bgcolor="#FFFFFF" width="83%"> <textarea name="remark" cols="60" rows="6" class="textarea"></textarea>
              最多225字符 </td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5" colspan="2"> <div align="center"> 
                <input type="submit" name="Submit2" value="确定发表" class="button" onClick="YY_checkform('addremark','remarker','#q','0','称呼必须填写！','remark','1','1','评论内容必须填写！');return document.MM_returnValue">
                <input type="reset" name="reset" value="取消重写" class="button">
                <input type="hidden" name="soft_id" value="<%=request.querystring("soft_id")%>">
              </div></td>
          </tr>
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table> <br>
    </td>
    <td width="1" background="images/dotlinev.gif"></td>
    <td width="227" align="center" valign="top"> 
      <%
sql1="SELECT top " &topsoftnum& " soft_dcount,soft_rcount,soft_id,soft_name,soft_joindate FROM soft  ORDER BY soft_dcount DESC"
sql2="SELECT top " &newsoft& " soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount FROM soft order by soft_joindate DESC"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,1
if request.querystring("class_id")<>"" or request.querystring("cat_id")<>"" or request.querystring("soft_id")<>"" then
if request.querystring("class_id")="" and request.querystring("cat_id")<>"" then

sql3="SELECT top 10 soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount FROM soft WHERE soft_classid= " &request.querystring("cat_id")& " order by soft_dcount DESC , soft_joindate DESC"

elseif request.querystring("class_id")<>"" then
sql3="SELECT top 10 soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount FROM soft WHERE soft_classid= " &request.querystring("class_id")& " order by soft_dcount DESC , soft_joindate DESC"

elseif request.querystring("soft_id")<>"" then
sql3="SELECT top 10 soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount FROM soft WHERE soft_classid= " &rs("soft_classid")& " order by soft_dcount DESC , soft_joindate DESC"

end if
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,1,1
%>
      <table width="90%" border="0" cellspacing="0" cellpadding="8" bgcolor="#FFFFFF" class="chinese" style="border-collapse: collapse" bordercolor="#111111">
        <tr> 
          <td bgcolor="#E7E3E7" align="center" background="images/pic000/c006.jpg">本类下载Top 10</td>
        </tr>
      </table>
      <table width="90%" border="0" cellspacing="1" cellpadding="0" bgcolor="#E7E3E7">
        <tr> 
          <td bgcolor="#FFFFFF"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <%do while not rs3.eof%>
              <tr> 
                <td align="center" class="chinese" bgcolor="#F5F5F5"><a href="showsoft.asp?soft_id=<%=rs3("soft_id")%>" target="_blank"><%=rs3("soft_name")%></a>&nbsp;&nbsp;(<font color="#66CC33"><%=rs3("soft_dcount")%></font>/<font color="#66CC33"><%=rs3("soft_rcount")%></font>)</td>
              </tr>
              <%rs3.movenext
loop
if rs3.eof and rs3.bof then%>
              <tr> 
                <td align="center" class="chinese" bgcolor="#F5F5F5">目前还没有软件程序！</td>
              </tr>
              <%end if%>
            </table>
          </td>
        </tr>
      </table>
      <br>
      <%
rs3.close
set rs3=nothing
end if
%>
      <table width="90%" border="0" cellspacing="0" cellpadding="8" bgcolor="#FFFFFF" class="chinese" style="border-collapse: collapse" bordercolor="#111111">
        <tr> 
          <td bgcolor="#E7E3E7" align="center" background="images/pic000/c006.jpg">下载Top <%=topsoftnum%></td>
        </tr>
      </table>
      <table width="90%" border="0" cellspacing="1" cellpadding="0" bgcolor="#E7E3E7">
        <tr> 
          <td bgcolor="#FFFFFF"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <%do while not rs1.eof%>
              <tr> 
                <td align="center" class="chinese" bgcolor="#F5F5F5"><a href="showsoft.asp?soft_id=<%=rs1("soft_id")%>" target="_blank"><%=rs1("soft_name")%></a>&nbsp;&nbsp;(<font color="#66CC33"><%=rs1("soft_dcount")%></font>/<font color="#66CC33"><%=rs1("soft_rcount")%></font>)</td>
              </tr>
              <%rs1.movenext
loop
if rs1.eof and rs1.bof then%>
              <tr> 
                <td align="center" class="chinese" bgcolor="#F5F5F5">目前还没有软件程序！</td>
              </tr>
              <%end if%>
            </table>
          </td>
        </tr>
      </table>
      <br>
      <table width="90%" border="0" cellspacing="0" cellpadding="8" bgcolor="#FFFFFF" class="chinese" style="border-collapse: collapse" bordercolor="#111111">
        <tr> 
          <td bgcolor="#E7E3E7" align="center" background="images/pic000/c006.jpg">更新Top <%=newsoft%></td>
        </tr>
      </table>
      <table width="90%" border="0" cellspacing="1" cellpadding="0" bgcolor="#E7E3E7">
        <tr> 
          <td bgcolor="#FFFFFF"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <%do while not rs2.eof%>
              <tr> 
                <td align="center" class="chinese" bgcolor="#F5F5F5"><a href="showsoft.asp?soft_id=<%=rs2("soft_id")%>" target="_blank"><%=rs2("soft_name")%></a>&nbsp;&nbsp;(<font color="#66CC33"><%=rs2("soft_dcount")%></font>/<font color="#66CC33"><%=rs2("soft_rcount")%></font>)</td>
              </tr>
              <%rs2.movenext
loop
if rs2.eof and rs2.bof then%>
              <tr> 
                <td align="center" class="chinese" bgcolor="#F5F5F5">目前还没有软件程序！</td>
              </tr>
              <%end if%>
            </table>
          </td>
        </tr>
      </table>
      <%
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
%>
      <br>
    </td>
  </tr>
  <tr> 
    <td colspan="3" background="images/dotlineh.gif" height="1"></td>
  </tr>
</table>
<%
rs.close
set rs=nothing
end sub%>