::珠江地产::



点击进入网站	点击进入网站	点击进入网站	点击进入网站

<% Function ExeSql() Dim tSql Select Case Work Case Else '资料列表 tSql="SELECT Id,Title,AddTime,FilePath,Count,ShortContent From view_NewsInfo Where (Title+','+keyWord+','+ShortContent) Like '%"&sKey&"%' {Where01} Order By AddTime DESC" End Select If IsNumeric(Request("Class")) And Request("Class")<>"" Then tSql = Replace(tSql,"{Where01}"," And Class In (" & Request("Class") & AllChildClass(Request("Class")) & ")") Else tSql = Replace(tSql,"{Where01}","") End If ExeSql=tSql End Function %>