<%
If Session("User_Account")="" Then
Call AlertUrl("请先登陆！","Index.asp")
Response.End
End if
%>
<%
Dim action,group
action=Request("action")
group=Request("group")
if action="add" Then
if Left(Request("f_Fav_Url"),8)="https://" then
set rst=nothing
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("f_Fav_Url"))
rs("f_Fav_Title")=Trim(Request("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("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
if Left(Request("f_Fav_Url"),7)<>"http://" Then
Call AlertBack("请填上http://")
Response.End
End if
if Request("f_Fav_Group")="" Then
Call AlertUrl("请先添加分类","FavGroup.asp")
Response.End
End if
set rst=conn.execute("Select * from Fav_Info where Session_Id='"&Session("User_Account")&"' and f_Fav_Url='"&Request("f_Fav_Url")&"'")
if Not rst.eof then
set rst=nothing
Call AlertUrl("该网址已添加！","FavGroup.asp")
Response.End
End if
set rst=nothing
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("f_Fav_Url"))
rs("f_Fav_Title")=Trim(Request("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("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
%>
Netsoz.Com用户管理中心 -