企业管理

开发平台：

ASP/ASPX

56770_admin.asp：源码内容

							<!--#include file="conn.asp"-->
<%
call admintop()
if session("admin_name")="" then
	adminflag()	
else
dim action, s_id,s_paixu
s_id=request.QueryString("s_id")
action=request("action")
s_paixu=request("s_paixu")
select case action
case "add"
if trim(request("s_name"))<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from 56770_admin", conn, 1, 3
rs.AddNew
rs("a_name")=trim(request("s_name"))
rs("a_pass")=trim(request("s_paixu"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "56770_admin.asp"
response.end
end if
'----------------------------------------
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 56770_admin where a_id=" &s_id, conn, 1, 3
rs("a_name")=request("s_name")
rs("a_pass")=request("s_paixu")
rs.update
rs.close
response.Redirect "56770_admin.asp"
response.end
set rs=nothing
'--------------------------------
case "del"
conn.execute "delete from 56770_admin where a_id="&s_id
response.Redirect "56770_admin.asp"
response
end select
%>
<table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
  <tr>
  <td>
   <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  <tr>
 <td height=15  align=center colspan=17 class=classtop>管理员管理</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 56770_admin order by a_id desc", conn, 1, 1
dim i
i=rs.recordcount%>
<tr class=classtop1>
<td  height="15" align="center">管理员名</td>
<td  height="15" align="center">管理员密码</font></td>
<td  height="15" align="center">操作</td>
</tr>
<%if rs.eof and rs.bof then
response.write "还没有数据，请添加！"
else
        do while not rs.eof%>
<tr>
<form name="form1" method="post" action="56770_admin.asp?action=edit&s_id=<%=rs("a_id")%>">
<td class="classtd">
<div align="center">
<input name="s_name" type="text" id="s_name" value="<%=trim(rs("a_name"))%>" size="25">
</div>
</td>
<td class="classtd">
<div align="center">
<input name="s_paixu" type="text" id="s_paixu" value=<%=rs("a_pass")%>  size="25">
</div>
</td>
<td class="classtd">
<div align="center">
<input type="submit" name="Submit" value="修 改">
<input type="button" name="Submit2" value="删 除" onClick="location.href='56770_admin.asp?action=del&s_id=<%=rs("a_id")%>'">
</div>
</td>
</form>
</tr>
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
<form name="form2" method="post" action="56770_admin.asp?action=add">
<tr>
<td height="15" class="classtd">
<div align="center">
<input name="s_name" type="text" id="s_name" size="25">
</div>
</td>
<td class="classtd">
<div align="center">
<input name="s_paixu" type="text" id="s_paixu" value=0 size="25">
</div>
</td>
<td class="classtd">
<div align="center">
<input type="submit" name="Submit2" value="添 加">
</div>
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
<%end if%>

						