電子商務(wù)網(wǎng)站建設(shè)與管理實務(wù)講座ppt-資料下載頁
2024-10-18 17:56本頁面
【正文】 d If a href=?Page=amp。amp。末 頁 /a End If Set Rs = nothing % /td /tr /table /td /tr /table /body /html % If Request(action)=Delbook Then Call Del_Book() End If Sub Del_Book() id = Request(id) Page = Request(Page) (Delete From Guest_Book Where ID=amp。id) ?Page=amp。Pageamp。 End Sub % 任務(wù) 3：后臺留言管理系統(tǒng)的實現(xiàn) 一 、 留言板系統(tǒng)管理頁面 —— 分頁顯示 、 刪除頁面 二 、 留言的回復(fù) 、 修改頁面 二 、 留言的回復(fù) 、 修改頁面 圖 711 留言板系統(tǒng)管理員回復(fù)、修改頁面 代碼如下 。 !include file= !include file=inc/ html head meta equiv=ContentType content=text/html。 charset=gb2312 / title留言本 修改回復(fù) /title link href=inc/ rel=stylesheet type=text/css Script language=javascript function ChkBook() { if( == ) {alert(39。請留下留言主題！ 39。)。 ()。 return false。} if( ==) {alert(39。請輸入留言內(nèi)容！ 39。)。 ()。 return false。} } /Script /head body leftmargin=0 topmargin=0 table width=100% border=0 align=center cellpadding=0 cellspacing=0 tr td height=25 background=IMAGES/留言管理 回復(fù)、管理留言 /td /tr tr td height=25/td /tr tr td tr td % Dim Rs,Sql ID = trim(Request(ID)) Set Rs = () Sql = Select * From Guest_Book where ID =amp。ID Sql,Conn,1,1 If And Then p align=center目前還沒有留言！/p Else Page = Request(Page) % form name=AddBook method=post action=?action=EditBookamp。Page=%=Page%amp。ID=%=ID% onSubmit=return(ChkBook())。 table width=600 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=5DBBFF tr td width=80 height=30 align=center valign=middle bgcolor=FFFFFF留言者 /td td width=220 bgcolor=FFFFFF input name=User type=text id=User value=%=Rs(User)%/td td width=80 align=center valign=middle bgcolor=FFFFFF留言時間 /td td width=220 bgcolor=FFFFFF %=Rs(PostTime)%/td /tr tr td height=30 align=center valign=middle bgcolor=FFFFFF留言主題 /td td colspan=3 bgcolor=FFFFFF input name=Title type=text id=Title value=%=Rs(Title)% size=50/td /tr tr td height=150 align=center valign=middle bgcolor=FFFFFF留言內(nèi)容 /td td colspan=3 bgcolor=FFFFFF textarea name=Content cols=60 rows=8%=Rs(Content)%/textarea/td /tr tr td height=150 align=center valign=middle bgcolor=FFFFFF留言回復(fù) /td td colspan=3 bgcolor=FFFFFF textarea name=Reply cols=60 rows=8%=Rs(Reply)%/textarea/td /tr tr td height=30 colspan=4 align=center valign=middle bgcolor=FFFFFF input type=submit name=Submit2 value=提交 input type=reset name=Submit3 value=重置 /td /tr /table /form % End If Set Rs = nothing % /td /tr /table /body /html % If trim(Request(action))=EditBook Then Call Save_Book() End If Sub Save_Book() Dim User,Title,Content,Reply,Rs,Sql 39。ID = Trim((ID)) User = Trim((User)) Title = Trim((Title)) Content = Trim((Content)) Reply = Trim((Reply)) Set Rs = () Sql = Select * From Guest_Book Where ID = amp。IDamp。 Sql,Conn,2,3 Rs(User) = User Rs(Title) = Title Rs(Content) = Content 39。Rs(PostTime) = Now() Rs(Reply) = Reply Rs(ReplyTime) = Now() Set Rs = nothing ?Page=amp。Page End Sub %
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1