delfriend.asp

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

<%@ Language=VBScript %>
<%
  set conn=server.CreateObject("adodb.connection")
  set rsfriend=server.CreateObject("adodb.recordset")
Conn.Open "laoxiang","lx","mailyard"

  Friend_ID=Request.QueryString("Friend_ID")
  sql="delete from Friend where Friend_ID='"&Friend_ID&"'"
  set rsfriend=conn.Execute(sql)
response.Redirect "listfriend.asp"
  conn.Close
  set conn=nothing
%>