<%
If Session("User_Account")="" Then
Call AlertUrl("请先登陆！","Index.asp")
Response.End
End if
%>
<%
if Request("action")="add" Then
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from Memo_Info"
rs.open sql,conn,1,3
rs.addnew
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("Session_Id")=Session("User_Account")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Call AlertUrl("添加成功！","MemoList.asp")
Response.End
End if
%>
用户管理中心 -