admin_cert_type.asp

asp学生信息管理系统

<!--#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"-->
<%
Login_Judge
Dim cert_cont,cert_name
Dim sex
action=che(request("action"))
id=che(request("id"))
nowtit="证件类别"
Dim members(1)
members(0)="证件名称"
members(1)="证件说明"

Dim memberslm(1)
memberslm(0)="cert_name"
memberslm(1)="cert_cont"

If action="list" Then
	Ispower 1111
	restit nowtit,infotit(0)
		%>
		<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
	  <tr align="center"> 
			<td width="5%" class="art_tit">选</td>
		<td width="15%" class="art_tit">证件名称</td>
		<td width="15%" class="art_tit">证件说明</td>
	  </tr>
		<%

		const MaxPerPage=10
		sql="select id,cert_name,cert_cont from cert_type "&Sql_Condition&" order by id desc"
		strFileName="admin_cert_type.asp?action="&action&"&types="&types&"&keyword="&keyword
		colnum="3"
		formaction="admin_cert_type.asp?action=del"
		sqllist sql,colnum,strFileName,formaction 
		If outcom=True Then
		showContent
		showdelpages
		End If
	%>
	</table>
	<H1>&nbsp;</H1>
<%	
ElseIf action="add" Then
	Ispower 1112
	restit nowtit,infotit(1)
	%>
	<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
	<FORM METHOD=POST ACTION="admin_cert_type.asp?action=save">
	<TR><TD colspan=2 class="art_tit zq"><A HREF="admin_cert_type.asp?action=list">返回<%=nowtit%>列表</A></TD></TR>
		<%For i=0 To UBound(members)
			response.write "<TR><TD class=""zq"" width=""20%"">"&members(i)&"</TD><TD>&nbsp;"
			response.write "<INPUT TYPE=""text"" NAME="""&memberslm(i)&""">"
			response.write "</TD></TR>"
		Next
		%>
		<TR>
		<TD> </TD>
		<TD>&nbsp;<INPUT TYPE="submit" value="确认添加"></TD>
	</TR>
	</FORM>
	</TABLE>
	<H1>&nbsp;</H1>
<%
ElseIf action="save" Then
	Ispower 1112
	Call jstable
	If cert_name = "" Then errormsg "参数错误"
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [cert_type] WHERE id=0"
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	Call sqltable("add")
	rs.Update
	rs.close
	rightmsg "admin_cert_type.asp?action=list",""

ElseIf action="edit" Then 
	Ispower 1113
	Sql_Lists="cert_name,cert_cont"
	Sql_tables="cert_type"
	Sql_Conditions=" ID = "&id
	sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
	member_edit = connopen(sql)
	restit nowtit,infotit(2)
	%>
	<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
	<FORM METHOD=POST ACTION="admin_cert_type.asp?action=mod">
	<TR><TD colspan=2 class="art_tit zq"><A HREF="admin_cert_type.asp?action=list">返回<%=nowtit%>列表</A></TD></TR>
		<%
		If isArray(member_edit) Then
			For i=0 To UBound(members)
				response.write "<TR><TD class=""zq"" width=""20%"">"&members(i)&"</TD><TD>&nbsp;"
				response.write "<INPUT TYPE="""
				response.write "text"
				response.write """ NAME="""&memberslm(i)&""" value="""&member_edit(i,0)&""">"
				response.write "</TD></TR>"
			Next
		Else
			errormsg "参数错误"
		End If

		%>
	<TR>
		<TD> </TD>
		<TD>&nbsp;<INPUT TYPE="submit" value="确认修改"><INPUT TYPE="hidden" NAME="id" value="<%=id%>"></TD>
	</TR>
	</FORM>
	</TABLE>
	<H1>&nbsp;</H1>
<%

ElseIf action="mod" Then
	Ispower 1113
	Call jstable
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [cert_type] 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_cert_type.asp?action=list",""

ElseIf action="del" Then
	Ispower 1114
if id="" then errormsg "参数错误！"
set dels=conn.execute("delete from cert_type where id in ("&id&")")
set dels=Nothing 
rightmsg "admin_cert_type.asp?action=list",""

End If

sub showContent
	dim i
	i=0
	do while not rs.eof
		%>
		<tr align="center"> 
		<td class="art_info2">
			<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px"> 
		</td>
		<td class="art_info2">&nbsp;<A HREF="admin_cert_type.asp?action=edit&id=<%=Rs(0)%>"><%=Rs(1)%></A></td>
		<td class="art_info2">&nbsp;<%=Rs(2)%></td>
		</tr>
	<%	i=i+1
		if i>=MaxPerPage then exit do
		rs.movenext
	loop%>	
<%
end Sub

Sub jstable()
	cert_cont = che(request("cert_cont"))
	cert_name = che(request("cert_name"))
End Sub

Sub sqltable(types)
	rs("cert_cont") = cert_cont
	rs("cert_name") = cert_name
End Sub
%>
<!--#include file="admin_page_footer.asp"-->