繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 网络寻呼机数据库版显示消息showmessage.asp
- ASP
- ASP编程入门进阶（廿一）：DAO SQL之建立数据库表
- ASP应用之模板采用
- ASP上传图片功能的又一实现（OLE对象）
- asp中FSO复制文件代码
- asp复制文件夹代码
- 实例演练ASP+XML编程比较全的了
- 利用ASP从远程服务器上接收XML数据的方法
- PJ-Blog教程┊增强博客用户体验～让发表内容的同时拷贝到剪贴板以防丢失
- TSYS一个新闻多种特性时如何进行前台更新?
- TSYS资源特性的效率提高方法
- 重置TSYS系统中的所有"生成的文件"成"未生成文件"
- TSYS中生成静态页时溢出: ''CInt''
- asp实现防止站外提交内容的两个方法
- ASP中生成文本文件的两种方式
- ASP是否可以定时触发事件
- ASP解压缩（在线解压缩类）
- 使用ASP删除指定IIS站点
- 使用ASP控制指定站点解析脚本语言函数
- HTML标签及ASP函数速查表
- 如何使用Administrators组用户运行ASP程序
ASP 中的 网络寻呼机数据库版显示消息showmessage.asp
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 216 ::
收藏到网摘: n/a
<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">
&
评论 (0) All
