電子商務(wù)網(wǎng)站建設(shè)與管理實務(wù)-項目7(編輯修改稿)
2025-02-24 19:16 本頁面
【文章內(nèi)容簡介】 eturn false。 } } /Script /head body leftmargin=0 topmargin=0 table width=900 border=0 align=center cellpadding=0 cellspacing=0 tr td!include file= /td /tr tr tr td height=30 align=center%=Session(User)%，您好！ 請留下您的寶貴意見?。?！ /td /tr td form name=AddBook method=post action=?action=AddBook onSubmit=return(ChkBook())。 table width=600 border=0 align=center cellpadding=0 cellspacing=0 bordercolor=CCCCCC tr td height=30 align=center valign=middle留言主題 /td tdinput type=hidden name=User id=User value=%=Session(User)% input name=Title type=text id=Title size=50 /td /tr tr td align=center valign=middle留言內(nèi)容 /td tdtextarea name=Content cols=60 rows=8 id=Content/textarea/td /tr tr td height=35 colspan=2 align=center valign=middle input type=submit name=Submit2 value=提交 input type=reset name=Submit3 value=重置 /td /tr /table /form /td /tr tr td /td /tr tr td!include file= /td /tr /table p /p /body /html % If trim(Request(action))=AddBook Then Call Save_Book() End If Sub Save_Book() Dim User,Title,Content,Rs,Sql User = Trim((User)) Title = Trim((Title)) Content = Trim((Content)) Set Rs = () Sql = Select * From Guest_book Sql,Conn,2,3 Rs(User) = User Rs(Title) = Title Rs(Content) = Content Rs(PostTime) = Now() Rs(IP) = (REMOTE_ADDR) Rs(Reply) = Set Rs = nothing End Sub % 任務(wù) 2：留言發(fā)布頁面的實現(xiàn) ?一、 留言內(nèi)容顯示頁面 ?二、 ：留言簽寫頁面 ?三、 ：留言修改頁面 三、 ：留言修改頁面 在表單中顯示留言內(nèi)容 修改 更新數(shù)據(jù)庫 錯誤提示 修改留言 留言顯示當(dāng)前頁 JS判定 填寫錯誤 填寫正確 圖 78 留言修改頁面流程 圖 79 留言修改頁面 !include file= !include file=INC/ % If Session(User)= Then (?MsgI=1) End IF % html head meta equiv=ContentType content=text/html。 charset=gb2312 / title客戶留言 修改留言 /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=900 border=0 align=center cellpadding=0 cellspacing=0 tr td!include file= /td /tr tr td height=35 align=center%=Session(User)%，您好！ 請多提寶貴的意見或建議?。?！修改留言。 /td /tr tr td % Dim Rs,Sql ID = trim(Request(ID)) Set Rs = () Sql = Select * From Guest_Book where ID =ID Sql,Conn,1,1 If And Then p align=center目前還沒有留言！ /p Else Page = Request(Page) % form name=AddBook method=post action=?action=EditBookPage=%=Page%ID=%=ID% onSubmit=return(ChkBook())。 table width=600 border=1 align=center cellpadding=0 cellspacing=0 bordercolor=CCCCCC tr td width=80 height=30 align=center valign=middle留言時間 /td tdinput name=User type=hidden id=User value=%=Session(User)%%=Rs(PostTime)% /td /tr tr td height=30 align=center valign=middle留言主題 /td tdinput name=Title type=text id=Title value=%=Rs(Title)% size=50/td /tr tr td align=center valign=middle留言內(nèi)容 /td tdtextarea name=Content cols=60 rows=8%=Rs(Content)%/textarea/td /tr
物理相關(guān)推薦
鄂ICP備17016276號-1