") rs.update rs.close set rs=nothing conn.close set conn=nothing Call AlertUrl("修改成功！","FavList.asp") Response.End End if if Left(Request.Form("f_Fav_Url"),7)<>"http://" Then Call AlertBack("请填上http://") Response.End End if set rs=Server.CreateObject("ADODB.recordset") sql="select * from Fav_Info where Url_Id=" & Request("id") rs.open sql,conn,3,3 rs("f_Fav_Url")=Trim(Request.Form("f_Fav_Url")) rs("f_Fav_Title")=Trim(Request.Form("f_Fav_Title")) rs("Url_Share")=Trim(Request.Form("Url_Share")) rs("f_Fav_Group")=Trim(Request.Form("f_Fav_Group")) rs("f_Fav_Memo")=Replace(Server.HtmlEncode(Trim(Request.Form("f_Fav_Memo"))),VbCrLf,"
") rs.update rs.close set rs=nothing conn.close set conn=nothing Call AlertUrl("修改成功！","FavList.asp") Response.End End if if Request("action")="del" Then set rs=Server.CreateObject("adodb.recordset") rs.open "select * from Fav_Info where Url_Id=" & Request("id"),conn,1,3 rs.delete rs.close Response.Redirect "FavList.asp" Response.End End if set rs=Server.CreateObject("ADODB.recordset") sql="select * from Fav_Info where Url_Id=" & Request("id") rs.open sql,conn,1,1 %>