asp简单的ajax留言板(采用三层模)(1) - 中国站长下载,源码下载,站长工具下载

好久没有写过asp了,这回写个留言板还真觉得有点难度,竞然写了整整一天,哈哈.
  就只有留言其它的都什么也没写,采用三层结构(不知道算不算,本来对三层的概念很糊涂)

  演示www.zj55.com的留言板,希望各位大哥大姐如果发现有漏洞的话请在这里告诉我,千万不要黑我的网站,在这里小弟先谢过了.

  index.asp
  <%@ codepage=65001%>
  <%
  option explicit
  %>
  <% Response.Charset="utf-8"%>
  <% Session.CodePage=65001 %>
  
  
  
  
  
  <%
   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 = "<li><span>{0}</span> <span>{1}</span><br /><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



   做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。

软件：	ASP 源码 \| .NET源码 \| PHP 源码 \| JSP 源码 \| CGI 源码 \| 网页模板 \| 网页素材 \| 字体下载 \| 工具软件 \| 服务器类 \| 书籍教程
文章：	网页编程 \| 网页制作 \| 数据库区 \| 服务器区 \| 网络安全 \| 网站运营 \| 图形图象




中国站长下载	本页只接受PR>=4 IT类站点连接,申请连接,谢谢您们的支持!希望我们的下载站能够真正帮到中国的站长们！
	关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 Copyright © 2005-2006 ChinaZhan.Net. All Rights Reserved .