showonepage.asp

使用asp+sqlserver2000编写的学生管理系统

  <Script   Language="JavaScript">   
 function   check(sno,cno)   
  {   
  if(confirm("你确定要删除这条记录吗?"))   
    {location.href="deletescore.asp?sno="+sno+"&cno="+cno}   
  }   
  function  check1(sno)   
  {   
  if(confirm("你确定要删除这条记录吗?"))   
    {location.href="deleteStudent.asp?sno="+sno}   
  }   
  </Script>

<%
sub ShowOnePage(header,rs,page) 
dim title,tbheader
tbheader=cstr(header)

title="<center><font size=5 color=#FF0000>"&tbheader&"</font></center>"
response.write title
stop
response.write "<center><table  border='1'   cellpadding='0'   cellspacing='0'  style='border-collapse:collapse'   bordercolor='#000000' >"
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>添加</td>"
response.Write "<td>删除</td>"
response.Write "</tr>"
 rs.absolutepage=page
for thepage=1 to rs.pagesize
response.write " <tr onMouseOver='moveRow(this)' onClick='clickRow(this)'>"
   for i=0 to rs.fields.count-1
    response.write "<td>"& rs.fields(i).value&"</td>"
   next 
    response.Write "<td><a href=showStuDetails.asp?xh="&rs("学号")&">"&_
   "查看</a></td>"
   response.Write "<td><a href=stuEdit.asp?xh="&rs("学号")&">"&_
   "编辑</a></td>"
   response.Write "<td><a href='stuRegister.html'>添加</a></td>"
   %>
  <td><a  href="javascript:check1('<%= rs("学号")%>');"><font color=darkblue>删除</font></a> </td>
  <%
   response.write "</tr>"
   rs.movenext
   if rs.eof then exit for
next
response.Write "</table></center>"
 
end sub

sub ShowScoreOnePage(header,rs,page) 
dim title,tbheader
tbheader=cstr(header)
title="<center><font size=5 color=#3300cc>"&tbheader&"</font></center>"
response.write title
response.write "<center><table border='1'   cellpadding='0'   cellspacing='0'  style='border-collapse:collapse'   bordercolor='#000000' >"
for i=0 to rs.fields.count-2
response.Write "<td>"&rs.fields(i).name&"</td>"
next
rs.absolutepage=1
for thepage=1 to rs.pagesize
   response.write "<tr onMouseOver='moveRow(this)' onClick='clickRow(this)'>"
   for i=0 to rs.fields.count-2
    response.write "<td>"& rs.fields(i).value&"</td>"
   next 
   response.Write "<td><a href='#'>查看</a></td>"
   response.Write "<td><a href=updatescore.asp?xh="&rs("学号")&"&kch="&rs("kch")&">编辑</a></td>"
   response.Write "<td><a href=insertscore.asp?xh="&rs("学号")&">添加</a></td>"
 
  %> 
<td> 
<a  href="javascript:check('<%= rs("学号")%>','<%= rs("kch")%>')"><font color=darkblue>删除</font></a>   
</td>
 <%
   response.write "</tr>"
   rs.movenext
   if rs.eof then exit for
next
response.Write "</table></center>"
 
end sub
 %>