|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天ajax很久没有写过asp了,这回写个留言板还真以为有点难度,竞然写了整整一天,哈哈.
就只要留言别的的都甚么也没写,接纳三层布局(不晓得算不算,原本对三层的观点很懵懂)
演示的留言板,但愿列位年老年夜姐假如发明有毛病的话请在这里告知我,万万不要黑我的网站,在这里小弟先谢过了.
index.asp
<%@codepage=65001%>
<%
optionexplicit
%>
<%Response.Charset="utf-8"%>
<%Session.CodePage=65001%>
<!--#includefile="AccHelper.asp"-->
<!--#includefile="Common.asp"-->
<!--#includefile="DAL_Guest.asp"-->
<!--#includefile="MOD_Guest.asp"-->
<!--#includefile="BLL_Guest.asp"-->
<%
Dimmybll
DimmyList
Setmybll=newBLL_Guest
SelectCaseRequest("tCMD")
Case"SAVE"
mybll.Insert()
Case"DEL"
mybll.Delete()
EndSelect
myList=mybll.FindByPage()
%>
<h2>客户留言</h2>
<p>
<formname="subForm"id="subForm">
<textareaid="con"name="con"cols="56"rows="6"wrap="VIRTUAL"></textarea>
<inputtype="button"name="submit"value="提交留言"onclick="$(guest/index.asp?tCMD=SAVE&content=+escape(this.form.con.value))"/>
</form>
</p>
<%=myList%>
BLL_Guest.asp
<%
///<summary>
///择要申明。
///</summary>
ClassBLL_Guest
Privatemycom,mymod,mydal
PrivateLI,UL
PrivateDEL
猎取信息
PublicSubGetGuest()
mydal.GetGuest(Id)
EndSub
新增信息
PublicSubInsert()
mymod.Content=Request("content")
mymod.re=Request("Re")
mymod.Addtime=Now()
mymod.Ip=request.servervariables("HTTP_X_FORWARDED_FOR")
Iflen(mymod.Ip)<=0Thenmymod.Ip=request.servervariables("REMOTE_ADDR")
Callmydal.Insert(mymod)
EndSub
更新信息
PublicSubUpdate()
Callmydal.Update(mymod)
EndSub
删除信息
PublicSubDelete()
mydal.Delete(Request("Id"))
EndSub
查找信息
PublicFunctionFindByPage()
DimPageSize,CurrentPage,WhereValue,OrderValue,RecordCount
DimobjRS
Dimtmp1,tmp2,tmp3,parms,i
DimtCMD
tCMD=Request("tCMD")
PageSize="8"
CurrentPage=Request("PageNo")
IfLen(CurrentPage)<=0Then
CurrentPage=1
EndIf
WhereValue=""
OrderValue="Id"
SetobjRS=mydal.FindByPage(PageSize,CurrentPage-1,WhereValue,OrderValue)
i=1
RecordCount=mydal.Count(WhereValue)
DoWhileNotobjRS.EOF
IftCMD="DEL"Then
DEL="<ahref=""?tCMD=DEL&Id="&objRS("Id")&""">删除</a>"
Else
DEL=""
EndIf
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
EndFunction
PrivateSubClass_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=""
Setmycom=newCommon
setmymod=newMOD_Guest
setmydal=newDAL_Guest
EndSub
PrivateSubClass_Terminate()
Setmycom=Nothing
Setmymod=Nothing
setmydal=Nothing
EndSub
EndClass
%>
<p>DAL_Guest.asp
<%
///<summary>
///择要申明。
///</summary>
ClassDAL_Guest
PrivateSQL_01
PrivateSQL_02
PrivateSQL_03
PrivateSQL_04
PrivateSQL_05结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。 |
|