about.asp

修改迅易在线评选管理系统,,功能能用,下载的迅易功能不全,

<!--#include file="Head.asp"-->
<div align="center">

  <table width="900" border="0" cellspacing="0" cellpadding="0" class="Outside">
    <tr>
      <td height="300" valign="top" bgcolor="#F2F2F2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="30" height="32" align="center" bgcolor="#F4F4F4"><img src="../Images/Arrow_01.gif" width="14" height="11"></td>
            <td bgcolor="#F4F4F4" class="Location">
            <a href="../index.asp">首页</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle">大赛报道	  </td>
          </tr>
        <tr>
          <td height="4" colspan="2" bgcolor="#FFFFFF"></td>
          </tr>
      </table>        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="30" height="20">&nbsp;</td>
            <td>&nbsp;</td>
            <td width="30">&nbsp;</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td><%=WebMenu()%></td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td height="30"></td>
            <td></td>
            <td></td>
          </tr>
      </table></td>
    </tr>
  </table>
</div>
<%
function WebMenu()
  dim rs,sql,i
  set rs = server.createobject("adodb.recordset")
  sql="select ID,AboutName,ClickNumber,AddTime from ameav_About where ViewFlag and not ChildFlag order by Sequence asc"
  rs.open sql,conn,1,1
  response.write"<table width='98%' border='0' cellspacing='0' cellpadding='0'>"
  if rs.bof and rs.eof then
    response.write "<tr><td align='center'>暂无相关信息</td></tr>"
  else
    do
      response.write "<tr class='WebMenu'><td width='24'><img src='../Images/Arrow_03.gif' width='13' height='13'></td>"
      response.write "<td><a href='AboutView.asp?ID="&rs("ID")&"'>"&rs("AboutName")&"</a></td><td align='right'>"&rs("AddTime")&"--"&rs("ClickNumber")&"次 </td></tr>"
      rs.movenext
    loop until rs.eof
  end if
  response.write"</table>"
  rs.close
  set rs=nothing
end function

%>
<!--#include file="Foot.asp"-->