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

📄 index.asp

📁 有没有用DELPHI做的网上评分系统啊 我急需
💻 ASP
字号:
<!--#include file="conn.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
<link rel="stylesheet" type="text/css" href="main.css">
</head>

<body bgcolor="#CCFFFF">

<div align="center">
  <center>
  <table border="0" width="592" height="170">
    <tr>
      <td width="592" height="22">网页大赛决赛计分系统[<a href="login.asp" target="_blank">管理员</a>]</td>
    </tr>
    <tr>
      <td width="592" height="22"><a href="index.asp?sort=t">按技术分排序</a>|<a href="index.asp?sort=m">按美工分排序</a>|<a href="index.asp?sort=c">按创意分排序</a>|<a href="index.asp?sort=z">按综合分排序</a>|<a href="index.asp?sort=total">按总分排序</a></td>
    </tr>
    <tr>
      <td width="592" height="140">
        <table border="0" width="100%">
          <tr>
            <td width="100%">
              <%
               sort=request("sort")
               if sort="" then sort="total" end if
               Set rs = conn.Execute("select *from ceocio order by "&sort&" desc")
               %>
               <!--判断现在是用什么进行排序-->
               <br><%select case sort
               case "total"
               response.write "当前是按<font color=red>总分</font>排序"
               case "t"
               response.write "当前是按<font color=red>技术分</font>排序"
               case "m"
               response.write "当前是按<font color=red>美工分</font>排序"
               case "c"
               response.write "当前是按<font color=red>创意分</font>排序"
               case else
               response.write "当前是按<font color=red>综合分</font>排序"
               end select%> 
               <%   
               dim mingci             '定义名次变量
               while not rs.eof
               mingci=mingci+1        '名次累加
               %>
              <table border="1" width="576" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#CCFFFF">
                <tr>
                  <td width="62">名次:<%=mingci%></td>
                  <td width="111">作品:<a href="<%=rs("url")%>" target="_blank"><%=rs("sitename")%></a></td>
                  <td width="381">作者:<b><%=rs("name")%></b>&nbsp; 来自:<b><%=rs("from")%></b>&nbsp; 
                    学号:<b><%=rs("num")%></b>&nbsp; [<a href="list.asp?id=<%=rs("id")%>" target="_blank">详细得分情况</a>]</td>
                </tr>
                <tr>
                  <td width="566" colspan="3"><%if sort="t" then%><span style="background-color: #FFFF00"><%end if%>技术分:<b><%=rs("t")%></b></span> 
                    <%if sort="m" then%><span style="background-color: #FFFF00"><%end if%>美工分:<b><%=rs("m")%></b></span> 
                    <%if sort="c" then%><span style="background-color: #FFFF00"><%end if%>创意分:<b><%=rs("c")%></b></span> 
                    <%if sort="z" then%><span style="background-color: #FFFF00"><%end if%>综合分:<b><%=rs("z")%></b></span> 
                    <%if sort="total" then%><span style="background-color: #FFFF00"><%end if%>总分:<b><font color="#FF0000"><%=rs("total")%></font></b></span></td> 
                </tr>
              </table><br>
              <%
               rs.movenext
               %>
               <%      
               wend
               %>
               <%      
               rs.close
               conn.close
	           %>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  </center>
</div>

<p align="center"><a href="index.asp?sort=t">按技术分排序</a>|<a href="index.asp?sort=m">按美工分排序</a>|<a href="index.asp?sort=c">按创意分排序</a>|<a href="index.asp?sort=z">按综合分排序</a>|<a href="index.asp?sort=total">按总分排序</a></p>
<p align="center"><a href="http://www.ceocio.net" target="_blank">西路网络花园</a>设计编程<br>
1998-2002<br>
西路科技版权所有</p>

</body>

</html>

⌨️ 快捷键说明

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