• 沒有找到結果。

需求留言版子系統

在文檔中 蛀書蟲二手書拍賣 (頁 159-171)

第四章 系統建置

4.7 需求留言版子系統

要是沒有預期所想要的物品,可以來這裡徵求,可以刊登在全部類別,也可 以登在個別類別中。

此子系統分成了三個功能:

1. 新增留言 2. 搜尋留言 3. 刪除留言

1. 新增留言 (a)Input:

在填完主題和留言內容之後,選取“我要留言”即可將資料回傳給系統,如 果選擇“清除”,則會清除所有資料欄位,讓使用者可以重新輸入,如下圖 4.7.1 所示:

(b)Process:

function checkdata() {

var abr=document.doublecombo;

var check=false;

if(abr.subject.value=='') alert("請填主題!");

else if(abr.content.value=='') alert("請填內容!");

else

check=true;

return check;

}

function checkemail() {

var mail=document.doublecombo.email.value var rat=mail.indexOf('@')

}

<meta name="Microsoft Theme" content="strtedge 011">

<form action=留言檢查.asp method=post name=doublecombo onsubmit="return checkdata()">

<p align="center"><font size="5" color="#800000">張貼新文章</font> <hr>

<center>

<option>工商企管</option>

<option value="生產管理">生產管理</option>

<option value="企業管理">企業管理</option>

<option value="行銷廣告">行銷廣告</option>

<option value="金融投資">金融投資</option>

<option value="財務會統">財務會統</option>

<option value="組織管理">組織管理</option>

<option value="溝通談判">溝通談判</option>

<option value="經濟">經濟</option>

<option value="職場生涯">職場生涯</option>

<option value="其他">其他</option>

<script language="JavaScript">

<!--

var groups=document.doublecombo.mainclass.options.length var group=new Array(groups)

group[0][4]=new Option("財務會統","財務會統") group[0][5]=new Option("組織管理","組織管理") group[0][6]=new Option("溝通談判","溝通談判") group[0][7]=new Option("經濟","經濟")

group[0][8]=new Option("職場生涯","職場生涯")

group[1][2]=new Option("文學總論","文學總論") group[1][4]=new Option("各國文學","各國文學")

group[1][7]=new Option("寫作翻譯演說","寫作翻譯演說")

group[2][0]=new Option("地理","地理") group[2][1]=new Option("歷史","歷史") group[3][0]=new Option("幼兒","幼兒") group[3][1]=new Option("兒童","兒童") group[3][2]=new Option("青少年","青少年") group[3][3]=new Option("嬰兒","嬰兒")

group[4][1]=new Option("星座命理","星座命理") group[4][2]=new Option("美容服飾","美容服飾") group[4][4]=new Option("棋藝遊戲","棋藝遊戲")

group[5][0]=new Option("宗教","宗教") group[0][9]=new Option("其他","其他")

group[1][0]=new Option("人物傳記","人物傳記") group[1][1]=new Option("大眾文學","大眾文學") group[1][3]=new Option("古典小說","古典小說") group[1][5]=new Option("當代小說","當代小說") group[1][6]=new Option("詩詞曲賦","詩詞曲賦") group[1][8]=new Option("其他","其他")

group[4][0]=new Option("手工藝","手工藝")

group[4][3]=new Option("茶道插花","茶道插花") group[4][5]=new Option("運動","運動") group[4][6]=new Option("漫畫","漫畫")

group[4][7]=new Option("蒐集收藏","蒐集收藏")

group[5][1]=new Option("哲學","哲學")

group[6][1]=new Option("心理療法","心理療法") group[6][2]=new Option("民族學","民族學") group[6][4]=new Option("社會學","社會學")

group[6][7]=new Option("教育","教育") group[6][9]=new Option("語言學","語言學") group[6][10]=new Option("勵志","勵志") group[6][11]=new Option("總論","總論") group[6][13]=new Option("其他","其他")

group[7][1]=new Option("公共衛生","公共衛生")

group[7][4]=new Option("家庭婚姻","家庭婚姻")

group[7][7]=new Option("家庭醫藥保健","家庭醫藥保健") group[6][3]=new Option("法律","法律")

group[6][5]=new Option("政治","政治") group[6][6]=new Option("軍事","軍事") group[6][8]=new Option("傳播","傳播")

group[6][12]=new Option("禮俗","禮俗")

group[7][0]=new Option("中醫","中醫")

group[7][2]=new Option("生活 DIY","生活 DIY") group[7][3]=new Option("保健養生","保健養生") group[7][5]=new Option("家庭教育","家庭教育") group[7][6]=new Option("家庭園藝","家庭園藝") group[7][8]=new Option("疾病百科","疾病百科") group[7][9]=new Option("飲食天地","飲食天地") group[7][10]=new Option("瘦身美容","瘦身美容") group[7][11]=new Option("藥品學","藥品學") group[8][0]=new Option("工商企管","工商企管") group[8][1]=new Option("字辭典","字辭典") group[8][2]=new Option("考試用書","考試用書") group[8][3]=new Option("旅遊觀光","旅遊觀光")

group[10][2]=new Option("程式設計","程式設計") group[10][3]=new Option("資料庫","資料庫") group[10][4]=new Option("網際網路","網際網路") group[10][5]=new Option("影像處理","影像處理")

group[11][6]=new Option("地球科學","地球科學")

group[11][11]=new Option("農林漁牧礦","農林漁牧礦")

group[12][4]=new Option("音樂","音樂") group[12][6]=new Option("舞蹈","舞蹈")

group[12][9]=new Option("繪畫","繪畫") group[12][10]=new Option("攝影","攝影")

group[13][0]=new Option("主題導覽","主題導覽") group[10][6]=new Option("其他","其他")

group[11][0]=new Option("人類學","人類學")

group[11][1]=new Option("土木水利","土木水利") group[11][2]=new Option("化學","化學")

group[11][3]=new Option("天文","天文") group[11][4]=new Option("生物學","生物學")

group[11][5]=new Option("交通運輸","交通運輸") group[11][7]=new Option("物理","物理")

group[11][8]=new Option("建築","建築") group[11][9]=new Option("動物學","動物學") group[11][10]=new Option("植物學","植物學") group[11][12]=new Option("電子電機","電子電機") group[11][13]=new Option("數學","數學")

group[11][14]=new Option("機械工程","機械工程") group[11][15]=new Option("環境工程","環境工程") group[12][0]=new Option("古物","古物")

group[12][1]=new Option("建築","建築")

group[12][2]=new Option("美工設計","美工設計") group[12][3]=new Option("美學","美學")

group[12][5]=new Option("書法","書法") group[12][7]=new Option("雕塑","雕塑") group[12][8]=new Option("戲劇","戲劇")

group[14][0]=new Option("","")

var temp=document.doublecombo.secondclass

for (m=temp.options.length-1;m>0;m--) for (i=0;i<group[x].length;i++){

<input type=submit value=我要留言

>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

<hr>

<font size=5><a href=留言版.asp target=down>回到留言版</a></font>

</form>

(c)Output:

function redirect(x){

temp.options[m]=null

temp.options[i]=new Option(group[x][i].text,group[x][i].value) }

temp.options[0].selected=true }

//-->

</script><br>

<%response.write("主題:")%><br><input type=text size=30 name=subject><br>

<%response.write("留言內容:")%><br>

<textarea name=content rows=12 cols=60></textarea><br>

<input type=reset value=清除><br>

</center>

如果使用者在填寫欄位時有錯誤,則選擇“確定”之後,系統會出現警示框 顯示錯誤訊息,如下圖 4.7.2 所示:

圖 4.7.2 新增留言輸入欄位檢查

在確認填寫資料皆為正確後,系統會將留言寫入留言版資料庫中,並出現留 言成功的畫面,點選“回到留言版”回到留言版首頁,如下圖 4.7.3 所示:

2. 搜尋留言

當你要找某項留言或相關留言時,可以運用搜尋來尋找,可以用標題及帳號 來搜尋,更可以直接點選類別來搜尋,大大的加強了方便性。

(a)Input:

選取“搜尋留言”,選擇標題或帳號後,輸入關鍵字,按“搜尋”,則系統 會回傳搜尋結果,如下圖 4.7.4 和圖 4.7.5 所示:

圖 4.7.4 搜尋留言輸入

(b)Process:

<hr>

<form action=留言版.asp method=post>

<option name=title selected>搜尋標題</option>

<option name=id>搜尋帳號</option>

<input type=text name=find size="20">

<input type=submit value=搜尋></td></tr>

</table>

<center><font size=6 color=#800000>尋找留言</font></center><br>

<table border=1 width=50%>

<tr><td>

<select name="search">

</select>

</form>

(c)Output:

如果找不到相關書籍,系統則會顯示“抱歉,搜尋不到資料!!”,如下圖 4.7.6 所示:

3. 刪除留言

當發現留言不再需要或有錯需要刪掉重新留言時,可以用刪除留言來做

(a)Input:

經系統判別登入者為該留言之刊登者,在留言詳細資料頁面會多一個“刪除 留言”連結,欲刪除留言請按“刪除留言”,如下圖 4.7.7 所示

圖 4.7.7 使用者所刊登的留言

(b)Process:

<%

response.Buffer=True

username=Session("Username") If username=Empty Then

If m_no<>Empty Then

set conn=Server.CreateObject("ADODB.Connection") conn.Open "test123"

set rs=Server.CreateObject("ADODB.Recordset")

Else

response.write("<center><font size=6 color=blue>ERROR</font></center><br>") response.write("<p align=center><a href=留言版.asp>回到留言版</a></p>")

刪除成功後會傳回刪除成功訊息,點選“回到留言版”連結回到留言版首 頁,如下圖 4.7.8 所示

del_msg="delete from 留言版 where 留言編號='"&m_no&"'"

conn.Execute del_msg

response.write("<center><font size=6 color=blue>刪除成功</font></center><br>") response.write("<p align=center><a href=留言版.asp>回到留言版</a></p>")

End If

%>

(c)Output:

圖 4.7.8 會員刪除留言成功畫面

在文檔中 蛀書蟲二手書拍賣 (頁 159-171)