【正文】 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 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。瀏覽新聞/aamp。nbsp。amp。nbsp。amp。nbsp。amp。nbsp。amp。nbsp。amp。nbsp。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 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 set file=(news_photo) if 0 then 39。39。如果 FileSize 0 說明有文件數(shù)據(jù) filename=news_id amp。 right(,4) (formPathamp。filename) 39。39。保存文件 str1=UPDATE t_news_purpose SET str1=str1 amp。 newsort= amp。 newsort amp。 , str1=str1 amp。 xh= amp。 xh amp。 , str1=str1 amp。 title=39。 amp。 title amp。 39。, str1=str1 amp。 content=39。 amp。 content amp。 39。, str1=str1 amp。 newsimg=39。 amp。 filename 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。 news_id else str1=UPDATE t_news_purpose SET str1=str1 amp。 newsort= amp。 newsort amp。 , str1=str1 amp。 xh= amp。 xh amp。 , str1=str1 amp。 title=39。 amp。 title amp。 39。, str1=str1 amp。 content=39。 amp。 content 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。 news_id end if set file=nothing 39。set upload=nothing 39。39。刪除此對象 39。**************************************************************************************** (str1) end if if have_img2=1 then set file=(news_photo2) if 0 then 39。39。如果 FileSize 0 說明有文件數(shù)據(jù) filename=news_id amp。 _2 amp。right(,4) (formPathamp。filename) 39。39。保存文件 str1=UPDATE t_news_purpose SET str1=str1 amp。 newsort= amp。 newsort amp。 , str1=str1 amp。 xh= amp。 xh amp。 , str1=str1 amp。 title=39。 amp。 title amp。 39。, str1=str1 amp。 content=39。 amp。 content amp。 39。, str1=str1 amp。 newsimg2=39。 amp。 filename 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。 news_id else str1=UPDATE t_news_purpose SET str1=str1 amp。 newsort= amp。 newsort amp。 , str1=str1 amp。 xh= amp。 xh amp。 , str1=str1 amp。 title=39。 amp。 title amp。 39。, str1=str1 amp。 content=39。 amp。 content 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。 news_id end if set file=nothing 39。set upload=nothing 39。**************************************************************************************** (str1) end if elseif have_img=0 then 39。沒有圖片上傳 str1=UP