|
<script>ec(2);</script> call per.getPermition("news",0)
Dim title,sql,rs
title = Lib.safeRequest("/",0)
sql = "select Id From [" & cfg.TablePrefix & "news] where title = '" & title & "'"
rs = dbo.Query(sql)
If isEmpty(rs) Or isNull(rs) Then
Response.Write(0)
Else
Response.Write(1)
End If
Set Lib = Nothing : Set Dbo = Nothing
|
