<%
If Session("User_Account")="" Then
Call AlertUrl("请先登陆！","Index.asp")
Response.End
End if
%>
<%
Dim action,group
action=Request("action")
group=Request("group")
if action="add" Then
if Request.Form("f_Addr_Group")="" Then
Call AlertUrl("请先添加分类","AddrGroup.asp")
Response.End
End if
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from Addr_Info"
rs.open sql,conn,1,3
rs.addnew
rs("f_Addr_Name")=Trim(Request.Form("f_Addr_Name"))
rs("f_Addr_NickName")=Trim(Request.Form("f_Addr_NickName"))
rs("f_Addr_Group")=Trim(Request.Form("f_Addr_Group"))
rs("f_Addr_Phone")=Trim(Request.Form("f_Addr_Phone"))
rs("f_Addr_Handset")=Trim(Request.Form("f_Addr_Handset"))
rs("f_Addr_Qq")=Trim(Request.Form("f_Addr_Qq"))
rs("f_Addr_Email")=Trim(Request.Form("f_Addr_Email"))
rs("f_Addr_Addr")=Trim(Request.Form("f_Addr_Addr"))
rs("f_Addr_Memo")=Replace(Server.HtmlEncode(Trim(Request.Form("f_Addr_Memo"))),VbCrLf," ")
rs("Session_Id")=Session("User_Account")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Call AlertUrl("添加成功！","AddrList.asp?group="&Request("group")&"")
Response.End
End if
%>
用户管理中心 -