<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="setup.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="page.asp"-->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=site_name%></title>
<link href="style.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
</head>

<body><!--#include file="top.asp"-->
<div id="box">
<div id="left">

<div id="nav4">点击排行</div>
<div id="nav_content">
<ul>
<%
 Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "select top 6 * from news order by hit desc",conn,1,1
if rs.eof and rs.bof then
response.Write("")
else
do while not rs.eof
%>
<li>·<a href="list.asp?yiid=<%=rs("yiid")%>"><%=rs("title")%></a></li>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
 %>
</ul>
</div>
<div id="nav4">投票调查</div>
<div id="nav_content">
<script language="javascript" src="vote/votescript.asp?vid=7"></script>
</div>
</div>

<div id="right">
<div id="address">您的位置：本站首页→成绩查询</div>

<div id="big_content">
<div id="content">
  <table width="758" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#BCDB7D">
    <tr>
      <td align="center" bgcolor="#ECF8C7">学号</td>
      <td align="center" bgcolor="#ECF8C7">姓名</td>
      <td align="center" bgcolor="#ECF8C7">语文</td>
      <td align="center" bgcolor="#ECF8C7">数学</td>
      <td align="center" bgcolor="#ECF8C7">英语</td>
      <td align="center" bgcolor="#ECF8C7">物理</td>
      <td align="center" bgcolor="#ECF8C7">化学</td>
      <td align="center" bgcolor="#ECF8C7">政治</td>
      </tr>
	  
	  <%
	  action=request.Form("action")
	  sql="select  * from Results where 1=1"
	  if action="search" then
	   xuehao=request.Form("xuehao")
	   UserName=request.Form("UserName")
	   if xuehao<>"" then
	    sql=sql&" and xuehao like '%"&xuehao&"%'"
	   end if
	    if UserName<>"" then
	    sql=sql&" and UserName like '%"&UserName&"%'"
	   end if
	  
	  end if
	  
	  sql=sql&" order by ID desc"
	  
	  
	  
	   Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if  not rs.eof then

do while not rs.eof

	  
	  
	  %>
    <tr>
      <td align="center" bgcolor="#FFFFFF"><%=rs("xuehao")%></td>
      <td align="center" bgcolor="#FFFFFF"><%=rs("UserName")%></td>
      <td align="center" bgcolor="#FFFFFF"><%=rs("yuwen")%></td>
      <td align="center" bgcolor="#FFFFFF"><%=rs("shuxue")%></td>
      <td align="center" bgcolor="#FFFFFF"><%=rs("yingyu")%></td>
      <td align="center" bgcolor="#FFFFFF"><%=rs("wuli")%></td>
      <td align="center" bgcolor="#FFFFFF"><%=rs("huaxue")%></td>
      <td align="center" bgcolor="#FFFFFF"><%=rs("zhenzhi")%></td>
      </tr>
	  <%
	  rs.movenext
	  loop
	  end if
	  rs.close
set rs=nothing
	  %>
	  
  </table>
 </div>
</div>
</div>
</div>

<!--#include file="bottom.asp"-->
</body>
</html>
