admin_members.asp

) 25175学校通用网络办公系统 2) 25175新闻系统 3) 25175网站搜索引擎 4) 25175公司量化考核系统 5) 25175学校成绩管理系统 6) 25

<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/language.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<!--#include file="admin_Members_inc.asp"-->
<%
Login_Judge
nowtit="报名"
powerid=115


If action="list" Then
	Ispower powerid & "1"
	restit nowtit,infotit(0)
	const MaxPerPage=15
	listinfos
ElseIf action="lookinfo" Then
	Ispower powerid & "1"
	restit nowtit,infotit(1)
	editinfos
ElseIf action="mod" Then
	Ispower powerid & "2"
	Call jstable
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [Reg_Userinfo] WHERE id="&id
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
	Call sqltable("mod")
	rs.Update
	Else
	errormsg "参数错误"
	End If
	rs.close
	rightmsg "admin_Members.asp?action=lookinfo&id="&id,""
ElseIf action="save" Then
	Ispower powerid & "2"
	Call jstable
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [Reg_Userinfo] WHERE id="&id
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
	Call sqltable("mod")
	rs.Update
	Else
	errormsg "参数错误"
	End If
	rs.close
	rightmsg "admin_Members.asp?action=lookinfo&id="&id,""
ElseIf action="del" Then
	Ispower powerid & "3"
	if id="" then errormsg "参数错误！"
	set dels=conn.execute("delete from Reg_Userinfo where id in ("&id&")")
	set dels=Nothing 
	rightmsg "admin_Members.asp?action=list",""
End If


%>
<!--#include file="admin_page_footer.asp"-->