BLL_Guest.asp <% '/// <summary> '/// 摘要说明。 '/// </summary> Class BLL_Guest
Private mycom,mymod,mydal
Private LI,UL
Private DEL
'获取信息 Public Sub GetGuest()
站长网 www.admin5.com
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()
网站精华 top.admin5.com
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) 站长交易论坛 bbs.admin5.com 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()
网站精华 top.admin5.com
Set mycom = Nothing Set mymod = Nothing set mydal = Nothing
End Sub
End Class %>
DAL_Guest.asp <% '/// <summary> '/// 摘要说明。 '/// </summary> Class DAL_Guest
'/// <summary> '/// 获得信息 '/// </summary> '/// <param name="Id">判断字段</param> '/// <returns>信息体</returns> Public Function GetGuest(Id) IDC信息 idc.admin5.com 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 站长网 www.admin5.com '/// <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)
