?? saveuser.asp
字號:
<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.redirect "admin.asp"
else
if session("flag")>1 then
response.write "<br><p align=center>您沒有操作的權限</p>"
response.end
end if
end if
oldpin=LCase(Request("oldpin"))
newpin=LCase(Request("newpin"))
manager=LCase(Request("manager"))
oldmanager=Request("oldmanager")
submit=Trim(Request("submit"))
'//進行修改操作
set rs = server.createobject("adodb.recordset")
if submit="修改" then
'//修改用戶密碼
sql="select * from admin where username='"&oldmanager&"'"
rs.open sql,conn,3,3
rs("username")=manager
rs("password")=newpin
rs.update
rs.close
set rs=nothing
' sql="update Admin set username='"&manager&"',Password='"&newpin&"' where username='"&oldmanager&"'"
' conn.Execute sql
conn.Close
set conn=Nothing
response.redirect "adminuser.asp"
end if
'//進行刪除操作
if submit="刪除" then
sql="delete from Admin where username='"&oldmanager&"'"
conn.Execute sql
conn.Close
set conn=Nothing
response.redirect "adminuser.asp"
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -