addfriend.asp

该资料包含大量网络开发的案例和源代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv='refresh' content=3;url='javascript:history.go(-1)'>
<!--#include file="../include/datatransfer.asp"-->
<!--#include file="../include/functionjs.asp"-->
<!--#include file="../include/functionvb.asp" -->
<!--#include file="../include/dbconn.inc" -->
<!--#include file="../include/refresh.asp"-->
<!--#include file="../include/header.asp" -->
<link href="../include/main.css" rel="stylesheet" type="text/css">
<%
if Userid=empty then response.Redirect("../common/showerr.asp?ErrType=1")

dim friendid,friendname,addtype,addtype2
friendid=request("FriendID")
addtype=request.QueryString("addtype")
if Userid=friendid then response.Redirect("../common/showerr.asp?ErrType=3")
if addtype="BBS" then addtype2="Blog" else addtype2="BBS" 

strSQL="select User_name from user_info where user_id="&friendid
objRS.open strSQL,objConn,1,1
friendname=objrs("user_name")
objrs.close

strSQL="select * from "&addtype&"_friend where user_id="&userid&" and friend_id="&friendid
objRS.open strSQL,objConn,1,3
if objrs.bof and objrs.eof then
	objrs.addnew
	objrs("user_id")=userid
	objrs("user_name")=username
	objrs("friend_id")=friendid
	objrs("friend_name")=friendname
	objrs.update
else
	response.Redirect("../common/showerr.asp?ErrType=4")
end if
%>

<!--#include file="../include/endconn.inc" -->
<table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle" bordercolor="#FFFFFF" >
  <tr>
    <td bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead"><img src="../resource/images/blog/li.gif" width="12" height="12"><a href="../blog/main.asp">56Blog</a>→添加好友结果</td>
  </tr>
</table>
<table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle"  bordercolor="#FFFFFF">
  <tr>
    <td align="center"   bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">添加<%if addtype="BBS" then response.Write("论坛") else response.Write("Blog")%>
    好友成功</td>
  </tr>
  <tr>
    <td bordercolor="#4C4C4C"class="tablehead">
        <table width="100%" border="0" cellspacing="5" cellpadding="5">
          <tr>
            <td><li><a href="../blog/main.asp">返回56Blog首页</a></td>
          </tr>
          <tr>
            <td><li><a href="javascript:history.go(-1)">返回前一页</a></td>
          </tr>
          <tr>
            <td><li><a href="addfriend.asp?FriendID=<%=friendid%>&AddType=<%=addtype2%>">添加为<%if addtype="BBS" then response.Write("Blog") else response.Write("论坛")%>好友</a></td>
          </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td bordercolor="#4C4C4C" background="../resource/images/bj2.gif" align="center"><a href="javascript:history.go(-1)"><b>返回</b></a></td>
  </tr>
</table>
<!--#include file="../include/footer.asp" -->