admin_res_cla.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_cla_inc.asp"-->
<%
HTMLother= script("admin_res","")
res w3chead(HTMLother),1
nowtit="班级"
Login_Judge
powerid=123
Dim lj_id,Col_id,pro_id,cla,con

action=che(request("action"))
id=che(request("id"))
pro_id = che(request("pro_id"))
Col_id = che(request("Col_id"))
lj_id = che(request("lj_id"))
If Not IsNumeric(lj_id) Then lj_id=0
If Not IsNumeric(Col_id) Then Col_id=0
If Not IsNumeric(pro_id) Then pro_id=0
Dim clas(5)
clas(0)="年届"
clas(1)="系所"
clas(2)="专业"
clas(3)="班级"
clas(4)="备注"
Dim claslm(5)
claslm(0)="lj_id"
claslm(1)="Col_id"
claslm(2)="pro_id"
claslm(3)="cla"
claslm(4)="con"
If action="list" Then
	Ispower powerid & "1"
	const MaxPerPage=10
	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
	If cla="" Then errormsg "项目填写不完整111!"
	If lj_id="0" Then errormsg "请选择年届!"
	If Col_id="0" Then errormsg "请选择系所!"
	If pro_id="0" Then errormsg "请选择专业!"
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [res_cla] WHERE id=0"
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	sqltable "add" 
	rs.Update
	rs.close
	rightmsg "admin_res_cla.asp?action=list",""
ElseIf action="edit" Then 
	Ispower powerid & "3"
	restit nowtit,infotit(2)
	nowmenu
	editinfos
ElseIf action="mod" Then
	Ispower powerid & "3"
	jstable
	If cla="" Then errormsg "项目填写不完整!"
	If IsNumeric(id)=False Or id="0" Then errormsg "参数错误!"
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [res_cla] WHERE id="&id
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
		sqltable "mod"
		rs.Update
	Else
		errormsg "参数错误"
	End If
	rs.close
	rightmsg "admin_res_cla.asp?action=list",""

ElseIf action="del" Then
	Ispower powerid & "4"
	isn id,"id",1
	sqldel "res_cla",id
	rightmsg "?action=list",""
End If
res footer(1),0
%>