网络寻呼机数据库版显示消息SHOWMESSAGE.ASP
类别: ASP教程 
<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>
<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>
