Asp 留言簿簡單製作

最新推荐文章于 2024-10-02 05:39:15 发布
最新推荐文章于 2024-10-02 05:39:15 发布
阅读量848 收藏 1
点赞数
分类专栏： VBscript/VBS 文章标签： asp javascript sql function 数据库 qq
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/inventworm/article/details/1940926
版权
  因  因为有朋问我留言系统怎么来做,其实太简单啦,不过为了给大家说清楚还是决定做一个教程来说明如何制作,因为时间的问题,只能略详细的给大家把Code编出来,大家先自己看,不明白的给我QQ留言!
        其实在做一个项目的时候,不管项目的大小都要先对项目进行业务的简单分析,然后通过业务的需求实例化出我们的数据库结构. 我们做的是一个留言系统,为啦能让大家更好的理解和掌握,所以我尽量以实例来说!
        首先我们要设计出我们的数据库,根据业务需求,我们这个留言系统最大在线人数一般在20人以内,按照这个并发量我们就直接选择Microsoft 的ACCESS做为我们的数据库产品! 而不去选择SQL server or Mysql啦!
        我们要建立两张表分别是 Admin(用来存储管理员的相关信息) Message(用来存储留言者的信息及其留言内容和回复内容)
       Admin表中有---Id,Username,Password 三个字段      
       Message表中有 m_id,m_name,m_qq,m_email,m_content,m_attrib.m_time七个字段.
      设计完数据库后,我们就要使用HTML来布局出我们留言系统的雏形来,在使用CSS来美化修饰页面布局;设计草图如下:(仅仅是草图,所以大家在做的时候一定要用心做,相信大家一定比我做的好,我只是为了实现教程,所以有些简略)
下来我们来分析下我们的留言系统有几个主要页面组成:
      index.asp(留言系统首页)
           功能:
                 1.默认的留言及其浏览页面(还有一个附加的首页Default.asp,和index.asp页面一样只是为了不同的请求处理.
                  Default.asp页面编码(<%response.redirect "index.asp"%>)就这一句实现跳转到index,asp页面
              
      insert.asp(首页留言信息的后台处理页面)
          功能:
                 1.实现首页信息写入数据库中.

      admin.asp(管理员管理页面)
          功能:
                  1.实现留言的管理的相关事项.如删除留言,回复留言等.
                  2.留言系统的相关设置,如,动态改变版权,标题,每页要显示的留言条数.

      conn.asp(数据库连接处理页面)
          功能:
                 1.实现程序同数据库的访问,通过server对象来创建一个object建立Connection

      js.js(合法性数据验证页面)
          功能
                 1.实现首先数据提交的合法性验证;
    
     基本这个留言系统就由这几个文件组成;后面开发要是需要我们再增加页面!
     下面我们就要正式的开始,用ASP语言来实现我们的留言系统:

首先我们建立一个---------Conn.asp的文件,我们运用ADO技术来连接上我们建立好的数据库Worm.mdb
代码如下:
/  

 < % 
 option   explicit  
 dim  conn 
 set  conn  =  server.CreateObject( " adodb.connection " ) 
conn.open  " driver={Microsoft Access driver (*.mdb)};dbq= " & server.MapPath( " worm.mdb " ) 
% >  

 /  

index.asp 页面将会由两个表单组成,一个是管理员登陆表单,需要在后台处理登陆验证,还有一个就是留言发布表单,其中有这么几个文本字段,Username(留言者昵称),QQ(留言者QQ),Email(留言者Email地址),Content(留言内容),Attrib(留言属性,有Private和Public两个属性); 

下面是 -------- js.js文件,用来对发布留言表单合法性的简单验证 
 /  

 //  JavaScript Document 
 /*  
[360in.cn] (C) 2001 - 2007  Ruoman Inc. 
This  is  a freeware, 
$Author: M.A.O 
$Revision:  1.0  
$ Date :  2007 / 7 / 18  
 */  
 function  Check_login() 
{ 
 if (document.Admin_L.Login_user  =   "" ) 
  alert( " 用户名不能为空!!! " ); 
   document.Admin_L.Login_user.focus(); 
   return  false ; 
   } 
 function  check(){ 
 if (document.PostCon.Username.value  ==   "" ) 
{ 
  alert( " 用户名不能为空!!! " ); 
  document.PostCon.Username.focus(); 
  return  false ; 
} 
var QQ; 
QQ  =  document.PostCon.QQ.value; 
 if (document.PostCon.QQ.value  ==   "" ) 
{ 
  alert( " QQ号码不能为空!!! " ); 
  document.PostCon.QQ.focus(); 
  return  false ; 
  } 
 else  
{ 
   if (isNaN(QQ)) 
  { 
   alert( " 请您正确输入QQ号码!! " ); 
   document.PostCon.QQ.focus(); 
   return  false ;} 
   if (QQ.length  >   11  || QQ.length  <   5 ) 
  { 
   alert( " 请检查QQ位数 " ); 
   document.PostCon.QQ.focus(); 
   return  false ;} 
} 
var Content  =  document.PostCon.Content.value; 
var script  =   " script<>alertredirect "  
 if (document.PostCon.Content.value  ==   "" ) 
{ 
  alert( " 留言内容不能为空 " ); 
  document.PostCon.Content.focus(); 
  return  false ; 
  } 
 // else  
 // {  if (Content.indexOf(script) ! =   - 1 ) 
 //  alert( " 有非法内容!!! " ); 
 //   / document.PostCon.Content.focus(); 
 //  this.value  == "" ; 
 //  return  false ; 
 //  } 
  document.getElementById( " PostCon " ).submit(); 
} 
 function  JUMP() 
{ 
window.document.location.href = " index.asp?maomao=521&page= "   +  document.getElementById( " jumpPage " ).value 
} 
 function  clean() 
{ 
   if (confirm( " 确认要重置留言吗? " )) 
   document.PostCon.Content.value  =   "" ; 
   else  
   return  false ; 
   } 

 function  changeImg() 
{ 
var  now   =   new   Date (); 
    var sec  =   now .getHours(); 
var result  =  sec% 4 ; 
document.getElementById( " Logo " ).src = " Images/ "   +  result  + " .jpg " ; 
 // alert(result); 
} 
 function  delCon(m_id) 
{ 
 if (confirm( " 是否要删除留言? " )) 
  window.document.location.href = " reCon.asp?act=del&id= "   +  m_id; 
 else  
  return  false ; 
} 
var subWindow; 
 function  openWin(www) 
{ subWindow  =  window.open( ' reCon.asp?act=recontent&id='+www,'','width=500 height=300'); 
// var Content; 
 // Content  =   " <html><head><title>Welcome to my site</title><head><body> "  
 // Content  +=   " <textarea name='textarea' cols='50' rows='8' align='center'></textarea class='recontent'> "  
 // Content  +=   " <input type='button' value='This is new Window'></body></html> "  
 // subWindow.document.write(Content); 
} 

/

下面是首页留言处理的后台程序-------insert.asp文件
/
< ! --  #include file = " conn.asp "   -->  

 < % 
 dim  rs,sql 
 if  request.QueryString( " act " ) = ""   then  
      response.Write  " <script language='javascript'>window.alert('非法提交');window.document.location.href='index.asp'</script> "  
 else  
      set  rs  =  server.CreateObject( " adodb.recordset " ) 
     sql  =   " Message "  
     rs.open sql,conn, 1 , 3  
     rs.addnew 
     rs( " m_name " )  =  request.Form( " Username " ) 
     rs( " m_qq " )  =  request.Form( " QQ " ) 
     rs( " m_email " )  =  request.Form( " Email " ) 
     rs( " m_content " )  =  request.Form( " Content " ) 
     rs( " m_attrib " )  =  request.Form( " attrib " ) 
     rs.update 
     rs.close 
      set  rs  =   nothing  
     response.Write  " <script language='javascript'>window.alert('发布留言成功!!!');window.document.location.href='index.asp'</script> "  
 end   if  
% >  

 /  

为啦让每页显示我们指定的页数,我写好啦一个翻页功能代码   -- 如下  ---  

 /  
 // Frist Section 

 < % 
    dim  rs,sql,pagelist,page 
    if  request.QueryString( " page " )  =   ""   then  
        page  =   1  
    else  
        page = cint (request.QueryString( " page " )) 
    end   if  
    pagelist  =   3  
    set  rs  =  server.CreateObject( " adodb.recordset " ) 
   sql  = " select top  "   & page * pagelist &   "  * from Message order by m_id desc "  
   rs.open sql,conn, 1 , 1  
   rs.pagesize  =  pagelist 
   rs.absolutepage  =  page 
  % >  
 /  


 /  
 // Second  Section 
 < % 
     dim  Link,Totalpage,Tnum 
    Link  =   " index.asp?maomao=521 "  
    sql  =   " select count(*) as num from Message "  
    rs.open sql,conn, 1 , 1  
    Tnum  =  rs( " num " ) 
    Totalpage  =  Tnum  & # 92 ; pagelist 
     if  Tnum  mod  pagelist  >   0   then  Totalpage  =  Totalpage  +   1  
         response.Write  "  总  "   & Totalpage &   "  页 第  "   & page &   " 页 "  
     if  page  =   1   then  
         response.Write  "  首页 上一页  "  
     else  
         response.Write  " <a href=  "   & Link &   " &page=1> 首页 </a> <a href=  "   & Link &   " &page= "   & page - 1 &   " > 下一页 </a> "  
     end   if    
     if  page  <  Totalpage  then  
         response.Write  " <a href= "   & Link &   " &page= "   & page + 1 &   " >下一页</a> <a href=  "   & Link &   " &page=  "   & Totalpage &   " >末页</a> "  
     else  
         response.Write  "  下一页 末页  "  
     end   if  
     
   % >    

 /  

 // 这两段翻页代码都是增加在首先文件index.asp中的! 

 /  

管理员的验证登陆页面代码.....如下 

CheckLogin.asp 
/// 
<!-- #include file="conn.asp" --> 
<% 
dim username,password,rs,sql 
username = trim(request.Form("Login_user")) 
password = trim(request.Form("Login_pass")) 
'response.Write username 
'response.Write password 
if request.QueryString("act")<>"Login" then 
      response.Write "<script language='javascript'>window.alert('非法参数');history.go(-1);</script>" 
else 
      set rs = server.CreateObject("adodb.recordset") 
      sql ="select * from Admin" 
      rs.open sql,conn,1,1 
      if username <> rs("Username") or password <> rs("Password") then 
           response.Write "<script>window.alert('用户名密码错误');history.go(-1);</script>" 
      else 
          Session("Admin_name") = username 
          Session("Admin_pass") = password 
          response.Write "<script language='javascript'>window.alert('欢迎" &Session("Admin_name")& "登陆');history.go(-1);</script>" 
      end if 
end if 
%> 

// 

留言处理页面 一 reCon.asp 
 //  
 < % 
 dim  rs,sql 
 if  request.QueryString( " act " ) = " del "   then  
  sql  = " delete from Message where m_id= " & request.QueryString( " id " ) 
  conn.execute sql 
  response.Write  " <script language='javascript'>document.location.href='index.asp'</script> "  
% >  
 < % 
 else  
   if  request.QueryString( " act " ) = " recontent "   then  
    ' sql = "update Message set m_recontent='" &request.Form("Recontent")& "' where m_id="&request.QueryString("id") 
    ' conn.execute sql 
    set  rs  =  server.CreateObject( " adodb.recordset " ) 
    ' sql = "Update Message set m_recontent='" &request.Form("Recontent")& "' where m_id="&request.QueryString("id") 
    ' conn.execute sql 
   sql  =   " select * from Message where m_id= " & request.QueryString( " id " ) 
   rs.open sql,conn, 1 , 1  
    ' rs("m_recontent") = request.Form("Recontent") 
    ' rs.update 
   end   if  
% >  

     < % 
 end   if  
% >  
 //  
留言处理页面2  -------------   backCon.asp 
  

 < ! --  #include file = " conn.asp "   -->  
 < % 
 if  request.QueryString( " act " ) = " backCon "   then  
    if  request.form( " Recontent " )  =   ""   then  
   response.write  " <script language='javascript'>alert('回复不能为空');location.href='reCon.asp';</script> "  
    else  
     dim  val,sql 
     val  =  request.Form( " Recontent " ) 
    sql  = " update Message set m_recontent=' "   & val &   " ' where m_id= " & request.QueryString( " id " ) 
    conn.execute sql 
    response.Write  " <script language='javascript'>window.alert('回复留言成功!!!');this.close();</script> "  
    end   if  
 else  
  response.Redirect( " index.asp " ) 
 end   if  
   
% >  
 ///  
inventworm
关注
专栏目录
asp mysql 留言本_手把手教你用ASP制作留言本
weixin_34698121的博客
01-21 366
六、制作管理登陆页面留言本的管理功能对于留言本来说就不言而喻了，像论坛的登陆功能就是一个很好的例子，不过我们做留言本基本上有删除功能就行了，写这个教程是为了更多的ASP入门者更好的了解ASP，所以旨在学习用，当然也可以在这基础上添加更多的功能，比如回复留言者。好了，开始了，还是按照以前的，用Dreamweaver做一个登陆页面，如下图：把用户名的表单名称设置为admin，密码的表单名称设为pass...
asp mysql 留言本_手把手教你设计ASP+ACCESS留言本
weixin_28894423的博客
01-21 711
准备工作：安装好ASP服务器(IIS或PWS)+ACCESS(Windows系统自带)。为了尽量保证无任何问题，建议按照课程中所讲的步骤操作。好了，准备工作已经做好，下面我们将详细介绍其步骤： 一个 留言 版应该有哪些内容呢？有：访客名字( Name )、访客主页( Hpage )准备工作：安装好ASP服务器(IIS或PWS)+ACCESS(Windows系统自带)。为了尽量保证无任何问题，建议按...
ASP+SQLserver2008留言板自做源码【直接可用】
07-21
ASP+SQLserver2008留言板自做源码【直接可用】 并奉上了数据库备份文件
[ASP学习] —— 1、简单的留言薄
「 GG之绿草 」
04-05 1918
留言填写页面：===================================================================================                                  留言薄                                                          　姓名：      
asp+access+as3+flash留言本教程-asp篇
wangangie23
04-10 137
[1b] [color="#ff0000"]需要源文件留下email[/color] [color="#ffffff"]成业作品，欢迎转载 [/color] [/1b] [color="#ffffff"]FLASH简单留言本[/color] [1b]文件一：[/1b] 建立一个文本文档复制下面的内容（不包含行号），另存为conn.asp放在IIS测试目录里 1        ...
留言板asp mysql_ASP简单入门(制作一个简单的留言板 )
weixin_28929303的博客
02-11 622
语句……%><2>定义变量dim语句dim a,ba=10b=”ok!”%>注意：定义的变量可以是数值型，也可以是字符或者其他类型的<3>简单的控制流程语句1. If 条件1 then语句1elseif 条件2 then语句2else语句3endif2.while 条件语句wend3.for count=1 to n step m语句1exit for语句2ne...
html5留言板网页设计,网页设计制作-留言板
热门推荐
weixin_30543595的博客
06-08 1万+
制作留言板1、留言板分为填加留言、保存留言、显示留言、管理留言等模块。显示留言页面应为系统默认页面或首页，管理页面由站长进行回复与删除管理。2、文件说明：default.asp(留言显示页面)显示留言按时间的降序排列。add.asp(添加留言页面)将留言信息存入数据库。admin.asp(管理页面)显示留言并提供站长回复和删除功能。del.asp(删除页面)reply.asp(站长回复页面)log...
asp毕业设计——基于asp+access的WEB网上留言板设计与实现（毕业论文+程序源码）——网上留言板
m0_66238867的博客
07-14 2737
大家好，今天给大家介绍基于asp+access的WEB网上留言板设计与实现，文章末尾附有本毕业设计的论文和源码下载地址哦。文章目录： 本论文概述了ACCESS数据库及其相关的一些知识，着重论述ACCESS数据库和ASP的中间技术，构建一个简单的留言板。具体的实现是构造一个留言板系统，能很方便的和同学沟通和交流。留言板具有功能强大、使用方便的特点。用户以个人的身份进入，查看留言，以及在留言板中写下自已要留言的内容。管理员可根椐管理员用户名和密码进入，进行适当的修改和删除。在此设计中，主要的技术有：ASP，HT
ASP简单入门(制作一个简单的留言板 )
weixin_30426957的博客
05-22 452
ASP简单入门(制作一个简单的留言板 ) 来源: 山里娃信息网 <% 语句 …… %> <2>定义变量dim语句 <% dim a,b a=10 b=”ok!” %> 注意：定义的变量可以是数值型，也可以是字符或者其他类型的 <3>简单的控制流程语句 1. If 条件1 then 语句1 elseif 条...
ASP源码 ASP留言板 ASP留言簿 留言簿源码
12-13
这个源码包提供了一个基于ASP技术的简单留言板系统，它可以帮助初学者了解ASP编程的基本概念，以及如何构建交互式的Web应用。 在ASP中，HTML（HyperText Markup Language）通常被用来构建页面结构，而ASP代码则嵌入...
asp留言簿（很适合新手入门的留言簿，内含留言头像，心情，管理员删除，分页显示留言等功能齐全的留言簿，这是我第一次做得作业，希望对asp入门的朋友有帮助）
08-27
这是一个非常适合新手做得asp留言簿，适合入门学习，没有难得代码。很容易理解。
ASP.NET 制作简易留言板
12-18
在这个“ASP.NET 制作简易留言板”的项目中，我们将深入探讨如何使用C#编程语言来实现一个基础的在线交互功能。 首先，我们需要创建一个新的ASP.NET Web Forms项目。在Visual Studio中，选择“新建项目”，然后在...
制作简单留言板
05-15
使用ASP制作简单留言板，每一步都讲述的很清楚。对于初学者也能很好的应用，学习简单保证一学就会
ASP留言板制作.rar
03-05
这个"ASP留言板制作.rar"的压缩包很可能包含了教程或源代码，帮助学习者理解如何使用ASP来构建一个简单的在线留言板系统。在教育领域，这样的实践项目是学习Web开发基础的好方法。 首先，我们需要了解ASP的基本概念...
ASP留言板制作.pdf
12-14
【ASP留言板制作】教程主要涵盖了三个关键知识点：安装与调试ASP运行环境，设计数据库，以及连接数据库。 首先，ASP（Active Server Pages）是一种基于服务器端的脚本环境，用于生成动态网页。在学习和开发ASP程序...
ASP留言本
mayouyou的专栏
02-13 1742
  、安装与调试（教程后附源文件下载）　　常听朋友感叹ASP程序难学不易懂，不过我起初学习这门技术的时候也有过这样的感悟。从今天开始，我将以我学ASP的经验来做一个简单的ASP留言本，这个留言本用了Access数据库，所以务必请大家要跟我一起做的朋友都安装好Office软件，相信各位自己的电脑上都有了。好了，开始。创建ASP的运行环境（安装IIS）　　IIS(Internet Informatio
Vue实战教程：如何用JS封装一个可复用的Loading组件
Jiaberrr的博客
09-28 494
通过以上步骤，我们成功在Vue项目中封装了一个可复用的Loading组件。在实际开发中，我们可以根据项目需求对Loading组件进行样式和功能的扩展，使其更加完善。封装组件是提高代码复用性和维护性的有效手段，希望本文能对你有所帮助。
如何使用Redisson的布隆过滤器？
最新发布
付聪
10-02 150
【代码】如何使用Redisson的布隆过滤器？
前端规范工程-2：JS代码规范（Prettier + ESLint）
Vinca@的博客
09-26 815
Prettier 主要关注代码的格式，而 ESLint 则关注代码的质量和规范。结合使用这两个工具，可以极大地提高代码的可读性和维护性，同时减少潜在的错误和不一致性。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值