站长网_站长创业_站长主页_站长之家_易采站长站

会员投稿 投稿指南 站长资讯通告: asp简单的ajax留言板
搜索:
您的位置: 主页 > 教程 > 网页编程 > AJAX相关 > » 正文

asp简单的ajax留言板

来源: 易采站长站
代码如下:
<%@ 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")
Tags:
最新图文资讯
1 2 3 4 5 6
相关文章列表:
易采站长站 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 人才招聘 - 帮助 -