aboutview.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><%=WebContent()%></td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td height="30"></td>
            <td></td>
            <td></td>
          </tr>
      </table></td>
    </tr>
  </table>
</div>
<%


function WebContent()
  dim ID
  ID=request.QueryString("ID")
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  if request.QueryString("ID")="" then
	sql="select top 1 ID,AboutName,Content,GroupID,Exclusive,ClickNumber from ameav_About where ViewFlag and not ChildFlag order by Sequence asc"
  else
	sql="select ID,AboutName,Content,GroupID,Exclusive,ClickNumber from ameav_About where ViewFlag and not ChildFlag and ID="&ID
  end if
  rs.open sql,conn,1,3
  if rs.bof and rs.eof then
    response.write "<div align='center'>鏆傛棤鐩稿叧淇℃伅</div>"
  else
    if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
	  WebContent=rs("Content")
	  rs("ClickNumber")=rs("ClickNumber")+1
	else
	  WebContent="<div align='center'><img src='../Images/NoRight.jpg'></div>"
	end if
	rs.update
  end if
  rs.close
  set rs=nothing
end function
%>
<!--#include file="Foot.asp"-->