?? admin_add.asp
字號:
<!--#include file=cookies.asp-->
<!--#include file=conn.asp-->
<!--#include file=md5.asp-->
<html><head><link href="css.css" rel="stylesheet" type="text/css">
<title>祥星送貨單打印系統--管理員添加</title></head>
<body>
<table width="100%" class="inputb"><tr><td align=center>管理員設置</td></tr></table>
<br>
<%
Set rs=Server.createobject("adodb.recordset")
Sql="Select * from [admin]"
rs.open Sql,conn,1,3
response.write"<form name=myform action=admin_add.asp?action=adduser method=post>"
response.write"<table border=1 width=100% cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff><tr bgcolor=#f1f1f1><td colspan=3 align=center>添加管理員</td></tr>"
response.write"<tr bgcolor=#f1f1f1><td align=center>姓名：<input name=name type=text class=inputa></td><td align=center>密碼：<input name=password type=text class=inputa></td><td align=center><input name=submit type=submit class=inputb value=添加></td></tr>"
response.write"</table></form><br>"
response.write"<table border=1 width=100% cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff><tr bgcolor=#f1f1f1><td colspan=3 align=center>刪除管理員</td></tr>"
while not rs.eof
response.write"<tr bgcolor=#f1f1f1><td align=center>編號："&rs("id")&"</td>"
response.write"<td align=center>"&rs("name")&"</td>"
response.write"<td align=center><a href=admin_edit.asp?id="&rs("id")&">修改</a><a href=admin_add.asp?action=deluser&id="&rs("id")&">刪除</a></td></tr>"
rs.movenext
wend
rs.close
select case request("action")
case "adduser"
Addadmin
case "deluser"
Deladmin
end select
Sub Addadmin()
name=trim(replace(request.form("name"),"'",""))
password=trim(replace(request.form("password"),"'",""))
if name="" or password="" then
response.end
end if
Sqlstr="Insert Into [admin] ([name],[pwd]) values ('"&name&"','"&md5(password)&"')"
conn.execute(sqlstr)
response.redirect"admin_add.asp"
end Sub
Sub Deladmin()
id=request("id")
if not isnumeric(id) or id="" then
response.write"參數錯誤！"
response.end
else
sql="delete * from [admin] where id="&id
conn.execute(sql)
response.redirect"admin_add.asp"
end if
end Sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -