【導(dǎo)讀】網(wǎng)絡(luò)的發(fā)展深刻地影響著人類生活的各個領(lǐng)域，領(lǐng)域也是如此。根據(jù)教育部的要求，從1999. 本招生網(wǎng)站系統(tǒng)是典型的信息管理系統(tǒng)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立與維護以及。前端應(yīng)用程序的開發(fā)兩個方面。本文從系統(tǒng)概述、系統(tǒng)調(diào)研及可行性分析、系統(tǒng)需求分析、系統(tǒng)設(shè)計、系統(tǒng)實現(xiàn)與系統(tǒng)測試。我們使用MACROMEDIA公司的DreamweaverCS4制作頁面，使用ACCESS20xx制作

　　

【正文】 /span/font/bfont size=2span class=unnamed1font color=ff0000*/font/spanbspan class=unnamed1 /span/b/font/span/td /tr tr td width=17% class=12font color=00000備注信息 :/font/td td width=83% align=leftbfont size=2span class=unnamed1 textarea class=inpu2 cols=55 name=contact rows=5 wrap=VIRTUAL/textarea /span/font/b/td /tr 30 tr td width=17% /td td width=83% align=left input name=tHtml type=hidden / input name=button2 type=button class=input2 onClick=javascript:check()。 value=提交留言 / input name= 重來 2 type=reset class=input2 value=重新填寫 //td /tr /tbody /table/td /tr /table /form 留言添加代碼： % if request(action)=add then set rs=() select * from feedback,conn,3,3 rs(pany)=request(name) rs(address)=request(address) rs(lxr)=request(lxr) rs()=request() 31 rs(tel)=request(tel) rs(fax)=request(fax) rs(bz)=request(contact) rs(m_ver)= rs(AddDate)=now() set rs=nothing call add_ok() end if % %sub add_ok()% script language=javascript alert(感謝您的留言 !)。 =。 /script %end sub% 后臺新聞添加代碼： 32 if edit_type=add_new then 39。當(dāng)添加新信息時 if have_img=1 or have_img2=1 then 39。有圖片上傳 (insert into t_news_purpose(title,me_version) values(39。 amp。 title amp。 39。,39。amp。 m_ver amp。39。)) set rs = (SELECT top 1 id FROM t_news_purpose ORDER BY id DESC) if not then id = rs(ID) else id = 1 end if 33 set file=(news_photo) if 0 then 39。39。如果 FileSize 0 說明有文件數(shù)據(jù) filename=id amp。 right(,4) (formPathamp。filename) 39。39。保存文件 end if set file=nothing str1=UPDATE t_news_purpose SET str1=str1 amp。 newsort= amp。 newsort amp。 , str1=str1 amp。 xh= amp。 xh amp。 , str1=str1 amp。 content=39。 amp。 content amp。 39。, str1=str1 amp。 newsimg=39。 amp。 filename amp。 39。, 39。str1=str1 amp。 newsimg2=39。 amp。 filename2 amp。 39。, str1=str1 amp。 imglink=39。 amp。 imglink amp。 39。, str1=str1 amp。 topsign=39。 amp。 topsign amp。 39。, str1=str1 amp。 indexsign=39。 amp。 indexsign amp。 39。 str1=str1 amp。 where id= amp。 id (str1) else 39。沒有圖片上傳 sqlstr=INSERT INTO t_news_purpose(newsort,xh,title,content,newsimg,imglink,topsign,indexsign,me_version) sqlstr=sqlstr amp。 VALUES( amp。 newsort amp。 , amp。 xh amp。 ,39。 amp。 title amp。 39。,39。 amp。 content amp。 39。,39。39。,39。39。,39。 amp。 topsign 34 sqlstr=sqlstr amp。 39。,39。 amp。 indexsign amp。 39。,39。amp。 m_ver amp。39。) (sqlstr) end if session(current_newsort)=newsort 39。加入當(dāng)前的新聞欄目 39。 session(current_newsort) title_str=添 加 新 聞 msg_str=bfont color=red添加成功！ /font/bbrbr msg_str=msg_str amp。 a href=39。?ver= amp。 m_ver amp。 39。 瀏覽新聞/a a href=39。?ver= amp。 m_ver amp。 39。繼續(xù)添加新聞 /a return_to_add 新聞刪除代碼： %i=(news_id).Count if i0 then news_id=(news_id) sqlstr=select newsimg from t_news_purpose where id in ( amp。 news_id amp。 ) set rs=(sqlstr) if not then do while not small_photo=trim(rs(0)) if isnull(small_photo)=false or small_photo then delPic ../news_images, small_photo loop end if 35 set rs=nothing sqlstr=delete from t_news_purpose where id in ( amp。 news_id amp。 ) sqlstr end if return_to_list 39。返回新聞列表 sub delPic(picPath,picName) if picPath then picPath=(picPath) else exit sub end if SET fs=() if (picPath amp。 / amp。 picName) then picPath amp。 / amp。 picName,true end if set fs=nothing end sub % 新聞修改代碼： %if edit_type=edit then 39。當(dāng)修改信息時 news_id=(news_id) 39。取得要修改的新聞 ID 號 if have_img=1 or have_img2=1 then 39。有圖片上傳 if have_img=1 then 36 set file=(news_photo) if 0 then 39。39。如果 FileSize 0 說明有文件數(shù)據(jù) filename=news_id amp。