📄 admin_manage.asp

📁 主要销售电脑和it　具有　购物车　和　留言版　和服务器销售　等具体功能　
💻 ASP
字号:
<%
if session("AdminName")="" then
    response.redirect "index.asp"
end if
%>
<!--#include file="inc/conn.inc"-->

<%dim action
Action=request.QueryString("Action")%>
<% if Action="Save" then

AdminName=trim(request.Form("AdminName")) 
AdminPass=md5(trim(request.Form("AdminPass")))

if AdminName="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br>用户名不能为空！"
end if
if AdminPass="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br>密码不能为空！"
end if

Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open "Select * From admin",Conn,1,3
Rs.AddNew
Rs("AdminName")=AdminName
Rs("AdminPass")=AdminPass
Rs.Update
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('添加完成！');" & Chr(13)
		response.write "window.document.location.href='admin_manage.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
end if
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin_style.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="50%" border="1" align="center" cellpadding="3" cellspacing="0"  bordercolorlight="#326598" bordercolordark="#ffffff">
  <tr>
    <td background="image/tile_sub.gif">　添加管理员</td>
  </tr>
  <tr>
    <td height="134" align="center"><table width="41%" height="96"  border="0" cellpadding="0" cellspacing="0">
      <form name="form1" method="post" action="?Action=Save"><tr>
        <td width="23%">账号：</td>
        <td width="77%"><input type="text" name="AdminName" class="input"></td>
      </tr>
      <tr>
        <td>密码：</td>
        <td><input type="password" name="AdminPass" class="input"></td>
      </tr>
      <tr align="center">
        <td colspan="2">
      <input type="submit" name="Submit" value="提交" class="input">　
      <input type="reset" name="Submit" value="重置" class="input">
    </td>
        </tr></form>
    </table></td>
  </tr>
</table>
<br><br>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from admin"
rs.open sqltext,conn,1,1
%>
<table width="50%" border="1" align="center" cellpadding="3" cellspacing="0"  bordercolorlight="#326598" bordercolordark="#ffffff">
  <tr>
    <td width="10%" align="center" background="image/tile_sub.gif">序号</td>
    <td width="42%" background="image/tile_sub.gif">　名称</td>
    <td width="48%" colspan="2" align="center" background="image/tile_sub.gif">操作</td>
  </tr>
<%
if not rs.eof then
do while not rs.eof
%>  
  <tr>
    <td align="center"><%=rs("id")%></td>
    <td>　<%=rs("AdminName")%></td>
    <td align="center"><a href="admin_modify.asp?id=<%=rs("id")%>&page=<%=request("page")%>">修 改</a></td>
    <td align="center"><a href="admin_del.asp?id=<%=rs("id")%>">删 除</a></td>
  </tr>
<%
rs.movenext
loop
end if
%>

</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -