【正文】 %loop%代碼 413 在點(diǎn)擊某分類后將進(jìn)入相應(yīng)分類下的所有交易信息列表。西安交通大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 45 圖 49 分類信息列表() 搜索信息動(dòng)態(tài)頁(yè)面 ：圖 410 搜索信息()提交搜索關(guān)鍵字后，由 ，并負(fù)責(zé)在數(shù)據(jù)庫(kù) info表中查找相應(yīng)表項(xiàng)然后顯示搜索結(jié)果。圖 411 信息搜索結(jié)果 ()西安交通大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）%kind=ReplaceBadChar(trim((kind))) 39。kind存儲(chǔ)信息類型kw=ReplaceBadChar(trim((keyword))) 39。kw存儲(chǔ)關(guān)鍵字keyword=Split(Trim(kw)) 39。用 Split函數(shù)將關(guān)鍵字按空格分為幾個(gè)子串sql=select * from info where info_kind=39。amp。kindamp。39。 and info_status=39。有效39。39。以下借助分割得到的子串分別以構(gòu)筑以標(biāo)題或詳情為查詢內(nèi)容的 SQL語(yǔ)句sql=sql+ and info_title like 39。%For i = 0 To UBound(keyword)sql = sql + keyword(i)If i = UBound(keyword) Thensql = sql + %39。Elsesql = sql + %39。 and info_title like 39。%End IfNextsql=sql+ OR info_detail like 39。%For i = 0 To UBound(keyword)sql = sql + keyword(i)If i = UBound(keyword) Thensql = sql + %39。Elsesql = sql + %39。 and info_detail like 39。%End IfNextsql=sql+ order by info_id descset rs=() sql,conn,1,1% tr td/td td height=23 colspan=3 valign=top class=tableHead所有%=kind%信息中關(guān)鍵字為“%=kw%”的搜索結(jié)果（點(diǎn)擊查看詳情）/td /tr %if then% tr td/tdtd height=23 colspan=3 valign=top沒(méi)有您查找的交易信息！/td /tr %西安交通大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 47 end ifdo while not % tr td/tdtd height=20 valign=top class=info%if trim(rs(info_kind))=出售 then% [font color=FF0000出售/font] %else% [font color=0000FF求購(gòu)/font] %end if% a href=?id=%=rs(info_id)%%=rs(info_title)%/a (%=rs(info_status)%) /td td width=153 align=center valign=middle class=info%=rs(info_user)%/td td width=138 align=center valign=middle class=info%=rs(info_date)%/td /tr % loop %代碼 414 修改資料此功能允許用戶對(duì)注冊(cè)時(shí)設(shè)定的密碼及個(gè)人資料進(jìn)行修改或補(bǔ)充。西安交通大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）圖 412 修改資料()%pass=ReplaceBadChar(trim((pass))) 39。原密碼npass=ReplaceBadChar(trim((npass)))　　39。新密碼if pass then user=session(user) sql=select * from [user] where user_name=39。amp。useramp。39。 set rs=() sql,conn,1,1if trim(rs(user_pass))pass then 39。驗(yàn)證原密碼是否正確 script LANGUAGE=39。javascript39。alert(39。用戶名或密碼錯(cuò)誤!!39。)。/script else 39。如果正確，則更新密碼 sql=update [user] set user_pass=39。amp。npassamp。39。 where user_name=39。 amp。useramp。39。 (sql) session(user)=%script language=39。javascript39。alert(39。密碼修改成功！請(qǐng)用新密碼登錄！39。)。 (39。39。)。/script% end ifend if%代碼 415 西安交通大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 49 用戶評(píng)論在每個(gè)交易信息詳情頁(yè)面的下方，設(shè)置了發(fā)表評(píng)論的表單。正在瀏覽此交易信息的用戶可以方便地填寫(xiě)表單，對(duì)當(dāng)前信息進(jìn)行評(píng)論。再次打開(kāi)此頁(yè)面時(shí)，下方會(huì)顯示已有的評(píng)論。此功能方便了用戶之間關(guān)于某一特定交易信息的交流。圖 413 用戶評(píng)論()每一條評(píng)論實(shí)質(zhì)上是 ment表中的一個(gè)表項(xiàng)，包括昵稱、附屬信息的 ID以及評(píng)論內(nèi)容等列。 中的腳本程序接受評(píng)論表單的內(nèi)容并用insert語(yǔ)句將評(píng)論內(nèi)容插入數(shù)據(jù)庫(kù) ment表中。 %info_id=(info_id)user=(user)detail=(detail)set rs=()sql=insert into [ment] (ment_info, ment_user, ment_detail, ment_date) values(39。amp。info_idamp。39。,39。amp。useramp。39。,39。amp。detailamp。39。,39。amp。date()amp。39。) sql,conn,1,1%script LANGUAGE=39。javascript39。alert(39。評(píng)論發(fā)表成功！39。)。西安交通大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）(39。?id=amp。info_idamp。39。)。/script代碼 416　 我的關(guān)注有些用戶可能會(huì)在瀏覽過(guò)程中對(duì)某一信息產(chǎn)生興趣，希望能夠長(zhǎng)期關(guān)注。為了避免每次查看此信息時(shí)重復(fù)尋找，特別開(kāi)發(fā)了“我的關(guān)注”功能。用戶在瀏覽某一交易信息時(shí)，可以點(diǎn)擊“添加至我的關(guān)注”將當(dāng)前信息添加到關(guān)注列表里。圖 414 信息詳情頁(yè)面中“添加至我的關(guān)注”功能()每一條關(guān)注內(nèi)容本質(zhì)上是數(shù)據(jù)庫(kù) basket表中的一個(gè)表項(xiàng)，包括用戶名和信息 ID等字段。用戶點(diǎn)擊“添加至我的關(guān)注”后，調(diào)用 文件將當(dāng)前登錄用戶名和當(dāng)前瀏覽的信息 ID存入 basket表中。西安交通大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 51 %user=session(user)info_id=(info_id)sql = insert into [basket](info_id, user_name) values(39。amp。info_id　amp。39。,39。 amp。useramp。39。)(sql)%script language=39。javascript39。alert(39。成功添加至我的關(guān)注！39。)。 (39。?id=%=info_id%39。)。/script代碼 417 以后只需要點(diǎn)擊導(dǎo)航條中的“我的關(guān)注”即可查看關(guān)注列表，進(jìn)一步可取消某一關(guān)注或具體查看詳細(xì)內(nèi)容。圖 415 我關(guān)注的交易信息列表()%sql=select * from [basket],[info] where =39。amp。 session(user)amp。39。 and = order by basket_id descset rs=() sql,conn,1,1%table width=769 border=0 align=left cellpadding=5 cellspacing=0 bgcolor=D6EDB7 tr td class=info /td td class=tableHead我關(guān)注的交易信息（點(diǎn)擊查看詳情）/td td class=info /td td class=info /td /tr西安交通大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） tr td class=info /td td colspan=3 class=infohr //td /tr%do while not set title=rs(info_title)x=len(title)if x20 thentitle=left(trim(title),30)amp。...end if% tr td width=54 class=info /td td width=458 align=left class=info%if trim(rs(info_kind))=出售 then% font color=FF0000[出售]/font %else% font color=0000FF[求購(gòu)]/font %end if% a href=?id=%=rs(info_id)%%=title%(%=rs(info_status)%)/a/td td width=90 class=info%=rs(info_user)%/td td width=85 class=infoa href=?basket_id=%=rs(basket_id)%取消關(guān)注/a/td /tr%loop%代碼 418 站內(nèi)短訊雖然在發(fā)布交易信息的表單里設(shè)置了“聯(lián)系方式” ，以引導(dǎo)用戶填寫(xiě)自己的西安交通大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 53 或手機(jī)等通訊工具。但某些用戶可能不方便留下自己的聯(lián)系方式，而且希望能提供使用戶在瀏覽交易信息時(shí)通過(guò)簡(jiǎn)單的點(diǎn)擊向信息發(fā)布者發(fā)送站內(nèi)短訊的功能。考慮以上原因，特別在網(wǎng)站中加入了“站內(nèi)短訊”的功能。用戶在瀏覽某一交易信息時(shí)，點(diǎn)擊“向此用戶發(fā)送短消息”即可進(jìn)入短訊發(fā)送頁(yè)面。同時(shí)可以在導(dǎo)航條的“查看消息”功能里查看到其他用戶發(fā)給自己的短訊，還可以方便地進(jìn)行刪除等操作。圖 416 信息詳情頁(yè)面中“向此用戶發(fā)送短消息”功能()圖 417 發(fā)送短消息()西安交通大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）每一條短消息實(shí)質(zhì)上是數(shù)據(jù)庫(kù) message表中的一個(gè)表項(xiàng)，包含消息 ID、發(fā)送方 ID、接受方 ID、消息標(biāo)題、消息詳情等字段。在用戶發(fā)送短消息時(shí)，用insert語(yǔ)句向 message表中插入一條新的消息表項(xiàng)；%from=session(user) 39。存儲(chǔ)發(fā)送方用戶名send_to=(send_to)　　39。存儲(chǔ)接收方用戶名title=(title)detail=(detail)nowtime=now()%%sql = insert into [message](message_from, message_to, message_title, message_detail, message_date) values(39。amp。fromamp。39。,39。amp。send_toamp。39。,39。amp。titleamp。39。,39。 amp。detailamp。39。,39。amp。nowtimeamp。39。)(sql)%SCRIPT Language=javascript!(短消息發(fā)送成功?。。?。()。/SCRIPT代碼 419 圖 418 查看消息列表()在用戶查看短消息時(shí)，用 select語(yǔ)句查詢接受方 ID為當(dāng)前用戶 ID的消息西安交通大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 55 并顯示在頁(yè)面上。%set rs=()sql=select * from [message] where message_to=39。amp。session(user)amp。39。 sql,conn,1,1if not thendo while not %tr td /td td%=rs(message_from)%/td tda href=?id=%=rs(message_id)% %=rs(message_title)%/a/td td%=rs(message_date)%/td td /td/tr% loop else %tr td /td td colspan=