网络寻呼机数据库版显示消息showmessage.asp
发布时间:2006-10-14 2:59:46   收集提供:gaoqian
<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">&nbsp; <input type="reset" value="重写" name="B2">&nbsp;
        <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>

 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50