admin_res_pro.asp

da jia lai kan kan hao dong dong

<!--#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
%>