新微赢技术网

标题: ASP简单的ajax留言板(采用三层模式) [打印本页]

作者: 大陆猪头 时间: 2009-3-16 17:07
标题: ASP简单的ajax留言板(采用三层模式)
好久没有写过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

作者: 孔隆 时间: 2009-11-4 11:05
我来自火星刚到地球什么都不懂

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)