网络寻呼机数据库版显示消息showmessage.asp
2016-01-29 17:36
网络寻呼机数据库版显示消息showmessage.asp,网络寻呼机数据库版显示消息showmessage.asp
<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"
&
