www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/admin_res_yea.asp

    <!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_res_yea_inc.asp"-->
<%
res w3chead(HTMLother),1
nowtit="年届"
Login_Judge
powerid=120
Dim lj
Dim ljs(0)
ljs(0)="年届"
Dim ljslm(0)
ljslm(0)="lj"
action=che(request("action"))
id=che(request("id"))

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
	If lj = "" Then errormsg "参数错误！"
	Recheck "res_lj",id,"lj",lj,"年届"
	sql=Sqlinfo("","res_lj","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
	If lj = "" Then errormsg "参数错误！"
	Recheck "res_lj",id,"lj",lj,"年届"
	sql=Sqlinfo("","res_lj","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_lj",id
	sqldel "res_info","cla_id in ("&Sqlinfo("id","res_cla","lj_id in ("&id&")")&")"
	sqldel "res_cla","lj_id in ("&id&")"
	sqldel "res_cou","lj_id in ("&id&")"
	sqldel "admin_stu","lj_id in ("&id&")"
	rightmsg "?action=list",""
End If
res footer(1),0

%>