Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from data order by news_id ASC" rs.open sql,conn,3,2
'查找編號(hào) if rs.bof then reco=0 else rs.movelast reco=Clng(rs("news_id"))+1 end if
rs.addnew rs("news_id")=reco
if request.form("head")="YES" then rs("news_head")=-1 end if
rs("news_class")=class rs("news_class_name")=request.form("class_name") if request.form("pic")《》"" then rs("news_pic")=request.form("pic") rs("news_title")=request.form("title")&"(圖文)" else rs("news_title")=request.form("title") end if
if request.form("head")="YES" then rs("news_head")=-1 end if
tmpmess=request.form("comment") tmpmess=replace(tmpmess,chr(10)," ") tmpmess=replace(tmpmess,"《","《") tmpmess=replace(tmpmess,"》","》") tmpmess=replace(tmpmess," "," ") rs("news_comment")=tmpmess rs("news_year")=year(Date) rs("news_month")=month(Date) rs("news_day")=day(Date) if Instr(Time,"下午")》0 then tmp=left(right(Time,8),2)+12 rs("news_time")=tmp&right(Time,6) else rs("news_time")=tmp&right(Time,8) end if
if Request.ServerVariables("REQUEST_METHOD")="POST" then
if not rs.bof then rs.movefirst end if do while not rs.eof n=trim(cstr(rs("news_id"))) if request.form(n)="OFF" then rs.delete rs.update end if rs.movenext loop response.redirect "delete.asp"
rs.close end if response.flush %》 delete.asp也是一個(gè)構(gòu)成webadmin.htm的管理頁面的asp文件，它負(fù)責(zé)新聞數(shù)據(jù)庫的標(biāo)題顯示，以便讓您知道現(xiàn)在庫用有些什么新聞。同時(shí)可以通過它來刪除新聞?dòng)涗洠敲次覀冊(cè)谑褂眯侣劦闹黜摾锓磻?yīng)出來的結(jié)果就是動(dòng)態(tài)的了，新聞可以在線添加和刪除。令外一個(gè)附加的asp程序 set_diap.asp是用于控制每一類新聞在主頁上顯示的數(shù)目的，它主要使用application對(duì)象來設(shè)定。
