friend.asp
来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 279 行
ASP
279 行
<!-- #include file="setup.asp" -->
<%
Menu=Server.HTMLEncode(Trim(Request.QueryString("Menu")))
Set rs = Server.CreateObject("ADODB.Recordset")
validate "Login.asp",1
select case Menu
case "post"
post
case "look"
look
case "addpost"
addpost
case ""
index
end select
sub look
page=Request("page")
if page="" Then disabled="disabled=1":page=0
if page<1 then disabled="disabled=1":page=0
sql="select PostID,content,InceptID from message where inceptID="&Request.Cookies("user")&" order by [time] Desc"
Set Rs = Conn.Execute(sql)
count=rs.recordcount
if Count-page<2 then disabled2="disabled=1"
if rs.eof or rs.bof then error 1,"您没有短讯息！",""
RS.Move page
sql="select UserName_1,UserHead,UserEmail_2 from UserInfo where UserID="&rs("PostID")
Set rs1=conn.execute(sql)
if Rs1.Eof or Rs1.Bof Then Error 2,"已经没有信息了!",""
%>
<HTML><META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href=css.css rel=stylesheet>
<body topmargin=0>
<style>
.bt {BORDER-RIGHT: 1px; BORDER-TOP: 1px; FONT-SIZE: 9pt; BORDER-LEFT: 1px; BORDER-BOTTOM: 1px;}
</style><TITLE>查看消息</TITLE><body topmargin=0 bgcolor="C4D4E5"><TABLE WIDTH=300 BORDER=0 CELLPADDING=3 CELLSPACING=0 BGCOLOR=C4D4E5>
<TR ALIGN=center><TD><b><FONT COLOR=FFFFFF>查看消息</FONT></A></TD></TR></TABLE>
<TABLE WIDTH=300 BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><TD bgcolor="F8F8F8">
昵称：<input class=bt readOnly type="text" value="<%=rs1("UserName_1")%>" size="10"> Email：<input class=bt readOnly type="text" value="<%=rs1("UserEmail_2")%>" size="14">
</TD><TD align=right bgcolor="F8F8F8"><a target=_blank href=profile.asp?username=<%=rs1("UserName_1")%>><img border="0" src="images/face/<%=rs1("UserHead")%>.gif" width="32" height="32" alt=用户详细资料>
</TD></TR><TR><TD VALIGN=top ALIGN=right colspan="2" bgcolor="F8F8F8"><textarea name="content" readOnly cols="39" rows="5"><%=rs("content")%></textarea>
</TD></TR></TABLE>
<TABLE WIDTH=300 BORDER=0 CELLSPACING=0 CELLPADDING=0 height="30">
<tr ALIGN=center><TD bgcolor="C4D4E5"><input type="button" value="回复讯息" onclick=javascript:open('friend.asp?menu=post&inceptID=<%=rs("PostID")%>','_top','width=320,height=170')>
</td><TD><input type="button" value="<<上一条" <%=disabled%> onclick=javascript:open('friend.asp?menu=look&page=<%=page-1%>','_top','')> </td><TD><input type="button" value="下一条>>" <%=disabled2%> onclick=javascript:open('friend.asp?menu=look&page=<%=page+1%>','_top','')>
</td>
</TR></TABLE>
</BODY></HTML>
<%
rs1.close
rs.close
end sub
sub post
Forcedid=Request.QueryString("Forcedid")
Reid=Request.QueryString("Reid")
UsID=Request.QueryString("inceptid")
if UsID="" then Error 1,"对不起，您没有输入用户名称！",""
if Request.QueryString("log")="1" then
log2="javascript:history.back()"
else
log2="javascript:open('friend.asp?menu=post&log=1&inceptID="&UsID&"','_top','width=320,height=170');history.go(1)"
end if
if len(Reid)>0 Then
if Trim(Conn.Execute("Select Forced_SendUsID From Forced_sale where Forced_ID="&Forcedid)(0)) <> Request.Cookies("User") Then Error 1,"对不起，您不是该商品拍卖者，您不能回复该条信息!",""
end if
if Request.QueryString("MsgId")<>"" Then if conn.execute("Select InceptName from Message where MsgID="&Request.QueryString("MsgId"))(0) = "-1" Then Error 1,"此为系统信息，请勿回复！",""
if Cint(Request.Cookies("Product")) < 3 and conn.execute("Select UserGrade from UserInfo where UserID="&UsID)(0) < 3 then Error 1,"此操作已被系统拒绝！",""
sql="select UserId,UserEmail_2,UserName_2,UserHead,UserPrestige from UserInfo where UserID="&UsID
Set Rs = Conn.Execute(sql)
if rs.eof then error 2,"系统不存在该用户的资料",""
%>
<HTML><META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href=css.css rel=stylesheet>
<body topmargin=0 bgcolor="C4D4E5">
<style> .bt {BORDER-RIGHT: 1px; BORDER-TOP: 1px; FONT-SIZE: 9pt; BORDER-LEFT: 1px; BORDER-BOTTOM: 1px;}</style>
<TITLE>发送消息</TITLE>
<SCRIPT>
var i=0;
function check(theForm) {
if(theForm.content.value == "") {
alert("不能发空讯息！");
return false;
}
if (theForm.content.value.lengtd > 255){
alert("对不起，您的讯息不能超过 255 个字节！");
return false;
}
i++;if (i>1) {document.form.submit1.disabled = true;}return true;
}
function presskey(eventobject){if(event.ctrlKey && window.event.keyCode==13){this.document.form.submit();}}
</SCRIPT>
<TABLE WIDTH=300 BORDER=0 CELLPADDING=3 CELLSPACING=0 BGCOLOR=C4D4E5>
<TR ALIGN=center><TD><b><FONT COLOR=FFFFFF>发送消息</FONT></A></TD></TR></TABLE>
<TABLE WIDTH=300 BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><form name=form action="friend.asp?menu=addpost&incept=<%=UsID%>" method="post">
<TD bgcolor="F8F8F8"><INPUT type=hidden NAME="Reid" value=<%=Reid%>>
<INPUT type=hidden NAME="Forcedid" value=<%=Forcedid%>>昵称：<input class=bt readOnly type="text" value="<%=rs("UserName_2")%>" size="10"> Email：<input class=bt readOnly type="text" value="<%=rs("UserEmail_2")%>" size="14">
</TD><TD align=right bgcolor="F8F8F8"><a target=_blank href=ShowUserInfo.asp?UsId=<%=rs("userID")%>><img border="0" src="images/face/<%=rs("UserHead")%>.gif" width="32" height="32" alt=用户详细资料>
</TD></TR><TR><TD VALIGN=top ALIGN=right colspan="2" bgcolor="F8F8F8"><textarea name="content" cols="39" rows="5" onkeydown=presskey()></textarea>
</TD></TR></TABLE><TABLE WIDTH=300 BORDER=0 CELLSPACING=0 CELLPADDING=0 height="30">
<tr ALIGN=center><TD bgcolor="C4D4E5"><input type="button" value="聊天记录" onclick=<%=log2%>>
</td><TD><input type="reset" value="取消发送" OnClick="window.close();"> </td><TD><input name=submit1 type="submit" value="发送讯息" onclick="return check(this.form)"></td>
</TR></form>
</TABLE>
<%
rs.close
if Request.QueryString("log")<>"" then
%>
<body onload=resizeTo(330,300)>
<textarea name="content" readOnly cols="40" rows="6"><%
sql="select * from message where (PostID="&Request.Cookies("user")&" and InceptID="&Request.QueryString("inceptid")&") or (PostID="&Request.QueryString("inceptid")&" and InceptID="&Request.Cookies("user")&") order by time Desc"
rs.Open sql,Conn
do while not rs.eof
%>
(<%=rs("time")%>) <%=rs("PostName")%>
<%=rs("content")%>
<%
rs.movenext
loop
rs.close
%></textarea>
<%end if%>
<body onload=resizeTo(330,206)>
<%
end sub
sub addpost
if instr(Request.ServerVariables("http_referer"),""&Request.ServerVariables("server_name")&"") = 0 then error 2,"来源错误",""
if Request.QueryString("incept")=Request.Cookies("User") then Error 2,"不能给自己发送讯息！",""
forid=Request.Form("Forcedid")
Reid=Request.Form("Reid")
if forid="" Then forid=0
if Reid="" Then
Reid=0
ISRe=0
else
ISRe=1
end if
Conn.Execute("insert into message(PostName,PostID,InceptID,InceptName,content,ForcedID,Reid)values('"&conn.execute("Select UserName_2 from UserInfo where UserID="&Request.Cookies("User"))(0)&"',"&Request.Cookies("User")&","&Request("incept")&",'"&conn.execute("Select UserName_2 from UserInfo where UserID="&Request("incept"))(0)&"','"&server.htmlencode(Request.Form("content"))&"',"&Forid&","&Reid&")")
Conn.execute("update UserInfo set UserPrestige=UserPrestige+1 where UserID="&Request("incept"))
Conn.Execute("update [Message] Set ISRe="&ISRe&" where MsgId ="&Reid)
Conn.Close
Set Conn = Nothing
%>
发送成功！<script>close();</script>
<%
end sub
sub index
top%>
<SCRIPT>
function add(){
var id=prompt("请输入您要添加的好友名称！","");
if(id){
document.location='friend.asp?menu=add&username='+id+'';
}
}
</SCRIPT>
<form method="POST">
<input type=hidden name="menu" value="del">
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<title>控制面板</title>
<table width="750" align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top"> <img src="images/closedfold.gif" border="0"> <a href="index.asp"><%=clubname%></a><br>
<img src="images/bar.gif" border="0"><img src="images/openfold.gif"> 控制面板</td>
</tr>
</table>
<br>
<TABLE align=center width="730" background=images/title_sub.gif>
<TBODY>
<TR>
<Td align="center"><b><font color="#FFFFFF"><a href="usercp.asp">
<font color="#FFFFFF">控制面板首页</font></a></TH> </font>
</b>
<TD align="center"><b><font color="#FFFFFF"><a href="editprofile.asp">
<font color="#FFFFFF">基本资料修改</TH> </font></a> </font>
</b>
<TD align="center"><b><font color="#FFFFFF">
<a href="editprofile.asp?menu=contact"><font color="#FFFFFF">联系资料修改</TH></font></a></font></b><TD align="center"><b><font color="#FFFFFF">
<a href="editprofile.asp?menu=pass"><font color="#FFFFFF">用户密码修改</TH> </font>
</a> </font>
</b>
<TD align="center"><b><font color="#FFFFFF"><a href="message.asp">
<font color="#FFFFFF">用户短信服务</TH> </font></a> </font>
</b>
<TD align="center"><b><font color="#FFFFFF"><a href="friend.asp">
<font color="#FFFFFF">编辑好友列表</TH> </font></a> </font>
</b>
<TD align="center"><b><font color="#FFFFFF"><a href="favorites.asp">
<font color="#FFFFFF">用户收藏管理</font></a></TH></font></b></TR></TBODY></TABLE>
<HR width="730" SIZE=1>
<table style="WIDTH: 730" cellSpacing=0 cellPadding=3 align=center border=1 borderColor=a4b6d7 >
<tr>
<td width="131" background=images/title_sub.gif align="center">
<font color="#FFFFFF">昵称 </font> </th>
<td width="158" background=images/title_sub.gif align="center">
<font color="#FFFFFF">邮件 </font> </th>
<td width="185" background=images/title_sub.gif align="center">
<font color="#FFFFFF">主页 </font> </th>
<td width="59" background=images/title_sub.gif align="center">
<font color="#FFFFFF">状态 </font> </th>
<td width="84" background=images/title_sub.gif align="center">
<font color="#FFFFFF">发短信 </font> </th>
<td width="50" background=images/title_sub.gif align="center">
<font color="#FFFFFF">操作 </font> </th>
</tr>
<%
sql="select friend,userface from user where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn
master=split(rs("friend"),"|")
for i = 1 to ubound(master)-1
sql="select * from user where username='"+master(i)+"'"
Set Rs = Conn.Execute(sql)
'''''''''''''''''''
on error resume next '找不到好友资料时候忽略错误
if rs1("landtime")=empty then
response.write "<b>系统消息：</b><br><a href=friend.asp?menu=del&username="+master(i)+"><font color=red>"+master(i)+"的资料已经不存在，点击删除该用户的名单</font></a>"
end if
'''''''''''''''''''
if DateDiff("s",rs1("landtime"),Now())<1200 then
online="<img src=images/online1.gif alt=在线>"
else
online="<img src=images/offline1.gif alt=离线>"
end if
%>
<tr>
<td vAlign=center align=middle width="131"><a href=profile.asp?username=<%=rs1("username")%> target=_blank><%=rs1("username")%></a> </td>
<td align=middle width="158"><a href=mailto:<%=rs1("usermail")%>><%=rs1("usermail")%></a> </td>
<td width="185"><a href=<%=rs1("userhome")%> target=_blank><%=rs1("userhome")%></a> </td>
<td align=middle width="59"><%=online%> </td>
<td align=middle width="84"><a href=# onclick="javascript:open('friend.asp?menu=post&incept=<%=rs1("username")%>','','width=320,height=170')">发送</a></td>
<td align=middle width="50"><INPUT type=radio value=<%=rs1("username")%> name=username></td>
</tr>
<%
rs1.close
next
%>
<tr>
<td class="tablebody2" vAlign="center" align="right" colSpan="6" width="702">
<input onclick="javascript:add();" type="button" value="添加好友" name="action"> <input onclick="{if(confirm('确定删除选定的纪录吗?')){return true;}return false;}" type="submit" value="删除"></td>
</tr></form>
</table>
<%
rs.close
htmlend
end sub
response.end%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?