save_admin.asp

日记本（多用户版）V3.0 主要功能： 1、日记本基本功能：添加、修改日记等。 2、日记加密：当日记添加时

<!--#include file="conn.asp"-->

<%
set rs=server.CreateObject ("ADODB.Recordset")
    rs.open "select * from admin where userid="&session("userid"),conn,3
    if rs("pwd")<>request("oldpass") then
%>

<script language=vbscript>
  MsgBox "旧密码错误，请从新输入！"
  location.href = "javascript:history.back()"
</script>

<%
else
passwd=trim(request("passwd"))
nickname=trim(request("nickname"))
readpwd=trim(request("readpwd"))
diary_name=trim(request("diary_name"))
content=trim(request("content"))
pic=request("type")
suiji=request("suiji")
question=request("question")
answer=request("answer")
leibie=request("leibie")
address=request("address")
pinglunlock=request("pinglunlock")


if not rs("userid")=session("userid") then 
%>

<script language=vbscript>
  MsgBox "呵呵~~~！你不是管理员吧！不要乱来噢~~~！"
  location.href = "javascript:history.back()"
</script>

<%
else
set rs=server.createobject("ADODB.recordset") 
rs.Open "SELECT * FROM admin where userid="&session("userid"),conn,1,3 

rs("title")=diary_name
rs("infor")=content
rs("picshow")=suiji
rs("readpwd")=readpwd
rs("leibie")=leibie
rs("address")=address
rs("say")=pinglunlock
if passwd<>"" then  rs("pwd")=passwd
rs("nickname")=nickname
rs("pic")=pic
rs("question")=question
if answer<>"" then  rs("answer")=answer

rs.update 
rs.close 

response.redirect "diary.asp?user="&session("username")

end if

end if
%>