⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 message.asp

📁 ASP整套的建站源代码
💻 ASP
字号:
🔍 
<!-- #include file="setup.asp" -->
<%
if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if







if Request("menu")="post" then
%>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link href=images/bbs.css rel=stylesheet>
<SCRIPT>
var i=0;
function check(theForm) {

if(theForm.incept.value == "" ) {
alert("昵称不能没有填写！");
return false;
}

if(theForm.incept.value == "<%=Request.Cookies("username")%>" ) {
alert("请输入你要发送的对象，不能发讯息给自己！");
return false;
}

if(theForm.content.value == "" ) {
alert("不能发空讯息！");
return false;
}

if (theForm.content.value.length > 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();}}


function DoTitle(addTitle) {
document.form.incept.value=addTitle
}

function Check(){var Name=document.form.incept.value;
window.open("friend.asp?menu=post&log=1&incept="+Name,"_top","width=320,height=170");
}

</SCRIPT><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><form name=form action="friend.asp" method="post">
<input type="hidden" name="menu" value="addpost">
<TD bgcolor="F8F8F8" height="35">
&nbsp;昵称：<input class=bt name="incept" type="text" size="15">
</TD><TD align=right bgcolor="F8F8F8" height="35">
<%
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
masterlist=""+masterlist+"<option value="&master(i)&">"&master(i)&"</option>"
next
rs.close
%>
<select onchange=DoTitle(this.options[this.selectedIndex].value)>
<option>好友列表</option>
<%=masterlist%>
</select>
</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 onclick=javascript:Check() type="button" value="聊天记录">
</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>
<body onload=resizeTo(330,206)>
<%
responseend

end if


if instr(Request.ServerVariables("http_referer"),""&Request.ServerVariables("server_name")&"") = 0 then
error("<li>来源错误")
end if





if Request("menu")="del" then
if isnumeric(""&Request("id")&"") = flase then
error("<li>非法操作")
end if
conn.execute("delete from [message] where id="&Request("id")&" and incept='"&Request.Cookies("username")&"'")
end if




top

if newmessage>0 then
conn.execute("update [user] set newmessage=0 where username='"&Request.Cookies("username")&"'")
end if

%>

<script>function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}</script>

<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="#000000"><a href="usercp.asp">
    <font color="#000000">控制面板首页</font></a></TH> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="editprofile.asp">
    <font color="#000000">基本资料修改</TH> </font></a> </font>
    </b>
    <TD align="center"><b><font color="#000000">
    <a href="editprofile.asp?menu=contact"><font color="#000000">联系资料修改</TH></font></a></font></b><TD align="center"><b><font color="#000000">
    <a href="editprofile.asp?menu=pass"><font color="#000000">用户密码修改</TH> </font>
    </a> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="message.asp">
    <font color="#000000">用户短信服务</TH> </font></a> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="friend.asp">
    <font color="#000000">编辑好友列表</font></a></TH> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="favorites.asp">
    <font color="#000000">用户收藏管理</font></a></TH></font></b></TR></TBODY></TABLE>
<HR width="730" SIZE=1>


<center>

<TABLE cellSpacing=0 width=730 align=center bgColor=a4b6d7><TR><TD></TD></TR></TABLE>
<TABLE  style="WIDTH: 730;" cellSpacing=0 border=1 borderColor=a4b6d7>
<TR><TD align="center">

          <a style="text-decoration: none; color: #000000" href="message.asp">
          <img alt src="images/m_inbox.gif" border="0" dypop="收件箱"></a>&nbsp;
          <a style="text-decoration: none; color: #000000" href="message.asp?send=1">
          <img alt src="images/M_issend.gif" border="0" dypop="已发送邮件"></a>&nbsp;
          <a href="friend.asp">
          <img alt src="images/M_address.gif" border="0" dypop="发送讯息"></a>&nbsp;
          <a href=# onclick="javascript:open('?menu=post','','width=320,height=170')"><img alt src="images/m_write.gif" border="0" dypop="发送讯息"></a></td></TR>

</TABLE>

<TABLE style="WIDTH: 730; border-collapse:collapse" cellSpacing=0 cellPadding=3 border=1 borderColor=a4b6d7>
        <TR>
          <TD vAlign=center align=middle 
          width=37 background="images/title_sub.gif">　</TD>
          <TD vAlign=center align=middle 
          width=93 background="images/title_sub.gif"><B><span id=send>发件人</span></B></TD>
          <TD vAlign=center align=middle 
          width=358 background="images/title_sub.gif"><B>内容</B></TD>
          <TD align=middle 
          width=120 background="images/title_sub.gif"><B>日期</B></TD>
          <TD vAlign=center align=middle 
          width=106 background="images/title_sub.gif"><B>操作</B></TD></TR>



<%
pagesetup=10   '设定帖子每页的显示数量


if Request("send")="1" then
count=conn.execute("Select count(id)from message where author='"&Request.Cookies("username")&"'")(0)
sql="select * from message where author='"&Request.Cookies("username")&"' order by time Desc"
response.write "<script>send.innerText='收件人'</script>"
else
count=conn.execute("Select count(id)from message where incept='"&Request.Cookies("username")&"'")(0)
sql="select * from message where incept='"&Request.Cookies("username")&"' order by time Desc"

end if

rs.Open sql,Conn

if not rs.eof then

%>



<%





If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1


if Request("send")="1" then
author=rs("incept")

else
author=rs("author")
del="<a href=# onclick=javascript:open('friend.asp?menu=post&incept="&rs("author")&"','','width=320,height=170')><img alt='回复这个帖子' src=images/replynow.gif border=0></a> <a onclick=checkclick('您确定要删除此条讯息?') href=?menu=del&id="&rs("id")&"><img alt='删除该留言' src=images/del.gif border=0></a>"
end if


%>






        <TR>
          <TD vAlign=center align=middle width="37">
          <IMG 
            src="images/f_norm.gif"></TD>
          <TD vAlign=center align=middle width="93">
          


          <A href="profile.asp?username=<%=author%>" target=_blank><%=author%></A> 　</TD>
          <TD width="358"><%=rs("content")%>　</TD>
          <TD align="center" width="120"><%=rs("time")%></FONT>　</TD>
          <TD align="center" width="106">
          <%=del%> 　</TD></TR>


<%
RS.MoveNext
loop
RS.Close
%>
</TD></TR></TABLE><BR>

Page：[


<% 
 for i=1 to TotalPage
  If i<>PageCount then
  Response.Write " <a href=?topage="& i &"&send="&Request("send")&">" & i & "</a> "
  else
  Response.Write "<font color=#000000>"&i&"</font> "
  end if
 next
Response.Write " ]"


end if

%></TABLE><br>

<%htmlend%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -