asp简单的ajax留言板

2016-02-19 13:00 14 1 收藏

今天图老师小编给大家展示的是asp简单的ajax留言板,精心挑选的内容希望大家多多支持、多多分享,喜欢就赶紧get哦!

【 tulaoshi.com - Web开发 】

代码如下:

%@ codepage=65001%
%
option explicit
%
% Response.Charset="utf-8"%
% Session.CodePage=65001 %
!-- #include file="AccHelper.asp" --
!-- #include file="Common.asp"--
!-- #include file="DAL_Guest.asp" --
!-- #include file="MOD_Guest.asp" --
!-- #include file="BLL_Guest.asp" --
%
 Dim mybll
 Dim myList
 Set mybll = new BLL_Guest
 Select Case Request("tCMD")
  Case "SAVE"
   mybll.Insert()
  Case "DEL"
   mybll.Delete()
 End Select
 myList = mybll.FindByPage()
%
h2客户留言/h2
p
form name="subForm" id="subForm"
 textarea id="con" name="con" cols="56" rows="6" wrap="VIRTUAL"/textarea
 input type="button" name="submit" value="提交留言" onclick="$('guest/index.asp?tCMD=SAVE&content='+escape(this.form.con.value))" /
/form
/p
%=myList%

BLL_Guest.asp
%
 '/// summary
 '/// 摘要说明。
 '/// /summary
 Class BLL_Guest

  Private mycom,mymod,mydal

  Private LI,UL

  Private DEL

  '获取信息
  Public Sub GetGuest()

   mydal.GetGuest(Id)

  End Sub

  '新增信息
  Public Sub Insert()

   mymod.Content = Request("content")
   mymod.re = Request("Re")
   mymod.Addtime = Now()
   mymod.Ip = request.servervariables("HTTP_X_FORWARDED_FOR")
   If len(mymod.Ip)=0 Then mymod.Ip = request.servervariables("REMOTE_ADDR")

   Call mydal.Insert(mymod)

  End Sub

  '更新信息
  Public Sub Update()

   Call mydal.Update(mymod)

  End Sub

  '删除信息
  Public Sub Delete()

   mydal.Delete(Request("Id"))

  End Sub

  '查找信息
  Public Function FindByPage()

   Dim PageSize,CurrentPage,WhereValue,OrderValue,RecordCount
   Dim objRS
   Dim tmp1,tmp2,tmp3,parms,i
   Dim tCMD
   tCMD = Request("tCMD")
   PageSize = "8"
   CurrentPage = Request("PageNo")
   If Len(CurrentPage)=0 Then
    CurrentPage=1
   End If
   WhereValue = ""
   OrderValue = "Id"
   Set objRS = mydal.FindByPage(PageSize,CurrentPage-1,WhereValue,OrderValue)
   i = 1
   RecordCount = mydal.Count(WhereValue)
   Do While Not objRS.EOF
    If tCMD="DEL" Then
     DEL = "a href=""?tCMD=DEL&Id="&objRS("Id")&"""删除/a"
    Else
     DEL = ""
    End If
    parms=Array(i,objRS("content"),objRS("ip"),objRS("addtime"),DEL)
    tmp1 = tmp1 & mycom.Format(LI,parms)
    objRs.Movenext
    i = i + 1
   Loop
   tmp3 = mycom.Page(PageSize,CurrentPage,RecordCount,"guest/index.asp?tCMD=LIST")
   parms=Array(tmp1,tmp3)
   tmp2 = tmp2 & mycom.Format(UL,parms)

   FindByPage = tmp2

  End Function

  Private Sub Class_Initialize()

   LI = "lispan{0}/span span{1}/spanbr /span作者:{2}/span span{3}/span span{4}/span/li" & vbCrLf
   UL = "UL{0}li{1}/li/UL"
   DEL = ""

   Set mycom = new Common
   set mymod = new MOD_Guest
   set mydal = new DAL_Guest

  End Sub

  Private Sub Class_Terminate()

   Set mycom = Nothing
   Set mymod = Nothing
   set mydal = Nothing

  End Sub

 End Class
%

DAL_Guest.asp
%
 '/// summary
 '/// 摘要说明。
 '/// /summary
 Class DAL_Guest

  Private SQL_01
  Private SQL_02
  Private SQL_03
  Private SQL_04
  Private SQL_05
  Private SQL_06
  Private SQL_07

  Private mycom,myacc,mymod

  '/// summary
  '/// 获得信息
  '/// /summary
  '/// param name="Id"判断字段/param
  '/// returns信息体/returns
  Public Function GetGuest(Id)

   Dim parms,SQL,objRS
   parms = Array(Id)
   SQL  = mycom.Format(SQL_01,parms)
   Set objRS = myacc.ExecuteReader(myacc.CONN_STRING,SQL)
   If  Not objRS.EOF then
    Call mymod.SetVar(objRs("Id"),objRs("Content"),objRs("Re"),objRs("Addtime"),objRs("Ip"))
    Set GetGuest = mymod
   Else
    GetGuest = Null
   End If

  End Function

  '/// summary
  '/// 插入信息
  '/// /summary
  '/// param name=""信息体/param
  Public Sub Insert(vmod)

   Dim parms,SQL
   parms = Array(vmod.Content,vmod.Re,vmod.Addtime,vmod.Ip)
   SQL  = mycom.Format(SQL_02,parms)
   Call myacc.ExecuteReader(myacc.CONN_STRING,SQL)

  End Sub

  '/// summary
  '/// 更新信息
  '/// /summary
  '/// param name=""信息体/param
  Public Sub Update(vmod)

   Dim parms,SQL
   parms = Array(vmod.Id,vmod.Content,vmod.Re,vmod.Addtime,vmod.Ip)
   SQL  = mycom.Format(SQL_03,parms)
   Call myacc.ExecuteReader(myacc.CONN_STRING,SQL)

  End Sub

  '/// summary
  '/// 删除信息
  '/// /summary
  '/// param name=""信息体/param
  Public Sub Delete(Id)

   Dim parms,SQL
   parms = Array(Id)
   SQL  = mycom.Format(SQL_04,parms)
   Call myacc.ExecuteNonQuery(myacc.CONN_STRING,SQL)

  End Sub

  '/// summary
  '/// 统计信息
  '/// /summary
  '/// param name=""信息体/param
  Public Function Count(WhereValue)

   Dim parms,SQL,objRS
   parms = Array(WhereValue)
   SQL  = mycom.Format(SQL_07,parms)
   Set objRS = myacc.Recordset(myacc.CONN_STRING,SQL)
   Count = objRS.RecordCount

  End Function

  '/// summary
  '/// 根据条件列出所有信息(带有分页)
  '/// /summary
  '/// param name="PageSize"每页记录数/param
  '/// param name="CurrentPage"页码/param
  '/// param name="WhereValue"判断值/param
  '/// param name="OrderValue"排序/param
  '/// returns返回objRS/returns
  Public Function FindByPage(PageSize,CurrentPage,WhereValue,OrderValue)

   Dim parms,SQL,objRS
   Dim s1
   If CurrentPage="0" Then   
    s1 =  PageSize & "|" + OrderValue & "|" & WhereValue
    parms = Split(s1,"|")
    SQL = mycom.Format(SQL_05,parms)
   Else
    s1 = PageSize & "|" & OrderValue & "|" + WhereValue & "|" & CurrentPage*PageSize
    parms = Split(s1,"|")
    SQL = mycom.Format(SQL_06,parms)
   End If

   Set objRS = myacc.ExecuteReader(myacc.CONN_STRING,SQL)
   Set FindByPage = objRS

  End Function


  Private Sub Class_Initialize()

   SQL_01 = "Select * From [Guest] Where Id = {0}"
   SQL_02 = "Insert into [Guest] ([Content],[Re],[Addtime],[Ip]) values('{0}','{1}','{2}','{3}')"
   SQL_03 = "Update [Guest] Set [Content]='{1}',[Re]='{2}',[Addtime]='{3}',[Ip]='{4}' Where Id = {0}"
   SQL_04 = "Delete From [Guest] Where Id In ({0})"
   SQL_05 = "Select Top {0} * From [Guest] Where Content Like '%{2}%' Order By {1} Desc,Id Desc"
   SQL_06 = "Select Top {0} * From [Guest] Where Content Like '%{2}%' And Id Not IN(Select Top {3} Id From [Guest] Where Content Like '%{2}%' Order By {1} Desc,Id Desc) Order By {1} Desc,Id Desc"
   SQL_07 = "Select * From [Guest] Where Content Like '%{0}%' "

   Set mycom = new Common
   Set myacc = new AccHelper
   Set mymod = new MOD_Guest

  End Sub

  Private Sub Class_Terminate()

   Set mycom = Nothing
   Set myacc = Nothing
   Set mymod = Nothing

  End Sub

 End Class
%

MOD_Guest.asp
%
 '/// summary
 '/// 摘要说明。
 '/// /summary
 Class MOD_Guest

  Public Id
  Public Content
  Public Re
  Public Addtime
  Public Ip

  Public Sub SetVar(vId,vContent,vRe,vAddtime,vIp)
   Id=vId
   Content=vContent
   Re=vContent
   Addtime=vAddtime
   Ip=vIp
  End Sub

 End Class
%

Common.asp
%
 '/// summary
 '/// 摘要说明
 '/// /summary
 Class Common

  '/// summary
  '/// 获得信息
  '/// /summary
  '/// param name="Id"需要内容/param
  '/// param name="Id"替换关键字/param
  '/// returns格式化后内容/returns
  Public Function Format(str,arr)

   Dim r,i
   r = str   
   For i = 0 To UBound(arr)
    r = Replace(r,"{"&i&"}",arr(i))
   Next
   Format = r

  End Function

  Public Function Page(PageSize,CurrentPage,RecordCount,PageUrl)

   const C_RECORDCOUNT = "合计STRONGFONT color=""red""{0}/FONT/STRONG篇 |"
   const C_FIRSTPAGE1 = " a href=""#"" onclick=""$('{0}&PageNo={1}')""首页/a"
   const C_FIRSTPAGE2 = " 首页"
   const C_PREVPAGE1 = " a href=""#"" onclick=""$('{0}&PageNo={1}')""上一页/a"
   const C_PREVPAGE2 = " 上一页"
   const C_NEXTPAGE1 = " a href=""#"" onclick=""$('{0}&PageNo={1}')""下一页/a"
   const C_NEXTPAGE2 = " 下一页"
   const C_LASTPAGE1 = " a href=""#"" onclick=""$('{0}&PageNo={1}')""尾页/a"
   const C_LASTPAGE2 = " 尾页"
   const C_CURRENTPAGE = " 页次:STRONGFONT color=""red""{0}/FONT/{1}/STRONG页"
   const C_PAGESIZE = " STRONG{0}/STRONG篇/页  "
   const C_GOTOPAGE = " 跳转:input type=""text"" name=""goto"" value=""{1}"" onchange=""$('{0}&PageNo='+this.value)"" style=""width:20px;border:1px""/  "

   Dim PageCount,pages
   Dim lRecordCount,lFirstpage,lPrevpage,lNextpage,lLastpage,lCurrentpage,lPagesize,lGotopage
   Dim p,parms

   If RecordCount Mod PageSize  0 Then
    pages = 1
   else
    pages = 0
   End If
   PageCount=CInt(RecordCount/PageSize + pages)

   parms=Array(RecordCount)
   lRecordCount = Format(C_RECORDCOUNT,parms)

   if CInt(CurrentPage)1 Then
    parms=Array(Pageurl,1)
    lFirstpage = Format(C_FIRSTPAGE1,parms)
    parms=Array(Pageurl,CInt(CurrentPage)-1)
    lPrevpage = Format(C_PREVPAGE1,parms)
   Else
    lFirstpage=C_FIRSTPAGE2
    lPrevpage=C_PREVPAGE2
   End If

   if CInt(CurrentPage)PageCount Then
    parms=Array(Pageurl,CInt(CurrentPage)+1)
    lNextpage = Format(C_NEXTPAGE1,parms)
    parms=Array(Pageurl,CInt(CurrentPage)+1)
    lLastpage = Format(C_LASTPAGE1,parms)
   Else   
    lNextpage=C_NEXTPAGE2
    lLastpage=C_LASTPAGE2
   End If

   parms=Array(CurrentPage,PageCount)
   lCurrentpage = Format(C_CURRENTPAGE,parms)
   parms=Array(PageSize)
   lPagesize = Format(C_PAGESIZE,parms)
   parms=Array(Pageurl,CurrentPage)
   lGotopage = Format(C_GOTOPAGE,parms)

   p=lRecordCount&lFirstpage&lPrevpage&lNextpage&lLastpage&lCurrentpage&lPagesize&lGotopage
   Page = p

  End Function

 End Class
%

AccHelper.asp
%
 '/// summary
 '/// AccHelper 的摘要说明。
 '/// /summary
 Class AccHelper

  Public CONN_STRING

  '/// summary
  '/// 执行ExecuteNonQuery
  '/// /summary
  '/// param name="connString"连接字符/param
  '/// param name="cmdText"sql命令/param
  Public Function ExecuteNonQuery(connString,cmdText)

   Dim objConn
   Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.Open connString
   objConn.Execute(cmdText)

  End Function

  '/// summary
  '/// 执行ExecuteReader
  '/// /summary
  '/// param name="connString"连接字符/param
  '/// param name="cmdText"sql命令/param
  '/// returnsRS/returns
  Public Function ExecuteReader(connString,cmdText)

   Dim objConn,objRS
   Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.Open connString
   Set objRS = objConn.Execute(cmdText)
   Set ExecuteReader = objRS

  End Function

  '/// summary
  '/// 执行Recordset
  '/// /summary
  '/// param name="connString"连接字符/param
  '/// param name="cmdText"sql命令/param
  '/// returnsRS/returns
  Public Function Recordset(connString,cmdText)

   Dim objConn,objRS
   Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.Open connString
   Set objRS = Server.CreateObject("ADODB.RecordSet")
   objRS.Open cmdText,objConn,1,3
   Set Recordset = objRS

  End Function

  Private Sub Class_Initialize()
   CONN_STRING = "provider = microsoft.jet.oledb.4.0;data source=" & Server.Mappath("db.mdb")
  End Sub

 End Class
%

来源:http://www.tulaoshi.com/n/20160219/1602749.html

延伸阅读
标签: Web开发
XML(Extensible Markup Language)是一种基于文本格式的标记语言,它注重对数据结构和数据意义的描述,实现了数据内容和显示样式的分离,而且是与平台无关的。由于XML注重数据内容的描述,因而,对于数据的检索非常有意义,我们不会再象HTML那样,检索出与我们要求无关的信息。另一方面,XML文件是数据的载体,利用XML作为数据库,不需要...
标签: PHP
  我们在留言板的设计中,遇到的最大问题就是如何让留言板具有翻页功能,而且可以自动判断是否到了最后一页,下面我就将我在设计留言板时用到的技术与大家分享: 首先连接数据库,这里就不讲了,下面就将每一条语句作详细的说明。 <?         .       &nbs...
标签: 手工制作
准备材料 准备好带孔眼的纽扣、牙签、纸张、胶水、剪刀就好。 牙签插进纽扣 把牙签一头剪掉,插进纽扣里。 设计版面 从纸张上剪下旗帜形状的小纸片,简单设计下版面。 粘贴 把小纸条粘贴到牙签上就好。 成品 想要留言的时候,就在背面写上话语吧~ 更多手工制作信息请看: 手工自制珍珠发卡 手工d...
陌陌留言板添加地点   进入编辑留言界面,点击选择留言地点,搜索或直接选择现有地点进行添加即可。 如图示:
标签: 电脑入门
在留言板中,QQ空间主人与访客都可以在此留言,为QQ空间与访客之间提供一个交流的平台。

经验教程

604

收藏

26
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部