Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from data order by news_id ASC" rs.open sql,conn,3,2
'查找編號 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也是一個構成webadmin.htm的管理頁面的asp文件，它負責新聞數據庫的標題顯示，以便讓您知道現在庫用有些什么新聞。同時可以通過它來刪除新聞記錄，那么我們在使用新聞的主頁里反應出來的結果就是動態的了，新聞可以在線添加和刪除。令外一個附加的asp程序 set_diap.asp是用于控制每一類新聞在主頁上顯示的數目的，它主要使用application對象來設定。
