joinfriend.asp

来自中国老乡录的一套交友系统

<%
  set conn=server.CreateObject("adodb.connection")
  set rsfriend=server.CreateObject("adodb.recordset")
  set rs=server.CreateObject("adodb.recordset")
  set rs1=server.CreateObject("adodb.recordset")

Conn.Open "laoxiang","lx","mailyard"

  if Session("User_ID")="" then
    Response.Write"未登录,请先登录"
    Response.End
  end if


if Request.ServerVariables("http_method")="GET" then
  Friend_RegistID=Request("Friend_RegistID")
  
  if Friend_RegistID=session("user_ID") THEN
      RESPONSE.WRITE("自己不能加自己")
      RESPONSE.END
  end if	  	  
  sql="select User_ID from customer where User_ID='"&Friend_RegistID&"'"

  set rs=conn.Execute(sql)
  if rs.EOF=true then
     Response.Write"该用户名不存在"
     Response.End
  end if
  
  sql="select Friend_RegistID from Friend where Friend_RegistID='"&Friend_RegistID&"'"
  set rs1=conn.Execute(sql)
  if rs1.EOF=false then
    Response.Write"该好友已加入了"
    Response.end
  end if  
    
  sql="insert into friend (Friend_RegistID,Regist_ID) values('"
  sql=sql&Friend_RegistID&"','"&Session("User_ID")&"')"
  conn.Execute(sql)
end if 
response.Redirect "listfriend.asp"
%>