【導讀】用ASP和Access20xx來創(chuàng)建此系統.按照模塊化程序設計的方法,將要實現的功能逐一實現.留言板系統的應用范圍很廣，很多學校都會建立一套具有自己學校風格的留言板系統，交流提供了一個很好的平臺，增加了學生課余生活的情趣。本留言板是基于ASP開發(fā)的一。留言板系統的主要功能就是方便同學之間的聯系，促進同窗好友的感情留言板系統。功能齊全，含有留言，搜索，上傳和后臺管理等功能。數據庫是一種存儲數據并對數據進行操作的工具。數據庫的作用在于組織和表達信息，數據庫的種類可以分為兩類：非關系數據庫和。關系數據庫中包含了多個數據表的信息，數據庫含有各個不同部分

　　

【正文】 End IF IF Trim( (oldpassword))rst(password) then % SCRIPT LANGUAGE=javascript ! alert(39。密碼錯誤！ 39。) () // 安徽廣播電視大學開放教育?？朴嬎銠C應用專業(yè)畢業(yè)論文 22 /SCRIPT % End IF rst(password)=Trim( (pwd1)) % SCRIPT LANGUAGE=javascript ! alert(39。密碼更改成功 !新密碼是 %=Trim( (pwd1))%39。) () // /SCRIPT %End IF% 8． 3 信息發(fā)布模塊 1．瀏覽和發(fā)布： 文件是班級公共論壇的主頁面，在這個頁面中可以瀏覽其他用戶的信息和發(fā)布新的信息。代碼如下： %@ Language=VBScript % %if not session(user_session_id)= then% SCRIPT LANGUAGE=javascript = /SCRIPT %end if% ?? % function sort(data) sort=Replace(data,39。,39。39。) end function Dim action,p action=Request(action) IF action=tijiao Then Dim content, sname sname=session(ecid) if sname= Then sname=unkonwn content=Trim( (content)) content=Replace(content,) content=Replace(content,) content=Sort(Replace(content,VBCrlf,br)) sname 安徽廣播電視大學開放教育?？朴嬎銠C應用專業(yè)畢業(yè)論文 23 session().execute (insert into forum(studentid,content,pubtime,towho) values(39。amp。snameamp。39。,39。amp。contentamp。39。,39。amp。now()amp。39。,39。everyone39。)) session().execute (update ec set forumtimes=forumtimes+1 where studentid=39。amp。snameamp。39。) () () End IF Dim sql,rst sql=select , from ec,forum amp。_ where =39。everyone39。 and = order by pubtime desc Set rst= () sql,session(),1 const pagesize=4 =pagesize topage= IF Then 當前無留言 ?? Else curpage=(curpage) if curpage= Then curpage=1 curpage=cint(curpage) p=(curpage1)\10+1 if (p) Then p=cint( (p)) curpage=(cint( (p))1)*10+1 end if =curpage Dim xx if topage mod 10=0 then xx=(topage\10) else xx=(topage\10)+1 end if % table border=0 cellspacing=1 width=100% tr td align=right 共有留言 font color=redb%=%/b/font條 共 font color=redb%=topage%/b/font 頁 當前第 font color=redb%=curpage%/b/font頁 每頁顯示 font color=redb%=pagesize%/b/font條 br %showtitle% % For i=1 to if then exit for 安徽廣播電視大學開放教育專科計算機應用專業(yè)畢業(yè)論文 24 % table width=471 border=1 cellpadding=0 cellspacing=0 bordercolor=ABA7E4 tr td width=88留言人 ： /td td width=75b%=rst(1)%/b/td td width=94/td td width=211 align=center/td /tr tr height=34 td width=88頭 像 :/td td width=75img src=img/%=rst(2)%.bmp border=0 /td td width=94留言時間 :/td td width=211%=rst(4)%/td /tr tr height=34 td colspan=8%=rst(3)% /td /tr /table table width=400 border=0 cellspacing=0 cellpadding=0 height=13 tr td height=13/td /tr /table % Next % %showtitle% %End IF% br /td /tr tr td 請留言 ： /td /tr /table form method=POST action=?action=tijiao name=form2 onSubmit=return goto2()。 input type=hidden name=sname value=%=sname% p textarea rows=8 name=content cols=65 class=in/textarea br 注意 ： font color=red留言字數不要超過 400/font/p 安徽廣播電視大學開放教育?？朴嬎銠C應用專業(yè)畢業(yè)論文 25 p input type=button value=提交 name=B1 onclick=javascript:goto2() class=in input type=reset value=重寫 name=B2 class=in /p /form p /p /td td width=14 /td /tr /tbody /table /td /tr /tbody /table % sub showtitle()% div align=right %if curpage1 then% A title=首頁 href=?curpage=1 font face=webdings color=0033FF9/font/A %else% font face=webdings color=0033FF title=首頁 class=good9/font %end if% %if p=1 Then% font face=webdings title=已經是最前面了 class=good7/font %else% a href=?p=%=p1%font face=webdings title=前 10頁 class=good7/font/a %end if% %for i=(p1)*10+1 to (p1)*10+10 if itopage then exit for if curpage=i then font color=39。ff000039。amp。iamp。/font else% a title=第 %=i%頁 href=?curpage=%=i%%=i%/a %End IF Next% %if p=xx Then% font face=webdings class=good title=已經是最后面了 8/font %else% a href=?p=%=p+1%font face=webdings title=后 10頁 class=good8/font/a %end if% %if curpagetopage then% 安徽廣播電視大學開放教育?？朴嬎銠C應用專業(yè)畢業(yè)論文 26 A title=尾頁 href=?curpage=%=topage%FONT face=webdings:/FONT/A %else% A title=尾頁 href=FONT face=webdings:/FONT/A %end if% /div %end sub% % set rst=nothing % 通過上面的代碼完成了班級信息的發(fā)布。 2．信箱系統；通過填寫收件人的學號，可以將信息直接發(fā)送到對方的郵箱中，這種點到點的通信增加了文件的保密度。代碼如下： %@ Language=VBScript % %if not session(user_session_id)= then% SCRIPT LANGUAGE=javascript = /SCRIPT %end if% ?? If (hid) Then Dim towho,content towho=sort( (towho)) content=sort( (content)) content=Trim( (content)) content=Replace(content,VBCrlf,br) set rst=session().execute (select studentid from ec where studentid=39。amp。towhoamp。39。) if not then sql=insert into fo