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

时间:2008-10-07 12:23:35  来源:第二电脑网上收集  作者:

  第二电脑网导读:板,希望各位大哥大姐如果发现有漏洞的话请在这里告诉我,千万不要黑我的网站,在这里小弟先谢过了.      index.asp   <%@ codepage=65001%>   <%   option explicit   %>   <% Response.Charset="utf-8"%>   <% Sessio...
  正文:

好久没有写过ASP/ target=_blank class=infotextkey>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"
   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
  
   '/// <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


asp简单的ajax留言板(采用三层模式)》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/3506.html


关键字:

关于《asp简单的ajax留言板(采用三层模式)》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td