friendlist.asp

电子商务网络购物系统

<!-- #include file="includes/header.asp" -->
<%
Response.Buffer = True

Dim intForumID
Dim intForumColourNumber	

intForumColourNumber = 0
If bannedIP() Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp?M=IP")
End If
If blnPrivateMessages = False Then 
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If
If intGroupID = 2 OR blnActiveMember = False Then 
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp")
End If

%>
<title>短信和好友列表</title>
<script  language="JavaScript">
function CheckForm () {
	var errorMsg = "";
	if (document.frmBuddy.username.value==""){
		errorMsg += "\n\t会员名字 \t- 输入一个论坛会员成为你的好友";
	}
	if (errorMsg != ""){
		msg = "_______________________________________________________________\n\n";
		msg += "表单不完整，请填写完全\n";
		msg += "请修正后再发表\n";
		msg += "_______________________________________________________________\n\n";
		msg += "以下区域需要修改: \n";
		errorMsg += alert(msg + errorMsg + "\n\n");
		return false;
	}
	
	return true;
}

// -->
</script>

  <table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
 <tr> 
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="index.asp" target="_self" class="boldLink">短信和好友列表</a><br /></td>
  </tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
 <tr> 
  <td width="60%"><span class="lgText"><img src="images/subject.gif" width="26" height="26" alt="主题" align="absmiddle"> 短信:好友列表</span></td>
  <td align="right" class="text" width="40%"><a href="inbox.asp" target="_self"><img src="images/inbox.gif" alt="短信 收件夹" border="0"></a><a href="outbox.asp" target="_self"><img src="images/outbox.gif" alt="短信  发件夹" border="0"></a><a href="friendlist.asp" target="_self"><img src="images/friends.gif" alt="短信 通讯录" border="0"></a><a href="newmess.asp" target="_self"><img src="images/newmess.gif" alt="新短信" border="0"></a></td>
 </tr>
</table>
<table width="96%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<% = strTableBgColour %>">
  <tr class="tHeading"> 
    <td height="25" width="19%" background="<% = strTableTitleBgImage %>">&nbsp;好友列表</td>
    <td width="40%" background="<% = strTableTitleBgImage %>">&nbsp;好友描述</td>
    <td width="35%" background="<% = strTableTitleBgImage %>">&nbsp;联系状况</td>
    <td width="6%" align="center" nowrap="nowrap" background="<% = strTableTitleBgImage %>">删除</td>
  </tr>
  <%
strSQL = "SELECT timesfriend.*, timesuser.Username, timesuser.userid "
strSQL = strSQL & "FROM timesuser, timesfriend "
strSQL = strSQL & "WHERE timesuser.userid = timesfriend.friendid AND timesfriend.userid=" & lngLoggedInUserID & " AND timesfriend.friendid <> 2 "
strSQL = strSQL & "ORDER BY timesuser.Username ASC;"
rsConn.Open strSQL, adoCon
If rsConn.EOF Then %>
<td bgcolor="<% =  strTableColour %>" height="25" colspan="4" class="text">你还没有好友</td>
<%
Else 	
	Do WHILE NOT  rsConn.EOF 
		intForumColourNumber = intForumColourNumber + 1
	%>
  <tr height="25" class="text" bgcolor="#FFFFFF"> 
    <td width="19%"><a href="JavaScript:openWin('puprofile.asp?pf=<% = rsConn("friendid") %>','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')">
      <% = rsConn("Username") %></a></td>
    <td width="40%"><% = rsConn("Description") %></td>
    <td width="35%"> 
      <%
     		If rsConn("Block") = True Then
     			Response.Write("这个会员不可以发短信给你")
     		Else
     			Response.Write("这个会员可以发短信给你")
     		End If
     %>
    </td>
    <td bgcolor="#FFFFFF" width="6%" class="text" align="center"><a href="delfriend.asp?messid=<% = rsConn("addrid") %>" OnClick="return confirm('你确定把从好友列表删去?')"><img src="images/delete.gif" width="15" height="16" alt="删除" border="0"></a></td>
  </tr>
  <%
		rsConn.MoveNext
	Loop
End If
rsConn.Close
%>
</table>
<br />
<table width="96%" border="0" cellspacing="1" cellpadding="1" bgcolor="<% = strTableBgColour %>" align="center">
 <form method="post" name="frmBuddy" action="addfriend.asp" onSubmit="return CheckForm();" onReset="return ResetForm();">
	<tr height="25">
	<td colspan="4" bgcolor="<% = strTableTitleColour %>"class="tHeading" background="<% = strTableTitleBgImage %>">>>> 添加好友</td>
    </tr>
	 <tr> 
         <td nowrap="nowrap" bgcolor='#FFFFFF' width="23%" class="text">好友：<input type="text" name="username" size="15" maxlength="15" value="<% If CInt(Request.QueryString("code")) <> 2 Then Response.Write(Request.QueryString("name")) %>">
          <a href="JavaScript:openWin('pusearchmember.asp?RP=BUD','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=1,width=440,height=255')"><img src="images/search.gif" alt="寻找会员" border="0" align="absmiddle"></a> 
         </td>
        <td nowrap="nowrap" bgcolor='#FFFFFF' width="32%" class="text">描述：<input type="text" name="description" size="25" maxlength="30" value="<% If CInt(Request.QueryString("code")) <> 2 Then Response.Write(Request.QueryString("desc")) %>">
        </td>
        <td nowrap="nowrap" bgcolor='#FFFFFF' width="24%" class="text">状态： <select name="blocked">
          <option value="False" selected>允许发短信给我</option>
          <option value="True">禁止发短信给我</option>
         </select></td>
      <td bgcolor='#FFFFFF' width="21%" align="center"><input type="submit" name="Submit" value="加为好友"></td>
       </tr>
</form>
</table>

<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
  <tr><form>
   <td align="right"><!-- #include file="includes/forumjump.asp" --></td>
   </form>
  </tr>
 </table>
<br /><br />
 <%
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
Select Case Request.QueryString("ER")
	Case "1" %>
	<script  language="JavaScript">
	alert('<% =Replace(Request.QueryString("name"), "'", "\'", 1, -1, 1) %> 已经在你的好友列表里.')
	</script>
	<%
	Case "2" %>
	<script  language="JavaScript">
	alert('在数据库里找不到 <%= Replace(Request.QueryString("name"), "'", "\'", 1, -1, 1) %>.\n\n请检查一下拼写.')
	</script>
	<%
End Select
%>
<!-- #include file="includes/footer.asp" -->