?? adminusereditsave.asp
字號:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%>
<%
userid=trim(request("userid"))
pwd=trim(request("pwd"))
tname=trim(request("tname"))
email=trim(request("email"))
nianji=trim(request("nianji"))
banji=trim(request("banji"))
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from tbuser where userid="&userid
rs.open sql,conn,1,3
rs("pwd")=pwd
rs("tname")=tname
rs("email")=email
username=rs("username")
if nianji<> rs("nianji") then
flag=1
end if
if banji<> rs("banji") then
flag=1
end if
rs("nianji")=nianji
rs("banji")=banji
rs.update
if flag=1 then
set rs2=server.createobject("adodb.recordset")
sql2="select * from tbistest where username='"&username&"'"
rs2.open sql2,conn,3,2
do while not rs2.eof
rs2.delete
rs2.update
rs2.movenext
loop
set rs3=server.createobject("adodb.recordset")
sql3="select * from tbscore where username='"&username&"'"
rs3.open sql3,conn,3,2
do while not rs3.eof
rs3.delete
rs3.update
rs3.movenext
loop
set rs8=server.createobject("adodb.recordset")
sql8="select * from userdataread where username='"&username&"'"
rs8.open sql8,conn,3,2
do while not rs8.eof
rs8.delete
rs8.update
rs8.movenext
loop
set rs7=server.createobject("adodb.recordset")
sql7="select * from userdata where username='"&username&"'"
rs7.open sql7,conn,3,2
do while not rs7.eof
rs7.delete
rs7.update
rs7.movenext
loop
end if
if flag=1 then
Response.Redirect "adminuseredit.asp?userid="&userid&"&error=修改成功!"
else
Response.Redirect "adminuseredit.asp?userid="&userid
end if
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -