classedit.asp

学校成绩查询系统是一个非常好的软件请大家试试

<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="Admin_IsLogin.asp" -->
<!--#include file="dataconn.asp"-->
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../inc/admin_style.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
<br><br><br>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td width="600" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
               <tr>
                <td><table width="100%" align="center"  border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="600">
 
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="204" valign="top">
<%
id=request.QueryString("id")
      select case request("action")
	  case "edit"
	      call edit()
	  case "del"
	      call del()
	  case "save"
	      call save()
	  end select
	  
	  sub edit()
	      set rs=conn.execute("select njid,njname from nj where njid="&id&"")
		  if rs.eof and rs.bof then
		  Response.Write "<script>alert(""对不起，不存在该一级分类"");window.location='Javascript:history.back()';</script>"
		  response.end
		  else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
                  <tr>
                    <td bgcolor="#336699"><table width="100%" cellpadding=4 cellspacing=1>
                      <tr>
                        <td width="93%" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=1,startColorStr=#3b839f,endColorStr=#eff4ff)" colspan=2><span class="STYLE1">一级分类修改</a></span></td>
                      </tr>
                    </table></td>
                  </tr>
                </table>
<form name="form1" method="post" action="?action=save&id=<%=id%>">
  <table width="100%" border="0">
    <tr>
      <td>一级分类ID</td>
      <td><input name="did" type="text" disabled="disabled" id="did" value="<%=rs("njid")%>" size="10"></td>
      <td>一级分类名</td>
      <td><input name="njname" type="text" id="njname" value="<%=rs("njname")%>"></td>
    </tr>
    <tr>
      <td height="100" colspan="4" valign="bottom"><div align="center">
        <p>
          <input type="submit" name="Submit3" value="编辑">
          <input type="reset" name="Submit5" value="重置">
              <input type="button" name="Submit4" value="返回" onClick="javascript:history.go(-1)">
          </p>
        </div></td>
      </tr>
  </table>
</form>
<%	  
          end if
		  set rs=nothing
	  end sub
	  
	  sub save()
	      dim njname
		  njname=replace(trim(request.form("njname")),"'","")
		  if njname="" or len(njname)>20 then
		    Response.Write "<script>alert(""对不起，一级分类名不能为空且在20个字符以内!"");window.location='Javascript:history.back()';</script>"
		  else
		      set rs=conn.execute("select njid from nj where njname='"&njname&"' and njid<>"&id&"")
			  if not(rs.eof and rs.bof) then
 Response.Write "<script>alert(""对不起，数据库已存在同名一级分类!"");window.location='Javascript:history.back()';</script>" 
 response.end
			  end if
			  set rs=nothing
		  end if
		  
	      conn.execute("update nj set njname='"&njname&"' where njid="&id&"")
     Response.Write "<script>alert(""编辑一级分类成功!"");window.location='class_setup.asp';</script>"
	  end sub
	  
	  sub del()
	  njname=request.QueryString("njname")
	      conn.execute("delete from nj where njid="&id&"")
		  conn.execute("delete from bj where njname='"&njname&"'")
           Response.Write "<script>alert(""删除一个一级分类成功!"");window.location='class_setup.asp';</script>"
	  end sub
%></td>
                  </tr>
                 </table></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>