 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>显示自己的信息</title> <script language=javascript> <!-- function checks(theform1){ if (theform1.word.value=="") { alert("请随便说几句。"); theform1.word.focus(); return false; } return true; } //--> </script> </head> <body> <br><br> <% username=session("username") Set conn=server.createobject("adodb.connection") Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" DBPath = "Data Source=" & Server.MapPath( "webuser.mdb" ) conn.Open Provider & DBPath set rs=server.createobject("adodb.recordset") sql="select id,fromname,toname,word,adddate,isread from talks where toname=\\\'"& username &"\\\'and isread=0 order by adddate" rs.open sql,conn,3,3 rs.pagesize=1 Page = CLng(Request("Page")) If Page < 1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount %> <form method="post" name=form onSubmit="return checks(form)" action="SubmitMessage.asp"> <table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="550" id="AutoNumber1" align="center"> <tr> <td width="437" colspan="2" height="14"><b><font size="3">发送短消息</font></b></td> </tr> <tr> <td width="437" colspan="2" height="8"> <table border="0" width="540" id="AutoNumber2"> <% if rs.eof or rs.bof then %> <tr> <td width="100%"><% response.write"目前没有你的消息" %></td> </tr> <% else %> <tr> <td width="100%"><% show rs,page%></td> </tr> <tr> <td width="100%"> <% Sub Show( rs, Page ) rs.AbsolutePage = Page %> <table border="0" cellspacing="0" width="534" cellpadding="0"> <% For iPage = 1 To rs.PageSize %> <tr > <td colspan="2"><font color=red><%=rs("fromname")%></font>于<%=rs("adddate")%>传呼于你</td> </tr> <tr > <td colspan="2"> <% word=replace(rs("word"),vbcrlf,"<br>") response.write word %> </td> </tr> <tr> <td width="82">回复对象</td> <td width="452"> <input type="text" name="userid" size="15" value=<%=rs("fromname")%> readonly> </td> </tr> <tr> <td width="82" valign="top">回复信息</td> <td width="452"> <textarea name=word cols=40 rows="5"></textarea> </td> </tr> <tr> <td width="82"> </td> <td width="452">输入的汉字不要超过<font color="#FF0000">200</font>个汉字</td> </tr> <% sql="update talks set isread=-1 where id="&rs("id") conn.execute(sql) rs.movenext If rs.EOF Then Exit For Next %> </table> </td> </tr> <tr> <td width="100%"> <% If Page <> rs.PageCount Then %> <a href= showmessage.asp?Page=<%=(Page+1)%>>下一条</a> <% End If %> </td> </tr> </table> <% end sub %> </td> </tr> <tr> <td width="444" align="center" colspan="2"> <input type="submit" value="传呼" name="B1"> <input type="reset" value="重写" name="B2"> <input type="button" value="关闭窗口" onClick=Javascript:window.close() name="B3"> </td> </tr> </table> </form> <% end if rs.close set rs=nothing conn.close set conn=nothing %> </body> </html> 返回类别: 教程 上一教程: 论坛树状记录表的堆栈展开 下一教程: ASP+SQL SERVER之图象数据处理 您可以阅读与"网络寻呼机数据库版显示消息SHOWMESSAGE.ASP"相关的教程: · 网络寻呼机数据库版显示历史消息HISTORY.ASP · 网络寻呼机数据库版发送消息TOMESSAGE.ASP · 网络寻呼机数据库版处理发送消息SUBMITMESSAGE.ASP · 网络寻呼机数据库版删除选中的消息DELETEMESSAGE.ASP · 网络寻呼机数据库版隐藏文件WATCH.ASP |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
