asp數據庫查詢代碼

　　call pergetPermition("news")
 Dim titlesqlrs
 title = LibsafeRequest("/")
 sql = "select Id From [" & cfgTablePrefix & "news] where title = " & title & ""
 rs = dboQuery(sql)
 If isEmpty(rs) Or isNull(rs) Then
  ResponseWrite()
 Else
  ResponseWrite()
 End If
 Set Lib = Nothing : Set Dbo = Nothing

From:http://tw.wingwit.com/Article/program/net/201311/14104.html