asp简单的ajax留言板(采用三层模式)

2016-01-29 11:26 8 1 收藏

asp简单的ajax留言板(采用三层模式),asp简单的ajax留言板(采用三层模式)

【 tulaoshi.com - Javascript 】

 
好久没有写过asp了,这回写个留言板还真觉得有点难度,竞然写了整整一天,哈哈.
就只有留言其它的都什么也没写,采用三层结构(不知道算不算,本来对三层的概念很糊涂)
演示www.zj55.com的留言板,希望各位大哥大姐如果发现有漏洞的话请在这里告诉我,千万不要黑我的网站,在这里小弟先谢过了.
index.asp
<%@ 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" [next]
   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")

来源:http://www.tulaoshi.com/n/20160129/1482377.html

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

经验教程

644

收藏

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