friend.asp

BBS论坛的开发和设计

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'****************************************************************
'*  joinboard BBS Ver2.3.0/友盟论坛 Ver2.3.0
'*
'*  版权所有: JoinBoard V2.3
'*
'*  程序制作: 友盟工作室
'*           
'*  主页地址: http://joinboard.com    友盟论坛
'*
'*  论坛地址: http://bbs.joinboard.com/、http://youmeng.com
'*	                 
'****************************************************************
'*  Powered by: JoinBoard V2.3
'*　Copyright 2003－2004.  - All Rights Reserved.
'*  JoinBoard is a trademark of YouMeng Studio.
'****************************************************************

function errorMsg(theError)
response.write"<script language=javascript>alert('"& theError &"');history.back();</script>"
response.End
End function
'--------------------------------------------
userid = trim(request.Cookies(JBBMasterCookies)("userid"))
if Not(IsNumeric(userid)) then
	errorMsg "您尚未登录，无法进行此操作!"
End if
%>
<!--#include file = "admin/BBSConfig.asp"-->
<%
action=trim(request.QueryString("action"))
select case action
case "add"
	call add()
case "del"
	call del()
end select
'----------------------------------------------
Sub add()
	friendname = replace(trim(request.QueryString("Friendname")),"'","")
	if friendname <> "" then
		set rs = server.CreateObject("adodb.recordset")
		rs.open "select userid from JBB_user where username = '"& friendname &"'",conn,1,1
		if rs.eof or rs.bof then
			erroradd =  "对不起,论坛不存在此用户。"
		else
			friendNameID = rs(0)
			if Cstr(friendNameID) = Cstr(userid) then
				erroradd =  "您不能添加自己为好友。"
			End if
			set rs1 = server.CreateObject("adodb.recordset")
			sql = "select * from JBB_friend where friendNameID="& friendNameID &" and user_ID="&userid
			rs1.open sql,conn,1,1
			if Not(rs1.eof and rs1.bof) then
				erroradd =  "对不起,您已经添加了此好友，请不要重复添加。"
			End if
			rs1.close
			set rs1 = nothing
			'---------------------------------------------------
			set rs1 = server.CreateObject("adodb.recordset")
			sql = "select * from JBB_friend where user_ID="&userid
			rs1.open sql,conn,1,1
			if Not(rs1.eof and rs1.bof) then
				if Cint(rs1.recordCount) => 30 then
					erroradd =  "对不起,您最多可以添加30个好友。"
				End if
			End if
			rs1.close
			set rs1 = nothing
		End if
		rs.close
		set rs = nothing
		'---------------------------
		if erroradd = "" then
			Conn.ExeCute("insert into JBB_friend(friendNameID,user_ID,addtime) values("& friendNameID &","& userid &",'"& now() &"')")
			response.write"<script language=javascript>if (confirm('添加成功，点击 确定 转到您的控制面板，点击 取消 返回')) {location.href='usercp.asp'}else {history.back()}</script>"
		else
			errorMsg(erroradd)
		End if		
	End if
End sub
'-----------------------------------------------
Sub del()
	F_id = trim(request.QueryString("F_id"))
	if Not(IsNumeric(F_id)) then
		errorMsg "参数错误!"
	End if
	Conn.ExeCute("delete From JBB_friend where F_id="&F_id)
	response.write"<script language=javascript>alert('删除完毕!~'); location.href='usercp.asp';</script>"
End Sub
set conn = nothing
%>