网络寻呼机数据库版显示消息showmessage.asp
敬业的IT人
互联网
佚名
2008-4-14 17:56:26
<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>
<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>
- 最新文章
- 网络寻呼机数据库版显示历史消息history.asp[04-14]
- 网络寻呼机数据库版删除选中的消息deletemessage...[04-14]
- 网络寻呼机数据库版隐藏文件watch.asp[04-14]
- ASP环境下邮件列表功能的实现 （四）[04-14]
- ASP环境下邮件列表功能的实现 （三）[04-14]
- ASP环境下邮件列表功能的实现 （二）[04-14]
- 相关文章
- 网络寻呼机数据库版显示历史消息history.asp[04-14]
- 网络寻呼机数据库版删除选中的消息deletemessage...[04-14]
- 网络寻呼机数据库版隐藏文件watch.asp[04-14]
- ASP环境下邮件列表功能的实现 （四）[04-14]
- ASP环境下邮件列表功能的实现 （三）[04-14]
- ASP环境下邮件列表功能的实现 （二）[04-14]
