www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/admin_res_Pro.asp
<!--#include file="../conn.asp"--> <!--#include file="../inc/inc.asp"--> <!--#include file="inc/inc.asp"--> <!--#include file="common/admin_res_pro_inc.asp"--> <% res w3chead(HTMLother),1 nowtit="专业" Login_Judge powerid=122 Dim Col_id,pro,con action=che(request("action")) id=che(request("id")) Col_id = che(request("Col_id")) Dim pros(5) pros(0)="所在系所" pros(1)="专业名称" pros(2)="简介说明" Dim proslm(5) proslm(0)="Col_id" proslm(1)="pro" proslm(2)="con" If Col_id="" Then Col_id=0 If action="list" Then Ispower powerid & "1" const MaxPerPage=15 restit nowtit,infotit(0) nowmenu listinfos ElseIf action="add" Then Ispower powerid & "2" restit nowtit,infotit(1) nowmenu addinfos ElseIf action="save" Then Ispower powerid & "2" jstable isn Col_id,"系所",1 isn pro,"专业",1 If IsNumeric(Col_id)=False Or Col_id="0" Then errormsg "参数错误!" sql=Sqlinfo("*","res_pro","id=0","","","") set rs=server.createobject("adodb.recordset") rs.Open Sql, Conn, 1, 3 rs.AddNew sqltable "add" rs.Update rs.close rightmsg "?action=list","" ElseIf action="edit" Then Ispower powerid & "3" restit nowtit,infotit(2) nowmenu editinfos ElseIf action="mod" Then Ispower powerid & "3" jstable isn Col_id,"系所",1 isn pro,"专业",1 If IsNumeric(Col_id)=False Or Col_id="0" Then errormsg "参数错误!" If IsNumeric(id)=False Or id="0" Then errormsg "参数错误!" sql=Sqlinfo("*","res_pro","id="&id,"","","") set rs=server.createobject("adodb.recordset") rs.Open Sql, Conn, 1, 3 If Not rs.Eof Then sqltable "mod" rs.Update Else errormsg "参数错误" End If rs.close rightmsg "?action=list","" ElseIf action="del" Then Ispower powerid & "4" isn id,"id",1 sqldel "res_pro",id sqldel "res_info","cla_id in (select id from res_cla where pro_id in ("&id&"))" sqldel "res_cla","pro_id in ("&id&")" sqldel "res_cou","pro_id in ("&id&")" sqldel "admin_stu","pro_id in ("&id&")" rightmsg "?action=list","" End If res footer(1),0 %>