addfriend.asp

来自「程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件」· ASP 代码 · 共 22 行

<%
Function AddFriend(Name)
IF Session("User")<>Name Then
SQL="Select 姓名 From 注册信息 Where 姓名='"& Name &"'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
IF RS.Eof Then
	ErrInfo=ErrInfo & "·这个同学还没有注册！<br>"
Else
	SQL="Select * From 好友列表 Where 用户名='"& Session("User") &"' And 好友名字='"& Name &"'"
	Set RS=Server.CreateObject("ADODB.Recordset")
	RS.Open SQL,Connstr,3,3
	IF RS.EOF Then
	RS.AddNew
	RS("用户名")=Session("User")
	RS("好友名字")=Name
	RS.Update
	END IF
End IF
End IF
End Function
%>