isauthor.asp

asp+sql基于WEB新闻发布系统 代码加论文

<%
  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
%>