Data | database | network | display
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<title> Display your information </title>
<script language=javascript>
<!--
function checks (THEFORM1) {
if (theform1.word.value== "")
{
Alert ("Please say a few words.") ");
Theform1.word.focus ();
return false;
}
return true; }
-->
</script>
<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= "" id= " AutoNumber1 "align=" Center ">
<tr>
<TD width= "437" colspan= "2" height= "a" ><b><font size= "3" > Send short Message </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 "no news For you at the moment"%></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> in <%=rs ("Adddate")%> paging You </td>
</tr>
<tr >
&n