bjedit.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">
<%
      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 bjid,bjname,njname,bjstudent,bjteacher from bj where bjid="&request("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=<%=request("id")%>">
  <table width="100%" border="0" bgcolor="f7f7f7">
    <tr>
      <td width="11%">一级分类ID</td>
      <td width="6%"><input name="did" type="text" disabled="disabled" id="did" value="<%=rs("bjid")%>" size="3"></td>
      <td width="13%">一级分类名</td>
      <td width="67%"><input name="njname" type="text" id="njname" value="<%=rs("njname")%>" size="6"> 
        二级分类名 
          <input name="bjname" type="text" id="bjname" value="<%=rs("bjname")%>" size="6">
          人数
          <input name="bjstudent" type="text" id="bjstudent" value="<%=rs("bjstudent")%>" size="6"></td>
    </tr>
    
    <tr>
      <td height="65" 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")),"'","")
		  bjname=replace(trim(request.form("bjname")),"'","")
		  bjstudent=replace(trim(request.form("bjstudent")),"'","")
		 
		  if bjname="" or len(bjname)>20 then
		    Response.Write "<script>alert(""对不起，二级分类名不能为空且在20个字符以内!"");window.location='Javascript:history.back()';</script>"
		  else
	      conn.execute("update bj set njname='"&njname&"',bjname='"&bjname&"',bjstudent='"&bjstudent&"' where bjid="&request("id")&"")
     Response.Write "<script>alert(""编辑二级分类成功!"");window.location='Javascript:history.back()';</script>"
	      end if
	  end sub
	  
	  sub del()
	      conn.execute("delete from bj where bjid="&request("id")&"")
           Response.Write "<script>alert(""删除一个二级分类成功!"");window.location='Javascript:history.back()';</script>"
	  end sub
%></td>
                  </tr>
                 </table></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>