網(wǎng)站建設(shè)與web設(shè)計實驗指導(dǎo)書(編輯修改稿)
2025-08-31 05:02 本頁面
【文章內(nèi)容簡介】 zip=(zip) phone=(phone) br用戶名： amp。 username brbr密碼： amp。 pass brbr確認(rèn)密碼： amp。 fpass brbr取回密碼問題： amp。 wenti brbr取回密碼答案： amp。 daan brbr真實姓名： amp。 name brbr城市： amp。 city brbr詳細(xì)地址： amp。 address brbr郵編： amp。 zip brbr電話： amp。 phone amp。 br %實驗四 制作一個聊天室實驗?zāi)康膶嶒炓髮嶒災(zāi)繕?biāo)編寫一個簡單的聊天室應(yīng)用程序?qū)嶒灢襟E1．編寫一個聊天室的登錄頁面。在表單的文本框中輸入昵稱后，單擊“進(jìn)入”按鈕，方可進(jìn)入聊天室頁面（）。如下圖所示：要求昵稱不為空才能進(jìn)入聊天室頁面，并且顯示在線人數(shù)。提示：（1）顯示在線人數(shù)的代碼如下：%=Application(“user_online”)%（2）判斷昵稱是否為空的check_Null（）函數(shù)代碼如下：Script Language=JavaScript ! function check_Null(){ if (==){ alert(昵稱不能為空!)。 return false。 } return true。 } // /Script2．編寫發(fā)言內(nèi)容提交表單頁面。頁面顯示如下：% IF Request(say) Then 39。獲取發(fā)言的有關(guān)信息 Dim say,mycolor,myemote,user_name 39。聲明變量待用 user_name=Session(user_name) 39。返回用戶昵稱 say=(Request(say)) 39。返回發(fā)言，并用HtmlEncode編碼 mycolor=Request(mycolor) 39。返回本次發(fā)言的顏色 myemote=Request(myemote) 39。返回本次發(fā)言表情 If myemote=無 Then myemote= End If 39。下面三句將得到本次發(fā)言的字符串 Dim sayStr sayStr=small amp。 user_name amp。 Time amp。 myemote amp。 說：/small sayStr=sayStr amp。 font color=39。 amp。 mycolor amp。 39。 amp。 say amp。 /font 39。下面幾句將本次發(fā)言信息保存到Application中 39。先鎖定 Application(show)= sayStr amp。 br amp。 Application(show) If Len(Application(show))10000 Then 39。如果發(fā)言總長度超過10000個字符，則截斷為10000 Application(show)=Mid(Application(show),1,10000) End If 39。解除鎖定 End If %3．編寫聊天內(nèi)容顯示頁面。頁面顯示如下：meta equiv=refresh content=5 ‘每5秒刷新一次腳本代碼如下：% Application(show) 39。顯示聊天內(nèi)容%4．編寫聊天室頁面。該頁面采用框架結(jié)構(gòu)，分成兩個部分，上面顯示所有用戶的發(fā)言內(nèi)容頁面（），下面顯示發(fā)言的提交表單頁面（）。如圖所示：提示：把用戶昵稱保存到session對象中，來訪者信息和在線人數(shù)+1保存到application對象中。代碼如下：% Session(user_name)=Request(user_name) 39。將用戶昵稱保存到session中 39。下面幾句返回來訪者信息 Dim sayStr sayStr=來
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1