<%
if Request("action")="edit" Then
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
%>