Sql="Select Top 1 Title,FilePath,SmallImg,Left(ShortContent,30) As ShortContent From view_NewsInfo Where charindex(',4,' , ','+Speciality+',')<>0 Order By Id DESC"
Microsoft OLE DB Provider for SQL Server 错误 '80040e14' 'hour' 不是可以识别的 函数名。行419 <% If Request("yyyy")<>"" And IsNumeric(Request("yyyy")) Then Dim Rs,Sql Dim TotalNum Sql="Select Count(*) From News Where Year(AddTime)="&CInt(Request("yyyy")) If Request("mm")<>"" Then Sql=Sql & " And Month(AddTime)=" & CInt(Request("mm")) End If Set Rs=Conn.ExeCute(Sql) TotalNum=Rs(0) Rs.Close Sql="Select Count(*) As Num,Hour(AddTime) As HourTitle From News Where Year(AddTime)="&CInt(Request("yyyy")) If Request("mm")<>"" Then Sql=Sql & " And Month(AddTime)=" & CInt(Request("mm")) & " Group By Hour(AddTime)" Else Sql=Sql & " Group By Hour(AddTime)" End If Set Rs=Conn.ExeCute(Sql) 行419 %>
<%
If Request("yyyy")<>"" And IsNumeric(Request("yyyy")) Then
Dim Rs,Sql
Dim TotalNum
Sql="Select Count(*) From News Where Year(AddTime)="&CInt(Request("yyyy"))
If Request("mm")<>"" Then
Sql=Sql & " And Month(AddTime)=" & CInt(Request("mm"))
End If
Set Rs=Conn.ExeCute(Sql)
TotalNum=Rs(0)
Rs.Close
Sql="Select Count(*) As Num,Hour(AddTime) As HourTitle From News Where Year(AddTime)="&CInt(Request("yyyy"))
If Request("mm")<>"" Then
Sql=Sql & " And Month(AddTime)=" & CInt(Request("mm")) & " Group By Hour(AddTime)"
Else
Sql=Sql & " Group By Hour(AddTime)"
End If
Set Rs=Conn.ExeCute(Sql) 行419
%>