sendmessage.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="mfk_body.asp"-->
<title><%=title1%>--站内短信</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
call pagestart
%>
<script>
function ff(tt){
tt.focus();
}
function check(){
if(form1.username.value==''){
alert("您的姓名没有填写！");
form1.username.focus();
return false;
}
if(form1.msgtime.value==''){
alert("时间为默认服务器时间，请不要改动！");
form1.msgtime.focus();
return false;
}
if(form1.msgname.value==''){
alert("信息主题没有填写！");
form1.msgname.focus();
return false;
}
if(form1.msgtext.value==''){
alert("信息内容没有填写！");
form1.msgtext.focus();
return false;
}
if(form1.msgtext.value.length > 200){
alert("内容不能多于200字！");
return false;
}
}
function asdf(){
form1.textf.value=form1.msgtext.value.length
if(form1.textf.value>200){
alert("您已经写够200字了！再写下去您将无法发送成功！");
}
}
</script>
<%
dim action
action=trim(request("action"))
if action="ok" then
sendok
else
send
end if
sub sendok
dim username,msgname,msgtime,msgtext
username=replace(trim(request("username")),"'","")
msgname=replace(trim(request("msgname")),"'","")
msgtime=now()
msgtext=replace(trim(request("msgtext")),"'","")
sql="insert into message (username,msgname,msgtime,msgtext) values ('"&username&"','"&msgname&"','"&msgtime&"','"&msgtext&"')"
conn.execute(sql)
closeconn
session("user")=username
response.Redirect("ok.asp?msg=<li>您的本次操作：发站内短信</li><br><li>操作成功！感谢您对我们的支持！</li>")
end sub
sub send
%>
<table width=755 border=0 align=center cellpadding=0 cellspacing=0>
  <tr>
    <td width="27" height=5><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
    <td width="701" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif"></td>
    <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0" class="lefttablebox">
<form name="form1" method="post" action="sendmessage.asp?action=ok" onSubmit="return check();">
      <tr>
        <td height="30" colspan="4"> 　　发 送 站 内 短 信 </td>
      </tr>
      <tr class="table1">
        <td width="129" height="30" align="center">姓　名：</td>
        <td width="265" height="30">　
        <input name="username" type="text" id="username" title=20字以内 onMouseOver="ff(this);" value="<%=session("user")%>" size="20" maxlength="20"></td>
        <td width="109" height="30" align="center">时　间：</td>
        <td width="247" height="30">　
        <input name="msgtime" type="text" id="msgtime2" size="20" onMouseOver="ff(this);" value=<%=date%>/<%=time%> title=系统默认当前时间></td>
      </tr>
      <tr class="table1">
        <td height="30" align="center">主　题：</td>
        <td height="30" colspan="3">　
        <input name="msgname" type="text" id="msgname" title=50字以内 onMouseOver="ff(this);" size="40" maxlength="50"></td>
    </tr>
      <tr class="table1">
        <td height="102" align="center">内　容：</td>
        <td colspan="3">　
        <textarea name="msgtext" cols="50" rows="5" id="msgtext" onMouseOver="ff(this);" title=200字以内 onKeyUp="asdf();" onKeyDown="asdf();"></textarea></td>
    </tr>
      <tr align="center" class="table1">
        <td height="30" colspan="4"><input name="Submit" type="submit" class="mfk_button" value="发 送">　　　
          <input name="Submit2" type="reset" class="mfk_button" value="重 写">
          　　您已经写了：
          <input name="textf" type="text" id="textf" size="3">
        个字</td>
    </tr>
  </form>
</table>
<table width=755 border=0 align=center cellpadding=0 cellspacing=0>
  <tr>
    <td width="7" height=4><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td width="734" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif"></td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
  </tr>
</table>
<table width=755 border=0 align=center cellpadding=0 cellspacing=0><tr><td height=4></td></tr></table>
      <table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="29" height="22" align="center" bgcolor="<%=c3%>"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle.gif"></td>
          <td width="699" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif">短信记录
            <%if session("user")="" then%>
            (只有先发送，才能显示您历史上所发送的记录)
            <%else%>
            (以下是<%=session("user")%>发送过的短信记录)　　　<img src="images/mfk25.gif" width="12" height="12"> <a href="userlook.asp?action=logout">退出身份</a>
          <%end if%></td>
          <td width="27" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle.gif"></td>
        </tr>
      </table>
<%if session("user")<>"" then
set rs=conn.execute("select * from message where username='"&session("user")&"'")
while not rs.eof
n=rs("msgname")
if len(n)>10 then
n=left(n,9)&".."
end if
t=rs("msgtext")
if len(t)>32 then
t=left(t,31)&".."
end if
%>
<table width="751" border="0" align="center" cellpadding="0" cellspacing="0" class="tablebox1">
<tr>
<td height="22" style="cursor:hand" onMouseOver='scolor(this);' onMouseOut='rcolor(this);'>　<%=rs("username")%>　　<%=rs("msgtime")%>　　<a title='<%=mfkiqpl(rs("msgname"))%>'><%=n%></a>　　<a title='<%=mfkiqpl(rs("msgtext"))%>'><%=t%></a></td>
</tr></table>
<%
rs.movenext
wend
end if
end sub
%>
<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='5'></td></tr></table>
<%
call pageend
%>