<% If Session("User_Account")="" Then Call AlertUrl("请先登陆！","Index.asp") Response.End End if %> <% Dim action,group action=Request("action") group=Request("group") if Session("User_Account")<>"" Then if Request("f_Fav_Group")="" Then Call AlertUrl("请先添加分类","FavGroup.asp") Response.End End if set rs=Server.CreateObject("ADODB.recordset") sql="select * from Fav_Info" rs.open sql,conn,1,3 rs.addnew rs("f_Fav_Url")=Trim(Request("Url")) rs("f_Fav_Title")=Trim(Request("Title")) rs("Session_Id")=Session("User_Account") rs.update rs.close set rs=nothing conn.close set conn=nothing Call AlertUrl("添加成功！","FavList.asp?group="&Request("group")&"") Response.End End if %>