<%
  If Session("UserName") <> "Admin" Then
    NewsId = Request("Id")
   	'根據新聞編號讀取新聞信息 
    set rsNews = Server.CreateObject("ADODB.RecordSet") 
    sql = "SELECT * FROM News WHERE Id=" & Trim(NewsId)
    set rsNews = Conn.Execute(sql)
    Set Rs=conn.Execute(sql)
    If rsNews.EOF Then
      Response.Write "指定新聞不存在"
      Response.End      
    Else
      '判斷用戶權限，是否可以維護新聞，管理員可以編輯所有新聞，編輯者只能修改自己的新聞
      If rsNews("Poster") <> Session("UserName") Then
        Response.Write "不是Admin或新聞的作者，無權修改！"
        Response.End      
      End If
    End If
  End If
%>