showbypage.asp

来自「使用asp+sqlserver2000编写的学生管理系统」· ASP 代码 · 共 55 行

<script language="JavaScript" type="text/javascript">  
  var   pointRow=null;//记录上次mouseover过的行   
  function   moveRow(src){   
        if(pointRow!=null)
		{
              pointRow.style.backgroundColor="#FFFFFF"; 
			  pointRow.style.cursor="hand";
		}
        
              pointRow=src;   
              pointRow.style.backgroundColor="#FF0000";    
  }   
 function check(sno) 
 {
    if (confirm("你是否确认删除该学生的记录吗?"))
	{
	   location.href="deletestudentbysno.asp?sno="+sno
	}
 }
</script>

<% sub showbypage(rs,page)
   header="<h1 align='center'>学生基本信息表</h1>"
   response.Write(header)
   response.Write("<center><table width='760'>")
   response.Write("<tr>")
   for i=0 to rs.fields.count-1
    response.Write("<td>"&rs.fields(i).name&"</td>")
   next
   response.Write "<td>查看</td>"
   response.Write "<td>编辑</td>"
   response.Write "<td><a href='studentregister.html'>添加</a></td>"
   %>
   <td>删除</td>
<%
   response.Write("</tr>")
   rs.absolutepage=page
   for i=1 to rs.pagesize
  response.write " <tr onMouseOver='moveRow(this)' >"
      for j=0 to rs.fields.count-1
	   response.Write("<td>"&rs.fields(j).value&"</td>")
	 next
	  response.Write "<td>查看</td>"
   response.Write "<td><a href=studentedit.asp?xh="&rs("xh")&">编辑</a></td>"
   response.Write "<td>添加</td>"
   %>
  <td><a href="javascript:check('<%= rs("xh") %>');">删除</a></td>
   <% 
	   response.Write("</tr>")
	   rs.movenext
	   if rs.eof=true then exit for
   next
   response.Write("</table></center>")
   end sub
 %>