<%
If Session("User_Account")="" Then
Call AlertUrl("请先登陆！","Index.asp")
Response.End
End if
%>
<%
Dim action,group
action=Request("action")
group=Request("group")
if action="edit" 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 where f_Addr_Id=" & Request("id")
rs.open sql,conn,1,3
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
if Request("action")="del" Then
set rs=Server.CreateObject("adodb.recordset")
sql="select * from Addr_Info where f_Addr_Id=" & Request("id")
rs.open sql,conn,1,3
rs.delete
rs.close
set rs=nothing
conn.close
set conn=nothing
Call AlertUrl("删除成功！","AddrList.asp")
Response.End
End if
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from Addr_Info where f_Addr_Id=" & Request("id")
rs.open sql,conn,1,1
%>
Netsoz.Com用户管理中心 - 通讯录