<% db_path = "#space.asp" Set conn_Left= Server.CreateObject("ADODB.Connection") conn_Leftstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path) conn_Left.Open conn_Leftstr %> <% Set rs_Left = Server.CreateObject ("ADODB.Recordset") sql="select * from Addr_Group where Session_Id='"&Session("User_Account")&"'" rs_Left.Open sql,conn_Left,1,1 %>

通讯录分类

<% Do Until rs_Left.EOF Response.Write("

"&rs_Left("Group_Title")&"

") rs_Left.MoveNext Loop %>

分类管理

<% rs_Left.close Set rs_Left = Nothing conn_Left.close set conn_Left=Nothing %>