当前位置: 首页 > 图文教程 > 网络编程 > ASP > 网络寻呼机数据库版显示消息showmessage.asp

ASP
很不错的一个UBB代码
获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP
无组件生成缩略图
如何远程调用ACCESS数据库[要求加精！！]
也谈采集入库的技术
asp打包类
分页类，异常类
ASP用JMail、CDO发送邮件
保存远程图片函数修改正版
图片自动保存到本地并利用aspjpeg为图片加水印
改进 ASP 的字符串处理性能
简单分页函数一 常用
LINE9的目录浏览源程序
使用XMLDOM在不支持FSO的服务器上
[原创]本人常用的asp代码
生成所有页面的效果+分页生成
[原创]asp+fso在线管理图片功能
ASPJPEG学习手记
ASP代码的对象化
[原创]关于Script的Defer属性

No. « 100 101 102 103 »

技术文章搜索

关键字

ASP 中的 网络寻呼机数据库版显示消息showmessage.asp

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 181 ::
收藏到网摘: n/a

  <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">
         &