www.pudn.com > Xiao5u_Exam_v2011627.rar > Sclass.asp, change:2011-06-26,size:6456b


<!--#include file="inc/right.asp"-->  
<!--#include file="inc/conn.asp"--> 
<script language=JavaScript> 
<!-- 
function DoEmpty(params) 
{ 
if (confirm("真的要删除这条记录吗?删除后此记录里的所有内容都将被删除并且无法恢复!")) 
window.location = params ; 
} 
//--> 
</script> 
 
<% 
IF Request("wor")="del" Then 
sql="delete from Sclass where id="&Request("id") 
Conn.execute(sql) 
Response.Redirect "?action=list" 
End IF 
%> 
 
<% 
action=Request("action") 
id=Request("id") 
if action="yes" Then 
 set rs=server.createobject("adodb.recordset")  
if id="" then 
   set rsCheck = conn.execute("select cname from Sclass where cname='" & trim(Request.Form("title")) & "'") 
     if not (rsCheck.bof and rsCheck.eof) then 
      response.write "<script language='javascript'>alert('" & trim(Request.Form("title")) & " 已存在,请检查!');history.back(-1);</script>" 
      response.end 
     end if 
   set rsCheck=nothing 
   sql="select * from Sclass"  
   rs.open sql,conn,3,3 
   rs.addnew 		'添加记录到数据表末端  
else 
   sql="select * from Sclass where id="&id&""  
   rs.open sql,conn,1,2 
end if 
rs("cname")=Request("cname") 
 rs.update 		'更新数据表记录 
 rs.close 
set rs=nothing 
 Response.Redirect "?action=list" 
end if 
%> 
<html> 
<head> 
<title>校无忧管理系统</title> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<link href="images/main.css" rel="stylesheet" type="text/css"> 
<script LANGUAGE="JavaScript"> 
function check() 
{ 
  if (document.add.cname.value=="") 
     { 
      alert("请填写班级名称!") 
      document.add.cname.focus() 
      document.add.cname.select() 
      return 
     }  
     document.add.submit() 
} 
</SCRIPT> 
</head> 
<body> 
<table width="100%" border="0" cellpadding="0" cellspacing="0"> 
  <tr valign="top"> 
    <td bgcolor="#FFFFFF"> 
	<%if action="add" then%><BR> 
        <table width="96%"  border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#aec3de"> 
        <form name="add" method="post" action="Sclass.asp"> 
        <tr align="center" bgcolor="#F2FDFF"> 
          <td colspan="2"  class="optiontitle">添加班级</td> 
        </tr> 
        <tr align="center" bgcolor="#F2FDFF"> 
          <td width="10%" align="right"> 班级名称:</td> 
          <td align="left"><input name="cname" type="text" id="cname" value="" size="50"></td> 
        </tr> 
        <tr align="center" bgcolor="#ebf0f7"> 
          <td  colspan="2" > 
		     <INPUT TYPE="hidden" name="action" value="yes"> 
            <input type="button" name="Submit" value="提交" onClick="check()"> 
          	<input type="button" name="Submit2" value="返回" onClick="history.back(-1)"></td> 
        </tr> 
		</FORM> 
      </table>  
<%end if%> 
<br> 
    <%if action="list" then%> 
      <table width="96%"  border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#aec3de"> 
        <tr align="center" bgcolor="#F2FDFF"> 
          <td colspan="4"  class="optiontitle">班级列表</td> 
        </tr> 
        <tr align="center"> 
          <td align="center"  bgcolor="#ebf0f7" width="5%">序号</td> 
          <td align="center"  bgcolor="#ebf0f7" width="75%">班级名称</td> 
          <td align="center"  bgcolor="#ebf0f7" width="20%">执行操作 <a href="Sclass.asp?action=add">添加班级</a></td> 
        </tr> 
		 
<% 
sql="select * from Sclass order by id asc" 
 set rs=server.createobject("adodb.recordset")  
 rs.open sql,conn,1,1 
 if not rs.eof then 
 proCount=rs.recordcount 
	rs.PageSize=10					  '定义显示数目 
     if not IsEmpty(Request("ToPage")) then 
	    ToPage=CInt(Request("ToPage")) 
		if ToPage>rs.PageCount then 
		   rs.AbsolutePage=rs.PageCount 
		   intCurPage=rs.PageCount 
		elseif ToPage<=0 then 
		   rs.AbsolutePage=1 
		   intCurPage=1 
		else 
		   rs.AbsolutePage=ToPage 
		   intCurPage=ToPage 
		end if 
	 else 
		rs.AbsolutePage=1 
		intCurPage=1 
	 end if 
	 intCurPage=CInt(intCurPage) 
	 For i = 1 to rs.PageSize 
	 if rs.eof then      
	 Exit For  
	 end if '利用for next 循环依次读出记录 
%> 
        <tr align='center' bgcolor='#FFFFFF' onmouseover='this.style.background="#ebf0f7"' onmouseout='this.style.background="#FFFFFF"'> 
		  <td width="5%"><%=rs("id")%></td> 
          <td align='left' ><%=rs("cname")%></td> 
          <td align='center' ><IMG src="images/edit.gif" align="absmiddle"><a href="?action=edit&id=<%=rs("id")%>">修改</a> | <IMG src="images/drop.gif" align="absmiddle"><a href="javascript:DoEmpty('?wor=del&id=<%=rs("id")%>&action=list&ToPage=<%=intCurPage%>')">删除</a></td> 
        </tr> 
<% 
rs.movenext  
next 
%> 
        <tr align="center" bgcolor="#ebf0f7"> 
          <td colspan="4"> 总共:<font color="#ff0000"><%=rs.PageCount%></font>页, <font color="#ff0000"><%=proCount%></font>个班级, 当前页:<font color="#ff0000"><%=intCurPage%> </font><%if intCurPage<>1 then%><a href="?action=list">首页</a>|<a href="?action=list&ToPage=<%=intCurPage-1%>">上一页</a>|<% end if 
if intCurPage<>rs.PageCount then %><a href="?action=list&ToPage=<%=intCurPage+1%>">下一页</a>|<a href="?action=list&ToPage=<%=rs.PageCount%>"> 最后页</a><% end if%></span></td> 
        </tr> 
<% 
else 
%> 
        <tr align="center" bgcolor="#ffffff"> 
         <td colspan="4">对不起!目前数据库中还没有添加班级!</td> 
        </tr> 
<% 
rs.close 
set rs=nothing 
end if 
%> 
      </table> 
	  <br> 
<%end if%> 
<%if action="edit" then 
set rs=server.createobject("adodb.recordset")  
sql="select * from Sclass where id="&Request("id") 
rs.open sql,conn,1,1 
if not rs.eof Then 
%> 
<br> 
	  <table width="96%"  border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#aec3de"> 
       <form name="add" method="post" action="Sclass.asp"> 
		<tr align="center" bgcolor="#F2FDFF"> 
		  <td colspan=2  class="optiontitle">修改班级</td> 
		</tr> 
		<tr align="center" bgcolor="#F2FDFF"> 
		  <td width="10%" align="right"> 班级名称:</td> 
		  <td align="left"><input name="cname" type="text" id="cname" value="<%=rs("cname")%>" size="50"></td> 
		</tr> 
		<tr align="center" bgcolor="#ebf0f7"> 
		  <td colspan="2"> 
		  <input type="hidden" name="action" value="yes"> 
          <input type="button" name="Submit2" value="提交" onClick="check()"> 
          <input type="button" name="Submit2" value="返回" onClick="history.back(-1)"> 
		  <input name="id" type="hidden" id="id" value="<%=rs("id")%>"> 
		  </td> 
		</tr> 
  		</FORM> 
  	</table> 
<% 
end if 
end if 
%>     
    </td> 
  </tr> 
</table> 
</body> 
</html>