<!--#include file="../conn/conn2.asp" -->
<!--#include file="../conn/function.asp" -->
<%
N_id=request.QueryString("N_id")
N_type=request.QueryString("N_type")

if N_type="newsinfo" then
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from SL_news where N_id="&N_id
rs.open sql,conn,1,1
if not rs.eof then
N_lv=rs("N_lv")
end if
rs.close
set rs=nothing
if N_lv=0 then
else
N_fen=getrs("SL_lv","L_id",N_lv,"L_fen")
L_title=getrs("SL_lv","L_id",N_lv,"L_title")
if session("M_id")="" then
response.Write "alert(""请先登陆会员账户！"");window.location.href="""&C_dir&"member"";"
else
if getrs("SL_member","M_id",session("M_id"),"M_fen")>=N_fen then
else
response.Write "alert(""本文章阅读等级限制为“"&L_title&"”，请先升级！"");window.location.href="""&C_dir&"member/member_role.asp"";"
end if
end if
end if
end if
%>