addfriend.asp

这是一个校友录管理系统

<%
Function AddFriend(Name)
IF Session("User")<>Name Then
SQL="Select username From [user] Where username='"& Name &"'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
IF RS.Eof Then
	ErrInfo=ErrInfo & "·这个同学还没有注册！<br>"
Else
	SQL="Select * From friend Where username='"& Session("User") &"' And friendname='"& Name &"'"
	Set RS=Server.CreateObject("ADODB.Recordset")
	RS.Open SQL,Connstr,3,3
	IF RS.EOF Then
	RS.AddNew
	RS("username")=Session("User")
	RS("friendname")=Name
	RS.Update
	END IF
End IF
End IF
End Function
%>