admin_user_inc.asp

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

<%

'****************************************************
'名称:jstable
'功能:接收表单提交过来的值
'****************************************************
Sub jstable()
	a_UserId = che(request("a_UserId"))
	a_PassWord = md5(md5(che(request("a_PassWord"))))
	a_UserName = che(request("a_UserName"))

End Sub

'****************************************************
'名称:sqltable
'功能:将值提交入库
'参数:types 为空或 "add" 判断是修改记录还是添加记录
'****************************************************
Sub sqltable(types)
	If types="add" Then
		rs("a_UserId") = a_UserId
		rs("a_PassWord") = a_PassWord
	else
		If a_PassWord<>"" Then rs("a_PassWord") = a_PassWord
	End If
	rs("a_UserName") = a_UserName
End Sub


'****************************************************
'名称:listinfo
'功能:列表
'****************************************************
Sub listinfos()
%>
	<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>
		<td width="20%" class="art_tit">最后登陆时间</td>
		<td width="10%" class="art_tit">登陆次数</td>
		<td width="10%" class="art_tit">操作</td>
	</tr>
	<%
	sql="select id,a_UserId,a_UserName,a_lastdate,a_loads from Admin_User "&Sql_Condition&" order by id desc"
	strFileName="admin_user.asp?action="&action&"&types="&types&"&keyword="&keyword
	colnum="7"
	formaction="admin_user.asp?action=del"
	sqllist sql,colnum,strFileName,formaction 
	If outcom=True Then
	showContent
	showdelpages
	End If
	%>
	</TABLE>

<%
end sub 

'****************************************************
'名称:showContent
'功能:翻页列表输出
'****************************************************
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_user.asp?action=edit&id=<%=Rs(0)%>"><%=Rs(1)%></A></td>
			<td class="art_info2">&nbsp;<%=Rs(2)%></td>
			<td class="art_info2">&nbsp;<%=Rs(3)%></td>
			<td class="art_info2">&nbsp;<%=Rs(4)%></td>
			<td class="art_info2">&nbsp;<A HREF="admin_power.asp?id=<%=Rs(0)%>">权限编辑</A></td>
		</tr>
	<%
		i=i+1
		if i>=MaxPerPage then exit do
		rs.movenext
	loop
end Sub


'****************************************************
'名称:addinfos
'功能:添加信息
'****************************************************
Sub addinfos()
%>
	<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
	<FORM METHOD=POST ACTION="admin_user.asp?action=save">
	<TR><TD colspan=2 class=""art_tit zq""><A HREF="admin_user.asp?action=list">返回管理员列表</A></TD></TR>
	<%For i=0 To UBound(users)
		response.write "<TR><TD class=""zq"" width=""20%"">"&users(i)&"</TD><TD>&nbsp;"
		response.write "<INPUT TYPE="""
		If i=1 Then 
			response.write "a_PassWord"
		Else
			response.write "text"
		End If
		response.write """ NAME="""&userslm(i)&""">"
		response.write "</TD></TR>"
	Next
	%>
	<TR><TD> </TD><TD>&nbsp;<INPUT TYPE="submit" value="确认添加"></TD></TR>
	</FORM>
	</TABLE>
	
<%
end Sub

'****************************************************
'名称:editinfos
'功能:编辑信息
'****************************************************
Sub editinfos()
	If id="" Then id=session("admin_id")
	Sql_Lists="a_UserId,a_UserName,a_PassWord"
	Sql_tables="Admin_User"
	Sql_Conditions=" ID = "&id
	sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
	member_edit = connopen(sql)
	If isArray(member_edit)=False Then errormsg "参数错误"
	%>
	<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
	<FORM METHOD=POST ACTION="admin_user.asp?action=mod">
	<TR><TD colspan=2 class="art_tit zq"><A HREF="admin_user.asp?action=list">返回管理员列表</A></TD></TR>
	<%
	For i=0 To UBound(users)
		response.write "<TR><TD class=""zq"" width=""20%"">"&users(i)&"</TD><TD>&nbsp;"
		If i<>0 Then	
				response.write "<INPUT TYPE="""
				If i=2 Then 
					response.write "PassWord"
					response.write """ NAME="""&userslm(i)&""" value="""">"
				else
					response.write "text"
					response.write """ NAME="""&userslm(i)&""" value="""&member_edit(i,0)&""">"
				End If
		Else
			response.write member_edit(i,0)
		End If 
		response.write "</TD></TR>"
	Next
	%>
	<TR><TD> </TD><TD>&nbsp;<INPUT TYPE="submit" value="确认修改"><INPUT TYPE="hidden" NAME="id" value="<%=id%>"></TD></TR>
	</FORM>
	</TABLE>
	
<%
end sub 
%>