<%
If Session("User_Account")="" Then
Call AlertUrl("请先登陆！","Index.asp")
Response.End
End if
%>
<%
if Request("action")="edit" Then
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from Memo_Info where f_Memo_Id=" & Request("id")
rs.open sql,conn,3,3
rs("f_Memo_Title")=Trim(Request.Form("f_Memo_Title"))
rs("f_Memo_Top")=Request.Form("f_Memo_Top")
rs("f_Memo_AddDate")=Request.Form("f_Memo_AddDate")
rs("f_Memo_Memo")=Replace(Server.HtmlEncode(Trim(Request.Form("f_Memo_Memo"))),VbCrLf," ")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Call AlertUrl("修改成功！","MemoList.asp")
Response.End
End if
if Request("action")="del" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from Memo_Info where f_Memo_Id=" & Request("id"),conn,1,3
rs.delete
rs.close
Call AlertUrl("删除成功！","MemoList.asp")
Response.End
End if
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from Memo_Info where f_Memo_Id=" & Request("id")
rs.open sql,conn,1,1
%>
用户管理中心 - 秘密记事本
记事本主要用于记录一些重要资料和事件备忘等，记事本信息不对外公开。
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>