求人不如求自己.还在  csdn上傻等了半天,希望哪位老大能赏点源码.  愣是没人回应, 最终还是花了一个晚上才搞定.   其实很简单  只用了一个文件  :  message.asp  包含  5个action(write,send,del,default,trace) 数据表:  msg  (id ,from ,to , fromdel ,todel,time,read,tittle,context...............) 核心代码如下: A. write <table align="center" width="60%"><tr></tr><tr></tr> <form action="message.asp?action=send" method="post" >     <tr>   <td>发送给:</td>   <td valign="left">      <input name="to" type="text" value=<% response.write(user)%> />   </td>   </tr>   <tr>   <td>内容:</td>   <td valign="left" colspan="10">          <textarea name="context" cols="80" rows="10"></textarea>   </td>   </tr>   <tr>   <td></td>       <td valign="center">      <input type="submit"  value="提交"  />        </td>      </tr></form><tr></tr></table> B.send    sql="insert into [msg] ([from],[to],[fromdel],[todel],[context],[read]) values ('"&username&"','"&request.form("to")&"',0,0,'"&request.form("context")&"',0)"   conn.execute(sql)   sql="update [user] set tomsg=tomsg+1 where username='"&request.form("to")&"'"   conn.execute(sql)    sql="update [user] set frommsg=frommsg+1 where username='"&request.cookies("username")&"'"   conn.execute(sql)   Response.Write ("<script>alert('短信息发送成功!');history.back();</script>")   C.default <%    sql="select * from [msg] where to='"&request.cookies("username")&"'"  set rs=conn.execute(sql)  if not rs.eof then %> <table align="center" width="80%" class="tb3"> <tr align="center"><td>您有 <font color="red"><b><%=rs.Recordcount%></b></font>条短信 </td></tr> <% while not rs.eof %>  <tr bgcolor="#66FFFF" align="center"><td >from:<a href="read.asp?Username=<%=rs("from")%>" title="查看<%=rs("from")%>的祥细资料"><% response.write(rs("from"))%></td></tr>  <tr align="center"><td >内容:<%response.write(rs("context"))%></td></tr>  <% rs.movenext%>  <% wend %><tr align="center"><td><% else response.write"您没有短消息!" %></td></tr><% end if%> D.del (略) E.trace(略)   注:以上代码做了部分串改.   

评论