admin_members.asp

来自「学生报名管理系统 一个基于asp的网站」· ASP 代码 · 共 55 行

<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_Members_inc.asp"-->
<%
res w3chead(HTMLother),1
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"
	jstable
	set rs=server.createobject("adodb.recordset")
	sql=Sqlinfo("*","Reg_Userinfo","id="&id,"","","")
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
		sqltable "mod" 
		rs.Update
	Else
		errormsg "参数错误"
	End If
	rs.close
	rightmsg "?action=lookinfo&id="&id,""
ElseIf action="save" Then
	Ispower powerid & "2"
	jstable
	set rs=server.createobject("adodb.recordset")
	sql=Sqlinfo("*","Reg_Userinfo","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 "?action=lookinfo&id="&id,""
ElseIf action="del" Then
	Ispower powerid & "3"
	isn id,"id",1
	sqldel "Reg_Userinfo",id
	rightmsg "?action=list",""
End If
res footer(1),0
%>